16,531 reputation
13480
bio website sites.google.com/a/unca.edu/…
location Asheville, NC
age
visits member for 2 years, 3 months
seen 45 mins 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.


10h
comment Surface area of intersecting spheres
@george2079 Judging from the output of Graphics3D[Sphere@@@coords[50]], the spheres may intersect.
10h
answered Surface area of intersecting spheres
1d
revised Different colors for nodes in tree plot
deleted 13 characters in body
1d
answered Different colors for nodes in tree plot
Apr
16
answered What are these strange shapes in my Plot3D[]?
Apr
16
revised How to make a 3D globe?
Deleted expired hyperlink.
Apr
16
comment solving simple integral equation
Are you looking for math.stackexchange.com?
Apr
11
awarded  Nice Answer
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
19
awarded  Populist
Mar
18
awarded  Nice Answer
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
10
awarded  Revival
Mar
9
answered How to find an approximate solution in a region when Solve or NSolve does not work?
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
answered Suppress connection to Wolfram|Alpha when making unit conversions
Mar
6
comment How to visualize slope fields of differential equations without vectors?
Well, "slightly off" would be a better description than "poor". :)