Reputation
9,446
Top tag
Next privilege 10,000 Rep.
Access moderator tools
Badges
1 21 58
Newest
 Nice Answer
Impact
~74k people reached

Apr
13
revised How to draw a tropical surface?
edited tags
Apr
13
answered How to draw a tropical surface?
Mar
26
comment Floating point arithmetic bug caused by Table[]
What Every Computer Scientist Should Know About Floating-Point Arithmetic
Mar
23
comment Spiral roots, how?
Probably a duplicate of Drawing a square root spiral.
Mar
15
revised How can I make a 3D Plot with NDSolve?
added 30 characters in body
Mar
15
comment Stitch edge of disk to edge of square in 3D space (with deformations)
@djp: Given the example of paper cutouts, I assume that the deformation is meant to be isometric. See also: dForm
Mar
13
comment How to enhance a fuzzy image
A disk is a better model for defocus blur than a Gaussian function. Set r = 6; k = DiskMatrix[r]/Total[DiskMatrix[r], Infinity]; and try ImageDeconvolve[image, k, Method -> "RichardsonLucy"] or ImageDeconvolve[image, k, Method -> {"TotalVariation", "NoiseModel" -> "Laplacian"}]. The results aren't super fantastic, but they're something.
Mar
13
comment How to enhance a fuzzy image
Blurring is a form of convolution. To undo it, what you want is deconvolution, i.e. ImageDeconvolve. However, your image also has a lot of noise, which makes deconvolution very hard.
Mar
10
comment How can I make a pretzel shape using bezier curves?
You'll have better luck if you make your control polygon have three-fold symmetry.
Mar
10
awarded  Nice Answer
Mar
4
comment Determine if all the zeros in a list occur at the end
Is the speed the same if you define test5 = OrderedQ @* Reverse @* Unitize?
Mar
3
comment How to draw a particular contour line in ListDensityPlot?
ListDensityPlot[..., MeshFunctions -> {#3 &}, Mesh -> {{0.8}}]
Feb
28
comment How to find soccer balls in an image?
After the update the problem is suddenly much much much harder.
Feb
25
comment How to generate mesh and calculate volume of 3d object?
How did you generate the last plot?
Feb
25
comment How to generate mesh and calculate volume of 3d object?
Sorry, maybe there's something I'm missing, but why can't you just keep using your NIntegrate[ρ^2 Sin[θ], ...] method?
Feb
24
comment Can someone explain this snippet: (#[#] &)[#[#][#] &]
Rather than the Y combinator, it looks to me like a variant of the standard example of a lambda calculus expression with no normal form: $(\lambda x.xx)(\lambda x.xx)$. This one has three $x$s in the second term.
Feb
23
comment Random geometrical graph generation
In the interest of teaching a man how to fish: Check out the documentation for Graph, under Examples > Scope > Styling. The first example there demonstrates VertexStyle and EdgeStyle.
Feb
18
comment Is Mathematica `ContourPlot` function really so efficient?
You could do something like Table[{x, y} /. NSolve[f[x, y] == 0 && 0 <= y <= 10, y, Reals], {x, 0, 10, 0.1}]. The difference in speed is because NSolve tries to get all roots with machine-precision accuracy, about $10^{-16}$, whereas ContourPlot is content with much lower accuracy and possibly missing some roots.
Feb
11
awarded  Yearling
Feb
9
revised Plotting self-made functions
added 6 characters in body