6,482 reputation
11543
bio website
location
age
visits member for 2 years, 6 months
seen 22 mins ago

1h
comment FindClusters Giving Wrong Groupings
The problem is that the distance between the left and right clusters is about 0.5 while the distance between the top and bottom of either cluster is over 1000...
2d
comment Plotting spherical surfaces
The InterpolationOrder in ListPlot3D is a red herring; the appearance of the plot does not change if you change the order to $1$. Mathematica does not support higher-order interpolation on unstructured data yet. The reason it still looks like a smooth surface is because the shading is being interpolated when the surface is rendered.
Aug
29
comment Implementing an algorithm for finding the largest circle that contains a single point in a set (and no other point)
+1 It's a bit of a relief to see that my algorithm actually works! "I have only proved it correct, not tried it." --Don Knuth
Aug
29
comment A topoplot function for Mathematica
Neat trick for generating a random function.
Aug
26
comment Find maximum value of interpolation function - obviously wrong result
Probably the only foolproof way would be to peer into the internal structure of the InterpolatingFunction: it does a piecewise polynomial interpolation, and one might be able to reliably find the maximum of each piece. Unfortunately I'm afraid I don't know how to do that.
Aug
26
comment How to do a region plot with many functions
Although no one's posted Michael E2's Ordering-based solution at the previous question.
Aug
23
comment How to generate random points in a region?
@RunnyKine: Thanks, added!
Aug
22
comment Horizontally compress a picture with varying compression ratio
I'm not sure I understand correctly what you're asking, but try d = f /. First@NDSolve[{f'[x] == c[x], f[0] == 0}, f, {x, 0, 1}]; ImageForwardTransformation[image, {d@#[[1]], #[[2]]} &, PlotRange -> All]
Aug
21
comment How to vary line thickness to add a sense of perspective?
Not exactly what you asked for, but since you want to make the 3D arrangement of lines easier to see, this previous question may be useful.
Aug
21
comment Convex hull of a large data set of 3D points
I second user21's question; there is no standard notion of a "smooth convex hull". If you really really want an ellipsoid, you could try finding the minimum-volume ellipsoid enclosing your set of points.
Aug
21
comment How to make a depth map from a 3D model?
You should probably incorporate the code from Timothy Wofford's answer as well, otherwise you're still colouring by the original $z$-coordinates of the model rather than the depth from the camera. i.stack.imgur.com/wFmRm.png
Aug
18
comment Transparency in a 3D plot
You're trying to specify PlotStyle twice, which doesn't work (the second one is ignored). Use Directive to combine them instead: PlotStyle -> Directive[RGBColor[1., 0.9, 0.14], Opacity[0.9]]
Aug
15
comment How to “merge” various graphics 2d into one 3d graphic?
Can you give some more details on how you generated the 2D graphics?
Aug
14
comment How to make a stereogram in Mathematica? (2)
There's a line in Simon Woods's code involving Accumulate which I don't see in your implementation.
Aug
12
comment Delaunay Triangulation for 3D Surface Data
Isn't the boundary of the Delaunay tetrahedralization just the convex hull of the data, which can be found in much more straightforward ways?
Aug
11
comment how do I plot this surfaces in 2-D?
+1, but the condition is $x^TAx+1\le0$, not $x^TAx>0$.
Aug
7
comment Plotting in projective space
Not sure what you mean by "convert this to the projective plane". Can you give an example of what you want the plot to look like in the end?
Aug
4
comment How to make a region plot indicating the largest among a set of functions
Isn't this question an almost exact duplicate of the one you linked to?
Aug
3
comment Plotting an implicit polar equation
@RunnyKine: Is it really necessary to bump a question to the front page just to italicize the word Mathematica?
Jul
31
comment Fourier Analysis: How to get rid of a discontinuity
@Flymath: Ah, the problem is that one needs to "unwrap" the result of ArcTan before dividing by $\sigma\phi$. In this case it is apparently enough to just define g[σ_Real, ϕ_Real] = (If[# < 0, # + 2 π, #] &)@-ArcTan[Re[Ztri], Im[Ztri]]/(σ*ϕ).