3,876 reputation
1838
bio website
location China
age
visits member for 2 years, 1 month
seen 6 hours ago

Feel free to correct the grammar mistakes in my posts.


Aug
6
comment Use Runga-Kutta method to solve a system of many ODEs
Do you mean Plot[Evaluate[Sum[I0[k][t] + I1[k][t], {k, 1, 5}] /. n1 /. n2], {t, 0, 80}, PlotRange -> All] ?
Aug
6
comment When I use Rule, why doesn't this work?
@Analysis You need another attribute OneIdentity added. See here for more details.
Aug
6
comment When I use Rule, why doesn't this work?
Well, not quite correct because if you check the FullForm of k.k.k what you'll see is Dot[k, k, k], the true cause lies in the Attributes.
Aug
6
answered When I use Rule, why doesn't this work?
Aug
6
comment the winding number for the circle map (Arnold tongue)
And wraping m with Round as @george2079 suggested is also a valid approach.
Aug
6
comment the winding number for the circle map (Arnold tongue)
@heropup Oh, seems that it's necessary to declare the type of m in this case (I added those declarations habitually in my code so didn't notice this) : f = Compile[{n, {m, _Integer}, a, k}, Mean[Nest[# + a - k Sin[2 Pi #] &, RandomReal[1, m], n]]/n];
Aug
5
comment the winding number for the circle map (Arnold tongue)
If you use RandomReal[1, m] instead of the Table[……], the code'll be about one time faster :)
Aug
4
awarded  Enlightened
Aug
4
awarded  Nice Answer
Aug
4
reviewed Approve suggested edit on the winding number for the circle map (Arnold tongue)
Aug
4
comment V10's Operator Forms - what are they good for?
Er… is the /* in the last example irreplaceable? // seems to have the same effect.
Jul
31
comment How to get solution from DSolve
@AlexeiBoulbitch Because I'm not sure if this is what OP wants , % is surely not a function :)
Jul
31
comment How to get solution from DSolve
Well, then have you considered DSolveValue[……] (* start a new line *) Manipulate[Plot[%, {x, 0, 5}], {a, -5, 5}, {c, -5, 5}]?
Jul
31
comment How to get solution from DSolve
You mean DSolveValue?
Jul
30
awarded  Yearling
Jul
29
answered How to automatically plot asymptotes?
Jul
28
revised How can I solve my system of differential equations?
another method added.; added 49 characters in body
Jul
28
comment How can I solve my system of differential equations?
@raj See my edit.
Jul
28
revised How can I solve my system of differential equations?
Add the completely numeric solution
Jul
28
awarded  Cleanup