23,082 reputation
13377
bio website
location
age
visits member for 2 years, 10 months
seen 34 mins ago

Nov
8
revised Evaluate function defined by DifferentialRoot
added 4 characters in body
Nov
8
comment TrigExpand Idiosyncracies
TrigExpand[Sin[0.2 x]] converts 0.2 to a complex number I think the complex part can from floating point, behind the scene computation since you are using real. But if you do Chop on it, it is ok: TrigExpand[Sin[0.2 x]] // Chop gives Sin[0.2 x]
Nov
8
comment TrigExpand Idiosyncracies
What should M have returned for TrigExpand[Sin[x]^2 Sin[y]] ?
Nov
8
answered Evaluate function defined by DifferentialRoot
Nov
7
comment How to show output of a matrix in m(1,1)=a11 m(1,2)=a12 …in this way…i have 50 *50 size matrix
Ok, now it makes sense :), I thought you were using some new symbol/command in V10 but could not find it.
Nov
7
comment How to show output of a matrix in m(1,1)=a11 m(1,2)=a12 …in this way…i have 50 *50 size matrix
What is %102?
Nov
7
comment How to exclude some indices in defining Table?
I used general function f. For your example, use # & /@ range instead. Or you can even do Table[If[n != 0, n, Sequence @@ {}], {n, -10, 10}] but this might not be as efficient. Not sure. Or if you want to use Table on range, see Algohi note above.
Nov
7
comment How to exclude some indices in defining Table?
I would make the range separately, and remove the unwanted indices, then map the function to the result. Like this range = Range[-10, 10]; range = DeleteCases[range, 0]; f[#] & /@ range. There are many other ways to do this.
Nov
7
comment Using Animate/ListPointPlot3D on more than one list
Why bother with Animate when you can use Manipulate? Manipulate is super set of Animate, plus much more functionality. At min, Manipulate=Animate, (click the play botton on the slider, it becomes Animate). But you have better control of things.
Nov
7
comment Dynamic Infinite Loop
Everything seems to depend on Pn[] but you have not even defined Pn[]. You code says If[Pn[i - 1] > 0 How is M supposed to know which branch to get, if Pn array is not defined anywhere? If you have it defined somewhere, then need to include complete self contained code. not part of the code.
Nov
7
comment How to show output of a matrix in m(1,1)=a11 m(1,2)=a12 …in this way…i have 50 *50 size matrix
You mean like this !Mathematica graphics Array[a, {5, 5}]? Question not clear. What is the context? ps. I just saw your other question here mathematica.stackexchange.com/questions/65148/… is this different?
Nov
7
comment Real-like jet engine flame
Nice, but need a heat control slider :) Manipulate[ Graphics3D[ {Opacity[op], Raster3D[Table[Append[List @@ ColorData["BlackBodySpectrum"][#], Clip[(# - 6000) (10000 - #)^2/2.5*^10]] &@temp[x, y, z], {x, -5, 5, 1/2}, {y, -5, 5, 1/2}, {z, 0, 30, 1/2}]] },Axes -> True, Background -> Black], {{op, .5, "How hot?"}, 0, 1, .1}, SynchronousUpdating -> False, Initialization :> (temp[x_, y_, z_] := 10000 Exp[-Sqrt[4 + (z - 5)^2]/50]*40/(40 + x^2 + y^2) )] !Mathematica graphics
Nov
7
comment DSolve echoes input
DSolve can't find closed form solution. Why do you expect that for these coupled, non-linear ordinary differential equations there will be analytical solution? only some of the very simple non-linear ode's have analytical solution.
Nov
7
awarded  Enlightened
Nov
7
comment Mathematica 10 cannot solve definite integral
int = Integrate[HermiteH[5, x] HermiteH[6, x] HermiteH[5, x] Exp[-x^2], x]; Limit[int, x -> Infinity] - Limit[int, x -> -Infinity] gives 36864000 Sqrt[Pi]
Nov
7
revised Eliminate symbols from Lists
added 69 characters in body
Nov
7
revised Eliminate symbols from Lists
added 69 characters in body
Nov
7
comment Eliminate symbols from Lists
The code you posted does not work. First of all, do not use UPPERCASE single letter. D means derivative.
Nov
7
answered Eliminate symbols from Lists
Nov
6
comment Would you give me some advice on Elliott's equation?
You can't use E as the integration variable, since in Mathematica E is exp function. ?E try different lower case symbol.