38,676 reputation
395191
bio website goo.gl/mUYfrc
location
age
visits member for 2 years, 11 months
seen 2 days ago

웃♥유SiteLinkedInBlogDemonstrationsVimeoPinterestNKS

I work for Wolfram and oversee Wolfram Community. I am a physicist, Mathematica enthusiast and faculty member at Wolfram Science (NKS) Summer School. I am an author at the Wolfram Demonstration Project and sometimes write for Wolfram Blog. I enjoy creating applications and art with Mathematica, some can be found on my website. I also collecting Mathematica graphics at a Pinterest board and organized a video group Mathematica Render on Vimeo.


Comments & opinions expressed here are mine, and not those of my employer.


Nov
19
comment Plotting knot torus
Could you put m and n in your code?
Nov
17
comment DSolve bvlim error due to Boundary condition at infinity
+1 Nice work Michael !
Sep
4
comment How can I construct and visualize a hypergraph?
@Szabolcs I did not find an easy way to do this.
Sep
2
comment How can I construct and visualize a hypergraph?
@Szabolcs ...but coloring of vertices helps a bit.
Sep
2
comment How can I construct and visualize a hypergraph?
@Szabolcs I do not think there is a guarantee. I can ask for certainty, but just by poking around I've seen this violated.
Aug
25
comment FindFit with parameters which are simultaneously in initial conditions
@Krzysiek In such case I would try using ParametricNDSolve - look through the examples HERE to grasp the scope.
Aug
25
comment Map of United States as a 3D histogram
+1 e x c e l l e n t!
Aug
24
comment Find patterns in a list
@b.gatessucks very nice +1 but i'd put a___ and b___ - BlankNullSequence - to include boundary cases for more general situations.
Aug
22
comment Map of United States as a 3D histogram
TO ALL sorry folks, I am a bit out of time. Please feel free to edit post to flip the map - just mark it as an update and keep the original. Thanks everyone!
Aug
10
comment How to make a stereogram in Mathematica?
Very nice, it pops!
Jun
2
comment Partial zeta curlicues
+1 @SimonWoods - much better of course - thank you - I updated the post with your definition.
May
30
comment Speed up ContourPlot3D
@Stephen I know that ;) I was trying to share a general useful trick. And as you can see even Kuba adopted it for his code - in addition to his idea. Because it often makes things better.
May
30
comment Speed up ContourPlot3D
@Stephen i've seen it - it is a nice idea working in this case. but that's not the point of my post. in some situation you will not be able to replace ContourPlot3D with Plot3D.
May
30
comment Animating transition between all graph representations obtained from curated data
@belisarius perfectly fine ;)
May
30
comment System of differential equations - solving for a constant
And please correct all system symbols like E and N in text and in code. If symbol turns black color from blue and is not defined it means it is a system symbol. Do not use them for variables.
May
30
comment Any way I can solve this integral?
@seismatica I wanted to remind people it exists ;-) - rarely used. Smoothness is an illusion - there is sampling anyway: Plot[NIntegrate[1/(Sin[s/2]^b + 1), {s, 0, Pi}], {b, 0, 3}, Mesh -> True, MeshStyle -> Red] It is faster - because you control sampling.
May
27
comment Animating transition between all graph representations obtained from curated data
@belisarius this time you really cracked me up... and i thought it's the children for whom the trees are taller.
May
20
comment Is it possible to get a VertexColors effect in cylinder?
+1 Very cool solution!
Apr
28
comment A timed switch with Dynamic
Dynamic[Clock[] > .5]
Apr
21
comment Different Poincaré maps for same Equation
I updated the answer to show many-events animation.