| Author |
Comment/Response |
Pam Manzer
|
 10/03/99 7:09pm
Hello,
This is the third time that I've written trying to get help with this diffeq problem. Here are all of the steps that you told me to do and something is wrong.
(step 1) eqn=y'[x]==Sin[x]+Sin[y[x]]; (I tired Sin[x]+Sin[y], but that didn't work.
(step 2)<<Graphics`PlotField`
(step 4)field=PlotVectorField[{1,Last[eqn]},{x,-2,2},
{y[x],-2,2}]
(step 5)sol=DSolve[eqn,y[x],x]; (worked, but took along time, but when I had x, y[x] then it works)
(step 6)ysol[x_]=y[x]/.First [sol]; (when I had y[x], x on step 5, then this one didn't work, but when I had x, y[x] then it worked. Same goes for step 7, but not 8 and 9 (either way I did it))
(step 7) functionlist=ysol[x]/.C[1]->Range[-2,2,1/2];
(step 8) lines=Plot[Evaluate[functionlist],{x,-2,2}, PlotStyle->{RGBColor[1,0,0]}, PlotRange->{0,-2,2]},AspectRatio->Automatic]
(step 9) Show[lines, field]
I hope that you can understand this...I'm stuck!!!!
Thanks,
Pam
URL: , |
|
