21,584 reputation
246106
bio website sites.google.com/a/unca.edu/…
location Asheville, NC
age
visits member for 2 years, 11 months
seen 3 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
comment Numerically solving Helmholtz equation in 2D for arbitrary shapes
I'm ridiculously excited!
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
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
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
comment Cellular Automata Neighborhood as Node connections
@Schwarz The Mod[Total[Table[value[gen - 1, v], {v, adjacentVertices[u]}]], 2, 1] business sets the new value to either 1 or 2, depending on whether the sum of the adjacent nodes is even or odd.
Jul
23
comment How to solve an integral equation by iteration method?
I've rolled back your question to it's original version, as I think your change of dimension is significant enough to warrant a new question. Feel free to open such a new question! Furthermore, no one can really answer this one, as it's closed anyway! (Not that I agree with the closure.)
Jul
23
comment How to solve an integral equation by iteration method?
@JavadKazemi I think the same basic idea should work, though it would be nice to have a specific example in mind.
Jul
22
comment How to solve an integral equation by iteration method?
I win - by 10 seconds! :)
Jul
22
comment HoldForm doesn't hold form
@MikeHoneychurch I've updated my answer to address the first example as well.
Jul
22
comment HoldForm doesn't hold form
I agree that you should consider contacting support. I'm not convinced that this is not by design, however. I've always found ThisForm[ThatForm[expr]] to be a bit awkward.
Jul
22
comment HoldForm doesn't hold form
@Jens Does the edit help? I guess that you've got to selectively apply Inactive to Set but not to InputForm. So Inactivate is a bit too coarse.
Jul
21
comment Mathematica unable to solve equation numerically while Wolfram|Alpha can
Try Solve[2 x == Sinh[x], x, Reals]. This is a common question - here's a similar example.
Jul
21
comment Strange message appearing when using Wolfram Alpha in Mathematica
I recommend that you restart Mathematica and see if this behavior persists.
Jul
18
comment Game of Life in 3D
@eldo And thank you. It is definitely more life like, now. :)
Jul
18
comment Generate Random 3D Network using GraphPlot3D and loop
@Schwarz You should upvote this, if you found it useful. I did.
Jul
17
comment How do I plot points on a sphere using spherical coordinates?
Could you share your points?
Jul
16
comment Fitting the Plot by fourier Series of either sine or cosine
Can you provide all the data?
Jul
16
comment Is this a bug in FunctionDomain (V.10)?
I don't think your Maple comparison is quite fair. You've explicitly asked Maple to solve an inequality, rather than asked for the domain of a function. That doesn't account for more complicated examples, as I've placed in my answer.
Jul
15
comment What information is sent to Wolfram Research when loading or working with Mathematica?
Well, I vote to reopen.