18,557 reputation
13889
bio website sites.google.com/a/unca.edu/…
location Asheville, NC
age
visits member for 2 years, 6 months
seen 10 secs 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.


May
10
comment How to plot this function?
@GabrielR. _?NumericQ is useful to prevent evaluation prior to an actual number being plugged in and I use it out of habit when defining functions using numerical procedures. Strictly speaking, it's not necessary here. If you were to try to plot $f'$, however, some errors would be issued. The With construct is simply a scoping mechanism to declare n as local. Module could have been used just as well.
May
9
comment How to find the period of an arbitrary mathematical function?
@RichardFateman There is an FAQ. Among other things, you'll learn that you can create new tags after you have 300 rep and how to format your posts.
May
7
comment How to find the period of an arbitrary mathematical function?
Generally, it's fine to provide pointers to papers but, if that's all and "answer" does, then a comment is really more appropriate. Also, the comment was placed under the original question. If that's genuinely a "marginally-related post", then why are you posting an answer at all?
May
7
comment How to find the period of an arbitrary mathematical function?
I suppose that one could examine the (rather complicated) output of Reduce[Sin[x + a] == Sin[x], x] and discover an a==2Pi*C[1] near the end. It's really incumbent upon Richard to provide the example he suggests.
May
6
comment Get histogram of number of vertices per component of graph H
Your result looks perfectly correct to me. It says simply that most of the connected components are quite small. You should probably accept the answer given by @ubpdqn.
May
6
comment Parallel computation of NDSolve and a problem
It works just fine when you use Table, rather than ParallelTable. If you really need to parallelize this code, you'll probably need to take a close look at techniques for resource sharing.
May
2
comment Why does this Quantity calculation lose precision?
@OleksandrR. Thanks - I whipped this together awfully quickly when I saw your answer. I expanded it a bit in light of your comments. I think the two answers are clearly somewhat orthogonal.
Apr
30
comment To solve Cylinderical PDE
You might have a look at this, though the answer might change within the month. In the meantime, you might look into formatting on this site.
Apr
29
comment Parallel and perpendicular symbol from mathematica to latex
I used this today - thanks! Too bad it doesn't look so good in the notebook, but...
Apr
22
comment How to combine more locations (GPS coordinates inside one city) with Google map?
@J.W.Perry Thanks - I'm glad you like it!
Apr
22
comment How to combine more locations (GPS coordinates inside one city) with Google map?
I think the question needs to be formulated a bit more clearly and in more detail before a solid answer can be given. It sounds like you want to create (typo?) a GoogleMap using Mathematica? If so, this question is certainly not a duplicate nor does it represent functionality present in V10. Do you have an example? Perhaps, a pointer to the type of map you would like to create?
Apr
21
comment Surface area of intersecting spheres
@george2079 I agree. He said he wanted fast, though, so fast I went. :) Feel free to edit.
Apr
19
comment Surface area of intersecting spheres
@george2079 Judging from the output of Graphics3D[Sphere@@@coords[50]], the spheres may intersect.
Mar
20
comment How to compile gather
I don't believe that Gather is compilable. You can see a list of compilable functions in the answers to this question.
Mar
10
comment Finding differences between Pi with varying number of decimals
@xzczd Your a is effectively zero and there's no version of zero with positive, finite precision so SetPrecision returns the closest thing it could. Arguably, though, 0.0 would have been more natural.
Mar
7
comment Why does Simplify[b-a] give -a+b and not b-a?
Hmm... I don't think that HornerForm is really a wrapper in the same sense that InputForm, StandardForm, and TraditionalForm are wrappers. In fact, HornerForm[Simplify[b - a]] returns the same thing as just Simplify[b - a].
Mar
7
comment Why does Simplify[b-a] give -a+b and not b-a?
If you'd like to see $b-a$, you might look into TraditionalForm.
Mar
7
comment Determine types of input, output and internal variables in compiled functions
Of course, the intermediate variable res should be localized in a Module anyway. By incorporating res=0*I, you're essentially declaring res to be Complex. Is that correct? If so, I would have expected 0.0*I to make more sense. I guess that Module has the attribute HoldAll so that it sees the I anyway.
Mar
7
comment How to apply a conformal map to a jpg (or other image)
You might be interested in this: facstaff.unca.edu/mcmcclur/blog/QuadraticCamera.html
Mar
6
comment How to visualize slope fields of differential equations without vectors?
Well, "slightly off" would be a better description than "poor". :)