19,712 reputation
24092
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.


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!
Jul
31
answered Numerically solving Helmholtz equation in 2D for arbitrary shapes
Jul
31
awarded  Nice Answer
Jul
31
revised How to generate nonperiodic tilings?
deleted 77 characters in body
Jul
31
revised 3D Contour Plot parts of sphere with gradient less than 0, equal to 0 and more than 0
added 1143 characters in body
Jul
31
revised 3D Contour Plot parts of sphere with gradient less than 0, equal to 0 and more than 0
added 1143 characters in body
Jul
31
answered 3D Contour Plot parts of sphere with gradient less than 0, equal to 0 and more than 0
Jul
24
comment Conversion of 3D plot to 2D Contour Plot
@user85503 thing[[position]] represents part extraction. If you execute Short[InputForm[pic], 4], you'll see that, internally, pic has the form Graphics3D[GraphicsComplex[pts_,_],_]. Now, pic[[1]] grabs the GraphicsComplex (since it's the first argument of Graphics3D) and pic[[1,1]] grabs the first argument of the first argument, namely the points - which is exactly what we need.
Jul
24
answered How to solve an operator form of an integral equation by iteration method?
Jul
24
comment How to solve an operator form of an integral equation by iteration method?
Artes is correct that it's nice to see code in the question. Not only does it show some effort on the part of the OP, but it also lends context to the question letting the person answering the question know the appropriate level to write their own code. As I did encourage Javad to ask a follow up to this question, I'll provide an answer soon.
Jul
24
comment How to solve an integral equation by iteration method?
No biggie - you'll probably be an expert one day!
Jul
24
revised How to generate nonperiodic tilings?
added 601 characters in body
Jul
24
answered How to generate nonperiodic tilings?
Jul
24
awarded  Nice Answer
Jul
24
answered Conversion of 3D plot to 2D Contour Plot
Jul
23
comment How to solve an integral equation by iteration method?
Please don't roll back my roll back! Honestly, it makes no sense for two reasons. Your original question refers to quite a specific operator so changing the operator wastes the efforts of those who answered the question. Secondly, this question has been closed so no one can answer it now anyway. If you have another question, simply open a new question.
Jul
23
revised How to solve an integral equation by iteration method?
rolled back to a previous revision