19,817 reputation
24193
bio website sites.google.com/a/unca.edu/…
location Asheville, NC
age
visits member for 2 years, 7 months
seen 2 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.


Aug
7
answered Better code for two variable fractal interpolation functions
Aug
7
reviewed Leave Open How can I transform a matrix to a vector (vectorization)?
Aug
7
reviewed Leave Open List creation/manipulation
Aug
6
accepted GPU user experiences
Aug
6
reviewed Leave Open Circular membrane vibration simulation
Aug
6
comment Specifying Range of RSolve
@QuinnCulver Well, it oughtta get the whole damn thing correct, no? If you're going to use a black box, you'd better check your results and, in this case, they don't check out.
Aug
6
comment Specifying Range of RSolve
@QuinnCulver I tried FindSequenceFunction without success but I really see no reason to think that such an expression exists. I can tell you that the sequence converges monotonically down to $3/4$ with approximate multiplier $1/2$ but not much more.
Aug
6
comment Specifying Range of RSolve
@QuinnCulver Not definitively, but it hardly seems shocking, given the branch cuts that are bound to arise with a quadratic recurrence.
Aug
6
answered Specifying Range of RSolve
Aug
6
comment Using Solve but getting no output
You should be aware that there are many apparently simple equations with solutions that are not expressible in closed form. One such example is Solve[Cos[x]==x,x]. On the other hand, Solve[Cos[x]==x,x,Reals] produces a useful result. Thus, it's nice to now if your variables and parameters satisfy any useful assumptions. Lacking a symbolic expression, perhaps you'd be happy with a function that produces an estimate for s as a function of the input parameters?
Aug
6
comment How to generate specific function using BSpline command/
@chris I think it might be reasonable to implement PiecewiseExpand for InterpolatingFunctions but I don't see any reason to expect it. Interpolation is much older (V2) and lives in the numerical domain. PiecewiseExpand (V5) is primarily algebraic and is simply meant to simplify nested Piecewise expressions. How might PiecewiseExpand work with an InterpolatingFunction generated by NDSolve and containing zillions of sub-intervals?
Aug
6
answered How to generate specific function using BSpline command/
Aug
5
comment How to draw a box with holes using Mathematica
@peter Honestly, I just looked at it. I figured the $z$ coordinate had to start way up high, go pretty low, then pretty high, then way down low - so I came up with $t-t^3$ over some interval. I then scaled and shifted that so that it fit. I did similar things with the $x$ and $y$ coordinates. Too much looking at functions over the years, I guess.
Aug
1
comment How to draw a box with holes using Mathematica
Are these really homotopic? Homeomorphic, I can see - but homotopic requires a deformation that disentangles those tubes. Given an explicit homotopy, we should be able to animate the deformation.
Aug
1
reviewed Leave Open Finding maximum value with position from Table of values
Aug
1
reviewed Close Dataset: cannot reproduce a basic example. A bug?
Aug
1
revised How to draw a box with holes using Mathematica
added 211 characters in body
Aug
1
comment How to draw a box with holes using Mathematica
@peter You can learn a lot about this type of programming in the documentation's section on the structure of graphics. In particular, you'll learn that plotting command (like ParametricPlot3D) produce graphics primitives (like Line). So, if you execute something like InputForm[ParametricPlot3D[{t,t,t}, {t,0,1}], you'll see that a Line has been produced. The /.Line[pts_] :> business simply replaces it with a Tube.
Aug
1
revised How to draw a box with holes using Mathematica
added 71 characters in body
Aug
1
answered How to draw a box with holes using Mathematica