| Original Message (ID '157636') By Bill Simpson: |
| Perhaps it just cannot find a closed form solution.
Will a numerical solution work for you?
In[1]:= 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}]
In[2]:= Plot[{a,b,c},{t,0,1}]
Out[2]= plotSnipped
Please check this carefully for any scrape-n-paste errors. Thank you |
|
