Reputation
13,035
Top tag
Next privilege 15,000 Rep.
Protect questions
Badges
2 30 76
Newest
 Nice Answer
Impact
~122k people reached

Apr
18
comment How to make this 3-D Plot Transparent?
What error do you get with Plot3D[fe[m, p], {m, -3, 3}, {p, -3, 3}]?
Apr
18
comment How to make this 3-D Plot Transparent?
By the way, why use SliceContourPlot3D when Plot3D will do?
Apr
16
comment Why can't the Bernstein Bears work normally?
I'm sorry, you've misspelt Berenstain.
Apr
16
comment How to change the boundary condition near singularity
Are you sure that a unique continuous solution even exists? To me this is like trying to solve $f'(x)=1/x^2$. Just because for $x<0$ you can find a solution $f(x)=-1/x+c_1$ and for $x>0$ you can find $f(x)=-1/x+c_2$ doesn't mean you can join them up into a single solution.
Apr
9
comment How to fill a grid make its total be largest
Very cool (+1). Can you say whether this is guaranteed to be the global maximum or not?
Apr
9
comment Can I convert a 3-D plot into a 2-D plot?
The reason you're not seeing any positive values in the graph is because the function doesn't take any positive values for the range you're plotting. Any reason you're not doing something like Plot3D[FreeEnergy, {M, -3, 3}, {P, -3, 3}] instead?
Apr
2
comment Numerical integration plot
Have you looked at the examples for NDSolve?
Mar
31
comment How to make a disconnected graph to be 1-edge-connected(but not 2-edge-connected) with some shortest edge
Is it necessary that the new edges form (conceptually) a cycle? Would it not be allowed for the bottom red edge to go from the bottom left component to the component above the bottom right one instead?
Mar
24
comment ContourPlot does not find contours that RegionPlot finds
Interestingly, ContourPlot[0.000157223 10^(2 x - 2 y) == 100, {x, -6, -1}, {y, -6, -1}] does plot the contour.
Mar
24
comment Is it possible to draw this figure using Mathematica?
I don't think the original drawing is systematic in its choice of direction either, though.
Mar
24
comment Is it possible to draw this figure using Mathematica?
To deal with the rotation direction, you could replace every polygon p with RandomChoice[p, Reverse@p] before applying NestList.
Mar
19
comment Proper way to produce StreamPlot
What is the ODE you're trying to plot the trajectories of?
Mar
17
comment interpolating a smooth closed surface to a non-uniform data set (ListSurfacePlot3D)
Perhaps you could convert the data into spherical coordinates, perform interpolation of $r$ as a function of $(\theta, \phi)$, and use SphericalPlot3D. (Or analogously: cylindrical coordinates, $r$ from $(z,\theta)$, RevolutionPlot3D.)
Mar
15
comment How can I visualize a map $f:T^2\to T^2$?
What is $zw$ when $z,w\in S^1$? Are we interpreting $S^1$ as a subset of $\mathbb C$?
Mar
8
comment How to add an outline around a closed 3D surface?
See mathematica.stackexchange.com/a/99452/484
Mar
6
comment Why does the asterisk go up when you switch from input to another mode?
I've rolled the question back to the original one.
Mar
6
comment How to merge several partially overlapping screenshots into one image?
You don't need to crop it exactly, you just need to get rid of the top bar assuming you know roughly how big it is.
Mar
6
comment Ugly rendering of curve with ParametricPlot3D and NDSolve
Just doing Plot[Sin[k x], {x, 0, 1}]] with a very large k should be an MWE, shouldn't it?
Mar
6
comment Ugly rendering of curve with ParametricPlot3D and NDSolve
If you turn down MaxRecursion to like 0 or 1 then it should be safe to increase PlotPoints beyond 1000.
Mar
6
comment How to merge several partially overlapping screenshots into one image?
Possibly related: mathematica.stackexchange.com/q/32612/484