21,209 reputation
245103
bio website sites.google.com/a/unca.edu/…
location Asheville, NC
age
visits member for 2 years, 9 months
seen 13 hours ago

I've been a professor of mathematics at The University of North Carolina - Asheville since 1997. I've been using Mathematica since I started graduate school in mathematics at Ohio State in 1989. At that time, we used version 1.1 (as I recall) to teach calculus in our Calculus and Mathematica classes. I've used it pretty much continuously in my teaching and research since then.

In addition to my posts on SE, you can find some of my papers, teaching notebooks and other Mathematica based oddities strewn throughout my website.

In recent years, I've also worked as a part-time consultant to Wolfram Research focusing on development of mathematical content for WolframAlpha.


Sep
4
reviewed Reopen Eliminate z from two equations in x, y, z and plot y as a function of x
Sep
3
comment How to speed up my Project Euler code
If you realize that the maximum solution is 10 Floor[Ceiling[Sqrt[1929394959697989990]]/10] and step down by 10 from there, you'll get the solution almost immediately.
Sep
3
awarded  Enlightened
Sep
3
awarded  Nice Answer
Sep
2
comment How to Nest a Function with three Arguments?
I suspect he'd like it to work with arguments other than A, B, and dt. Perhaps, a more general pattern would be appropriate?
Sep
2
reviewed No Action Needed How to Nest a Function with three Arguments?
Sep
2
revised How to find this limit correctly?
deleted 114 characters in body
Sep
2
revised How to find this limit correctly?
deleted 642 characters in body
Sep
2
comment How to find this limit correctly?
I suppose that Assumptions in Limit might simply be applied to simplify the expression ahead of the computation. That would explain the difference in the results and be dismissed as designed. A genuine domain restriction would be more properly dealt with as a third argument.
Sep
2
comment How to find this limit correctly?
@DanielLichtblau That is what I thought. But, then, how do I explain the fact that Limit[n^2 Sin[2*n*Pi], n->Infinity, Assumptions->Element[n, Integers]]==0?
Sep
2
revised How to find this limit correctly?
added 549 characters in body
Sep
2
answered How to find this limit correctly?
Sep
1
comment How to find this limit correctly?
@belisarius Well, yeah, but that's a discrete plot indicating the limit is $2\pi$ ( I assume, I'm on my iPhone).
Sep
1
comment Importing High Precision (22 digits) data from a file
@jason There is no import as string in my example. I used ImportString since it works exactly as Import but allows one to show a whole example without reference to an internal file. If you want that specific number, then that specific number will need one more zero in your input file. Keep in mind also that you should get the binary number with the specified precision closest to your input, so that trailing digits are often present. I can't verify your 8.24574098106 as I get 8.24574097909*^8, which seems quite right.
Sep
1
answered Importing High Precision (22 digits) data from a file
Sep
1
comment Use Mathematica to calculate the area enclosed between two curves
Is there an obfuscated Mathematica contest?? :)
Aug
31
comment Specifying Range of RSolve
@QuinnCulver I mean that $|x_{n}-3/4|<(|x_{n-1}-(3/4)|)/2$. In words, the distance between $x_n$ and $3/4$ is a little less than half the distance between $x_{n-1}$ and $3/4$. You can verify this numerically by looking at Ratios[N[Table[q[n],{n,0,9}]-3/4]] - you'll see a sequence converging to $1/2$. Analytically, you're iterating $f(x)=(-2x+3\sqrt{4x+1}-3)/2$ which has a fixed point at $x=3/4$ satisfying $f'(3/4)=1/2$.
Aug
30
awarded  Enlightened
Aug
30
awarded  Nice Answer
Aug
30
reviewed Reviewed I need to remove a line from a ParametricPlot