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

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Bill Simpson
12/05/12 8:20pm

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

URL: ,

Subject (listing for 'DSolve won't evaluate')
Author Date Posted
DSolve won't evaluate Gandalf Saxe 12/01/12 01:41am
Re: DSolve won't evaluate Bill Simpson 12/05/12 8:20pm
Re: Re: DSolve won't evaluate Gandalf Saxe 12/07/12 04:05am
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic