Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum > General > > "DSolve won't evaluate"

Post Reply:
Name:
Email Address:

Please send email when my message is replied to.

Url (optional):
Subject:
Message: view original message?
Attachment (optional):
Please answer this:3+2 =



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