| Author |
Comment/Response |
Gandalf Saxe
|
 12/07/12 04:05am
In Response To 'Re: DSolve won't evaluate'
---------
That works, thanks! :)
There was a small parenthesis mistake, here is the cleaned code that works copy-pasted:
eq1 = p1'[t] == p3[t] Sin[t];
eq2 = p2'[t] == -Cos[t] p3[t];
eq3 = p3'[t] == Cos[t] p2[t] - p1[t] Sin[t];
{a, b, c} = {p1[t], p2[t], p3[t]} /.First[NDSolve[{eq1, eq2, eq3, p1[0] == 0, p2[0] == 1,p3[0] == 1}, {p1[t], p2[t], p3[t]}, {t, 0, 1}] ]
Plot[{a, b, c}, {t, 0, 1}]
I must say that a warning message from Mathematica saying that an analytical method isn't possible with the methods available to DSolve would be much more appropriate than simply returning the input command... that is so Maple'ish :/
URL: , |
|
