19,980 reputation
12767
bio website
location
age
visits member for 2 years, 6 months
seen 2 days ago

Sep
6
revised Faster Eigenvalues with lower precision goal
update table for 10 times each
Sep
6
comment Faster Eigenvalues with lower precision goal
@RahulNarain good point. I did not notice this difference for MachinePrecision syntax, I'll update the result for MachinePrecision now...This shows that Default is fastest (which is almost the same as using MachinePrecision, but need more runs to verify, which I am doing now....)
Sep
6
revised Faster Eigenvalues with lower precision goal
added 116 characters in body
Sep
6
revised Faster Eigenvalues with lower precision goal
added link to WRI page on eigenvalue
Sep
6
comment Faster Eigenvalues with lower precision goal
@9527 when I do not use any SetPrecision on A, then CPU is just a little more than $MachinePrecision. Updated table above.
Sep
6
revised Faster Eigenvalues with lower precision goal
added default to table
Sep
6
answered Faster Eigenvalues with lower precision goal
Sep
5
awarded  Necromancer
Sep
5
revised How to draw a graph about the FourierTransform of a 2D Function?
explain symbolic vs. fft
Sep
5
revised How to draw a graph about the FourierTransform of a 2D Function?
added 249 characters in body
Sep
5
answered How to draw a graph about the FourierTransform of a 2D Function?
Sep
5
comment Variable scope similar to other languages
reference.wolfram.com/mathematica/tutorial/Contexts.html
Sep
5
comment Variable scope similar to other languages
May be you can look at Begin["scope`"] ..... End[] and see if this does what you want.
Sep
5
comment Definite integral using Riemann sums
Here you are: demonstrations.wolfram.com/search.html?query=riemann%20sum
Sep
4
comment Writing intelligent replacement rules for symbols
also in Mathematica i*j and j*i are the same. So when you write a rule for i*j and a different rule for j*i, then Mathematica will use only one, depending on the full form. Look at FullForm[i*j] and FullForm[j*i], they are the same. But for i^3 to -i part, try this rule: p1 = Power[m_, n_] :> If[n > 2, -m^(n - 2), -m]; then do i^3//.p1
Sep
3
accepted How to keep front and back colors of Polygon in Graphics3D same all the time
Sep
3
comment How to keep front and back colors of Polygon in Graphics3D same all the time
@Kuba it is still not working: Graphics3D[ { FaceForm[Glow@Blue, Glow@Blue], Polygon[{{0, 0, 0}, {0, 1, 0}, {0, 1, 1}, {0, 0, 1}}] }, Lighting -> "Neutral" ] I also tried Lighting -> "Neutral" inside.
Sep
3
comment How to keep front and back colors of Polygon in Graphics3D same all the time
@Kuba thanks. I can't get it to work. Graphics3D[{Lighting -> "Neutral", FaceForm[Glow@Blue, Glow@Blue], Polygon[{{0, 0, 0}, {0, 1, 0}, {0, 1, 1}, {0, 0, 1}}]}] and Graphics3D[{Lighting -> "Neutral", FaceForm[Glow@Blue], Polygon[{{0, 0, 0}, {0, 1, 0}, {0, 1, 1}, {0, 0, 1}}]}]
Sep
3
revised How to keep front and back colors of Polygon in Graphics3D same all the time
added 18 characters in body
Sep
3
asked How to keep front and back colors of Polygon in Graphics3D same all the time