{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 " " 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 219 "xphug :=[ diff(thet a(t),t) = (v(t)^2 - cos(theta(t)))/v(t),\n diff(v(t),t) \+ = -sin(theta(t)) - R*v(t)^2 ,\n diff(x(t),t) = v(t)*cos (theta(t)),\n diff(y(t),t) = v(t)*sin(theta(t))];" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%&xphugG7&/-%%diffG6$-%&thetaG6#%\"tG F-*&,&*$)-%\"vGF,\"\"#\"\"\"F5-%$cosG6#F*!\"\"F5F2F9/-F(6$F2F-,&-%$sin GF8F9*&%\"RGF5F1F5F9/-F(6$-%\"xGF,F-*&F2F5F6F5/-F(6$-%\"yGF,F-*&F2F5F> F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(DEtools):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "R:=0.1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RG$\"\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 354 "display(array([DEplot(xphug,[theta,v,x,y],t=0..10,\n [[v(0)=1.5,theta(0)=0,x(0)=0,y(0)=2]], stepsize=0.1,\n theta=-Pi. .Pi,v=0.01..3,x=-1..5,y=0..3, linecolor=black, scene=[theta,v]),\nDEpl ot(xphug,[theta,v,x,y],t=0..10,\n [[v(0)=1.5,theta(0)=0,x(0)=0,y(0)= 2]], stepsize=0.1,\n theta=-Pi..Pi,v=0.01..3,x=-1..10,y=0..3, lineco lor=black, scene=[x,y])]));" }}{PARA 13 "" 1 "" {GLPLOT2D 620 200 200 {PLOTDATA 2 "6B-%'CURVESG6&7aq7$$\"+++++?!\")$!*TkzB\"F*7$$\"+M**=J?F* $!*Yq29\"F*7$$\"+m(e:1#F*$!)ZZ4')F*7$$\"+nA\"34#F*$!)2K$>%F*7$$\"+;@s= @F*$\")A3+;F*7$$\"++&G^9#F*$\"):m5&)F*7$$\"+#RQ*p@F*$\"*O)4F;F*7$$\"+E .7$>#F*$\"*#zmhCF*7$$\"+amp9AF*$\"*$3[HLF*7$$\"+%GMZB#F*$\"*1+q?%F*7$$ \"+$zMLD#F*$\"*pVG2&F*7$$\"+aYiqAF*$\"*6\"*z!fF*7$$\"+Ghu'G#F*$\"*zJep 'F*7$$\"+\"=\\=I#F*$\"*x'4AuF*7$$\"+WY3;BF*$\"*58Z2)F*7$$\"+B()fHBF*$ \"*u>Ok)F*7$$\"+4*GDM#F*$\"*()y07*F*7$$\"+78+bBF*$\"*d5!*\\*F*7$$\"+'[ HrO#F*$\"*!3(Qx*F*7$$\"+*y9!zBF*$\"*b!eT**F*7$$\"+$G[2R#F*$\"********* *F*7$$\"+zRT-CF*$\"*jF%[**F*7$$\"++H49CF*$\"*>+wy*F*7$$\"+Bs'eU#F*$\"* xx'>&*F*7$$\"+mO#yV#F*$\"*_6#[\"*F*7$$\"+Lb0]CF*$\"**\\5y')F*7$$\"+uJm iCF*$\"*'Ge:\")F*7$$\"+VHvvCF*$\"*!\\Q]#F*$\"*];`&fF*7$$\"+y?,>DF*$\"*V$Q6^F*7$$\"+g:6NDF*$\"*45bA%F* 7$$\"+))=?_DF*$\"*8\"Q6LF*7$$\"+s\"\\.d#F*$\"*]#e$Q#F*7$$\"+$)of*e#F*$ \"*iUtX\"F*7$$\"+n@'*4EF*$\")y+#[&F*7$$\"+sJVJEF*$!)R)QG$F*7$$\"+cw'Rl #F*$!*.)\\d6F*7$$\"+qI\\xEF*$!*<'>D>F*7$$\"+#>3>q#F*$!*(*3!>EF*7$$\"+% G'3FFF*$!*%)[$GKF*7$$\"+K'zGv#F*$!*Qy[u$F*7$$\"+s^7zFF*$!*y$yiTF*7$$\" +h3l0GF*$!*ZR*yWF*7$$\"+jBGKGF*$!*Z`Hp%F*7$$\"+:'\\)eGF*$!*u$42[F*7$$ \"+iG>&)GF*$!*Y/h#[F*7$$\"+Oy;6HF*$!*zHpv%F*7$$\"+7)\\m$HF*$!*on$3YF*7 $$\"+>k`hHF*$!*0!o!R%F*7$$\"+b\"\\d)HF*$!*0&=:TF*7$$\"+(oL#4IF*$!*hbQz $F*7$$\"+v!f>.$F*$!*yV*QMF*7$$\"+-h\"R0$F*$!*&ekiIF*7$$\"+_\\6vIF*$!*& o\"on#F*7$$\"+bCe&4$F*$!*nQFH#F*7$$\"+>\"f`6$F*$!*!3%4#>F*7$$\"+^h\\MJ F*$!*F*7$$\"+ w?:*Q$F*$!*P!)HN#F*7$$\"+t7)oS$F*$!*Pja#GF*7$$\"+%\\J]U$F*$!*Q,$HLF*7$ $\"+dZkVMF*$!*w^u&QF*7$$\"+-`viMF*$!*PZCS%F*7$$\"+j\")Q#[$F*$!*$\\_c\\ F*7$$\"+=zb-NF*$!*Dq<^&F*7$$\"+#pnK_$F*$!*Qy-1'F*7$$\"+@&3Xa$F*$!*3DVf 'F*7$$\"+B\"fic$F*$!*TWl5(F*7$$\"+[h[)e$F*$!*#f5!f(F*7$$\"+&)[96OF*$!* (R))Q!)F*7$$\"+`/=MOF*$!*\\6wW)F*7$$\"+#RHvl$F*$!*[5?\"))F*7$$\"+8;7\" o$F*$!*.$*)G\"*F*7$$\"+'e#)[q$F*$!*uFiR*F*7$$\"+sctGPF*$!*ToJh*F*7$$\" +zWg_PF*$!*ZW+y*F*7$$\"+@^TwPF*$!*29$)*)*F*7$$\"+y#)4+QF*$!*)Q[q**F*7$ $\"+!)4fBQF*$!+,+++5F*7$$\"+W!Qo%QF*$!*&p6\"***F*7$$\"+@JzpQF*$!*+^([* *F*7$$\"+i$>C*QF*$!*WD$y)*F*7$$\"+&o*o9RF*$!*19cy*F*7$$\"+3neORF*$!*W) ew'*F*7$$\"+lB5eRF*$!*Rusb*F*7$$\"+)GP#zRF*$!*F?OV*F*7$$\"+++++SF*$!*0 !Q6$*F*-%&STYLEG6#%%LINEG-%*THICKNESSG6#\"\"$-%'COLOURG6&%$RGBG\"\"!Fg [mFg[m-%%TEXTG6%7$\"#N!\"\"%\"xGFc[m-Fi[m6%7$\"#G\"\"&%\"yGFc[m-F$6'7$ 7$$\")m`p\\F*\"#57$Fi\\m!#57$7$F]]mF]]m7$F[]mF]]m7$7$\"#?F[]m7$Fc]mF]] m7$Fd]m7$\"#SF]]m-%'LEGENDG6#QB__never_display_this_legend_entry6\"-F$ 6.7$7$$!+LxJ#\\*!\"*$!$v*!\"#7$Fa^m$!%D5Ff^m7$7$$!+-1cihFc^mFd^m7$F\\_ mFh^m7$7$$!+sM!G$GFc^mFd^m7$Fa_mFh^m7$7$Fi\\mFd^m7$Fi\\mFh^m7$7$$\"*z5 n#QF*Fd^m7$Fi_mFh^m7$7$$\"*#zYcrF*Fd^m7$F^`mFh^m7$7$$\")m`puF*$!+mC#>3 *Fc^m7$$\")m`pCF*Fe`m7$7$Fc`m$!+__\\T[Fc^m7$Fh`mF\\am7$7$Fc`m$!*O!o5gF c^m7$Fh`mFaam7$7$Fc`m$\"*=f$ROF*7$Fh`mFfam7$7$Fc`m$\"*R'yzyF*7$Fh`mF[b mFh]m-Fi[m6%7$$!+LxJU(*Fc^mFh^m%%-.60G%+ALIGNBELOWG-Fi[m6%7$$!+-1c7kFc ^mFh^m%%-.40GFdbm-Fi[m6%7$$!+sM!G3$Fc^mFh^m%%-.20GFdbm-Fi[m6%7$Fh`mFh^ m%#0.GFdbm-Fi[m6%7$$\"*z5nd$F*Fh^m%$.20GFdbm-Fi[m6%7$$\"*#zY1pF*Fh^m%$ .40GFdbm-Fi[m6%7$Fh`m$!+mC#>L*Fc^m%$.60G%*ALIGNLEFTG-Fi[m6%7$Fh`m$!+__ \\\"4&Fc^m%$.80GFgdm-Fi[m6%7$Fh`m$!*O!o5&)Fc^m%%1.00GFgdm-Fi[m6%7$Fh`m $\"*=f$*Q$F*%%1.20GFgdm-Fi[m6%7$Fh`m$\"*R'yHwF*%%1.40GFgdm-F$6.7$7$$Fc ]mFg[mFd^m7$FdfmFh^m7$7$$\"+,+$)>CF*Fd^m7$FhfmFh^m7$7$$\"+-+mRGF*Fd^m7 $F]gmFh^m7$7$$\"+.+\\fKF*Fd^m7$FbgmFh^m7$7$$\"+/+KzOF*Fd^m7$FggmFh^m7$ 7$$\"%D?Ff^m$!+C%[(>wFc^m7$$\"%v>Ff^mF^hm7$7$F\\hm$!+7k&)GWFc^m7$FahmF ehm7$7$F\\hm$!++W'zB\"Fc^m7$FahmFjhm7$7$F\\hm$\"*hFH&>F*7$FahmF_im7$7$ F\\hm$\"*j>Q9&F*7$FahmFdim7$7$F\\hm$\"*k6ZL)F*7$FahmFiimFh]m-Fi[m6%7$F ahmFh^mFdcmFdbm-Fi[m6%7$$\"+,+$[R#F*Fh^m%#2.GFdbm-Fi[m6%7$$\"+-+m9GF*F h^m%#4.GFdbm-Fi[m6%7$$\"+.+\\MKF*Fh^m%#6.GFdbm-Fi[m6%7$$\"+/+KaOF*Fh^m %#8.GFdbm-Fi[m6%7$Fahm$!+C%[(pyFc^m%$1.6GFgdm-Fi[m6%7$Fahm$!+7k&)yYFc^ m%%1.80GFgdm-Fi[m6%7$Fahm$!++W'z[\"Fc^m%%2.00GFgdm-Fi[m6%7$Fahm$\"*hFH q\"F*%%2.20GFgdm-Fi[m6%7$Fahm$\"*j>Q*[F*%%2.40GFgdm-Fi[m6%7$Fahm$\"*k6 Z3)F*%%2.60GFgdm-F$6&7aq7$$\"+&eO&p\\F]]m$\"+,+++5F*7$$\"+meVb=Fc^m$\" *#[xV%*F*7$$\"+!)os[JFc^m$\"*lJyt)F*7$$\"+u^\"fO%Fc^m$\"*(>H'*yF*7$$\" +OH?'\\&Fc^m$\"**=ZMpF*7$$\"+OFxGlFc^m$\"*ko%oeF*7$$\"+#[\"f_uFc^m$\"* !G\"[r%F*7$$\"+]l9c#)Fc^m$\"*,:-\\$F*7$$\"+1,6F*)Fc^m$\"*4J9@#F*7$$\"+ o;$>X*Fc^m$\")2m_*)F*7$$\"+!*)p`\")*Fc^m$!)!QET%F*7$$\"+++++5F*$!*a$f! y\"F*7$$\"+3#)y&)**Fc^m$!*Q!3/JF*7$$\"+SH$*\\(*Fc^m$!*rz7R%F*7$$\"+!Rp tE*Fc^m$!*Cd!>cF*7$$\"+;Ok7&)Fc^m$!*Ib1w'F*7$$\"+9wAkuFc^m$!*T2]y(F*7$ $\"+qCW7hFc^m$!*,$)ol)F*7$$\"+S\\:rWFc^m$!*:a(Q$*F*7$$\"+SdC!f#Fc^m$!* IT_z*F*7$$\"+Z**R6cF]]m$!+++++5F*7$$!+/IZ$\\\"Fc^m$!*T`G%**F*7$$!+;=-Y MFc^m$!*seMj*F*7$$!+W$HL>&Fc^m$!*=a\"*4*F*7$$!+[O$Gn'Fc^m$!*8?$y$)F*7$ $!+1oWhyFc^m$!*%*HH^(F*7$$!+!o*Gk()Fc^m$!*[OJa'F*7$$!+'**e@S*Fc^m$!*Cw X]&F*7$$!+#eVA!)*Fc^m$!*$[pFWF*7$$!+U'*o#***Fc^m$!*_R\"QLF*7$Fedn$!*IK vD#F*7$$!+#>2\"[)*Fc^m$!*8eU?\"F*7$$!+UNHe&*Fc^m$!)k=T>F*7$$!+#3u%\\\" *Fc^m$\")?'=f(F*7$$!+g7fQ')Fc^m$\"*NOPk\"F*7$$!+qZ+T!)Fc^m$\"*e+#\\CF* 7$$!+y&H3P(Fc^m$\"*#RumJF*7$$!+E$47k'Fc^m$\"*,.!*y$F*7$$!+Ws_keFc^m$\" *..,J%F*7$$!+'ziD0&Fc^m$\"*n$pDZF*7$$!+ARg;UFc^m$\"*(e)H.&F*7$$!+yX_nL Fc^m$\"*`F*7$$!+W@sr;Fc^m$\"*m@4I&F*7$$! +:Md]%)F]]m$\"*#pky^F*7$$!*i>Da%F]]m$\"*5du&\\F*7$$\"+$=:(yrF]]m$\"*'o [VYF*7$$\"+X%*zN9Fc^m$\"*pOSC%F*7$$\"+oSe*4#Fc^m$\"*yNuw$F*7$$\"+#>,2q #Fc^m$\"*k0HA$F*7$$\"+7X(3B$Fc^m$\"*UL/i#F*7$$\"+_j3#o$Fc^m$\"*ch1(>F* 7$$\"+k@hYSFc^m$\"*\"))z%G\"F*7$$\"+1R4n'[%Fc^ m$!)d8z9F*7$$\"+#p*>\\XFc^m$!)LD+()F*7$$\"+7\"o&*\\%Fc^m$!*fG)y:F*7$$ \"+[O;MVFc^m$!*lg5E#F*7$$\"+/DZ^SFc^m$!*mrK!HF*7$$\"+1a\"Gl$Fc^m$!*sO? \\$F*7$$\"+g/:VJFc^m$!*V!H9SF*7$$\"+)4<=`#Fc^m$!*G.yX%F*7$$\"+m%GI$=Fc ^m$!*W#z6[F*7$$\"+se)e1\"Fc^m$!**phn]F*7$$\"+5\")GPDF]]m$!*#=Y>_F*7$$! +l-HsdF]]m$!*;#)[E&F*7$$!+)z?)*R\"Fc^m$!*%[30_F*7$$!+Ue0)=#Fc^m$!*zq[/ &F*7$$!+%\\I!>HFc^m$!*6UAz%F*7$$!+!GtUd$Fc^m$!**evdWF*7$$!+#**p.9%Fc^m $!*!>v`SF*7$$!+-/#*3YFc^m$!*T#e$f$F*7$$!+)H9g(\\Fc^m$!*fQ44$F*7$$!+oMX T_Fc^m$!*<@$fDF*7$$!+5@\"zS&Fc^m$!*&>m6?F*7$$!+iB;![&Fc^m$!*#o2g9F*7$$ !++vUkaFc^m$!)Q>d\"*F*7$$!+=&yyO&Fc^m$!)&Qq)QF*7$$!+OEE)>&Fc^m$\")sG>6 F*7$$!+E.kj\\Fc^m$\")C?#y&F*7$$!+U_?sYFc^m$\"*m$H.5F*7$$!+;R;KVFc^m$\" *CY8Q\"F*7$$!+/ml^RFc^m$\"*)3k2F*7$$!+3v<, JFc^m$\"*0t7>#F*7$$!+IHwYEFc^m$\"*teVM#F*7$$!+'R^H=#Fc^m$\"*LUrV#F*7$$ !+eg,<O#F*7$$!++(fcv$F]]m$\"*clhA#F*7$$\"*gy?6$F]]m$\"*8S2/#F*7$$\"+!fB]2 %F]]m$\"*'355=F*7$$\"+%p61[(F]]m$\"*_[$R:F*7$$\"+-$*oZ5Fc^m$\"*!e8M7F* 7$$\"+\\Pu,8Fc^m$\")6!f+*F*7$$\"+gX61:Fc^m$\")bM_aF*7$$\"+syId;Fc^m$\" )/1\\ " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }