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


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
Aug
1
awarded  Enlightened
Aug
1
comment Numerically solving Helmholtz equation in 2D for arbitrary shapes
@Mr.Wizard Not if I delete my answer! I am rather embarrassed to have the accept. :)
Aug
1
awarded  Nice Answer
Aug
1
answered How to determine Fixed Point of a function?
Jul
31
revised Numerically solving Helmholtz equation in 2D for arbitrary shapes
added 52 characters in body
Jul
31
revised Numerically solving Helmholtz equation in 2D for arbitrary shapes
added 480 characters in body
Jul
31
revised Numerically solving Helmholtz equation in 2D for arbitrary shapes
added 3455 characters in body
Jul
31
comment Numerically solving Helmholtz equation in 2D for arbitrary shapes
Why k=1/10? In fact, it seems that you can suppress the k entirely as t is playing the role of the parameter.
Jul
31
comment Numerically solving Helmholtz equation in 2D for arbitrary shapes
If you set numEigenToCompute=6 and then plot -efIF[[6]], you essentially get the MATLink Logo, though that was computed using a finite difference technique applied to a regular triangular grid.
Jul
31
comment Numerically solving Helmholtz equation in 2D for arbitrary shapes
I'm ridiculously excited!