34,417 reputation
549142
bio website
location
age
visits member for 2 years
seen 1 hour ago

Apr
14
comment How to manually set z-axis values in a 3d plot?
Why not just plot the ellipsoid? SphericalPlot3D[h r/Sqrt[r^2 Cos[θ]^2 + h^2 Sin[θ]^2], {θ, 0, π/2}, {ϕ, 0, 2 π}]
Apr
14
comment Errors of machine precision
The message means that Mathematica has tried to evaluate the numerical value of Log[Abs[4 + 4 Exp[-2 I Pi/3] + 4 Exp[2 I Pi/3]]] and in doing so has reached its internal precision limit (determined by $MaxExtraPrecision).
Apr
14
comment Plot Notes present in sound sample
Look at SpectrogramArray, especially the "Neat Example"
Apr
14
answered Testing the Erdos square free conjecture
Apr
13
comment Transform elements in list from form {x_} to form {x_, 0}
Dot is the winner here, with v9 on Windows. Closest I can get to it is the rather ugly Transpose[Join[Transpose[a, {2, 3, 1}], ConstantArray[0., RotateRight@Dimensions@a]], {3, 1, 2}] which takes about 20% longer.
Apr
13
comment Programming paradigm change
The new one is very clever. I don't think I've ever seen non-strings on the rhs of StringReplace rules. Nice...
Apr
13
awarded  Nice Answer
Apr
12
revised Partitioning an image based on features
added 32 characters in body
Apr
12
comment Partitioning an image based on features
@Sektor, Classify is a new function in v10
Apr
12
answered Partitioning an image based on features
Apr
11
comment Programming paradigm change
@Mr.Wizard, I decided the use of spaces was inconsistent in the original string so didn't worry about it ;-)
Apr
11
comment Generate array of every $n^{th}$ integer between two bounds
@Öskå, I've voted to close as RTFM but if you'd rather keep it open please feel free to combine your comment and mine into an answer.
Apr
11
answered Mathematica: Extract the piece that contains x=0 from within a piecewise function
Apr
11
comment Generate array of every $n^{th}$ integer between two bounds
Array does not take an iteration variable. Use it like Array[1926 + 4 # &, 22] or alternatively use Table[1926 + 4 m, {m, 22}]
Apr
11
answered Programming paradigm change
Apr
10
answered How to solve correctly inside a DO loop and then plot
Apr
10
comment How to solve correctly inside a DO loop and then plot
Why not use ContourPlot[V[x, 0, z0] == E0, {x, -2, 2}, {z0, 0, 0.6}]
Apr
10
answered How to show many data lines with MAnipulate?
Apr
10
awarded  Nice Answer
Apr
9
comment Capture an image by non-default device
Does Block[{$DefaultImagingDevice = $ImagingDevices[[x]]]}, code here] work? Sorry, got no imaging devices to test with.