# Rahul Narain

less info
reputation
11543
bio website location age member for 2 years, 6 months seen 22 mins ago profile views 528

 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. Aug29 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 Aug29 comment A topoplot function for Mathematica Neat trick for generating a random function. Aug26 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. Aug26 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. Aug23 comment How to generate random points in a region? @RunnyKine: Thanks, added! Aug22 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] Aug21 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. Aug21 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. Aug21 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 Aug18 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]] Aug15 comment How to “merge” various graphics 2d into one 3d graphic? Can you give some more details on how you generated the 2D graphics? Aug14 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. Aug12 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? Aug11 comment how do I plot this surfaces in 2-D? +1, but the condition is $x^TAx+1\le0$, not $x^TAx>0$. Aug7 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? Aug4 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? Aug3 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? Jul31 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]]/(σ*ϕ).