{VERSION 6 0 "IBM INTEL NT" "6.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 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 
11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 
0 0 0 1 0 1 0 2 2 0 1 }{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 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "eq1:=M*Xdd=M*g*sin(alpha)-f;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq1G/*&%\"MG\"\"\"%$XddGF(,&*(F'F(%
\"gGF(-%$sinG6#%&alphaGF(F(%\"fG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "eq2:=M/2*R*Xdd=R*f;" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%$eq2G/,$**\"\"#!\"\"%\"MG\"\"\"%\"RGF+%$XddGF+F+*&F,F+%\"fGF+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "sol:=solve(\{eq1,eq2\},\{Xdd
,f\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG<$/%\"fG,$*&#\"\"\"\"
\"$F+*(%\"MGF+%\"gGF+-%$sinG6#%&alphaGF+F+F+/%$XddG,$*&#\"\"#F,F+*&F/F
+F0F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "assign(sol);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "f;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,$*&#\"\"\"\"\"$F&*(%\"MGF&%\"gGF&-%$sinG6#%&alphaGF&F&
F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "Xdd;" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#,$*&#\"\"#\"\"$\"\"\"*&%\"gGF(-%$sinG6#%&alphaGF(F(F
(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 41 "NE:=m*diff(y(t),t$2)=-m*g-b*diff(y(t),t);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#NEG/*&%\"mG\"\"\"-%%diffG6$-%\"yG6#%\"tG-%\"$G6$F/\"
\"#F(,&*&F'F(%\"gGF(!\"\"*&%\"bGF(-F*6$F,F/F(F7" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 26 "IC:=y(0)=1000,D(y)(0)=-10;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%#ICG6$/-%\"yG6#\"\"!\"%+5/--%\"DG6#F(F)!#5" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "sol:=dsolve(\{NE,IC\});" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG/-%\"yG6#%\"tG,(**%\"mG\"\"\"%
\"bG!\"#-%$expG6#,$*(F.F-F,!\"\"F)F-F5F-,&*&\"#5F-F.F-F5*&F,F-%\"gGF-F
-F-F5**F,F-F.F5F:F-F)F-F5*&,(*&\"%+5F-)F.\"\"#F-F-*(F8F-F,F-F.F-F5*&)F
,FAF-F:F-F-F-F.F/F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "rhs(s
ol);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(**%\"mG\"\"\"%\"bG!\"#-%$exp
G6#,$*(F'F&F%!\"\"%\"tGF&F.F&,&*&\"#5F&F'F&F.*&F%F&%\"gGF&F&F&F.**F%F&
F'F.F4F&F/F&F.*&,(*&\"%+5F&)F'\"\"#F&F&*(F2F&F%F&F'F&F.*&)F%F;F&F4F&F&
F&F'F(F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "Y:=eval(rhs(sol
),\{g=9.8,b=150,m=75\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"YG,(*&
$\"++++]D!\"*\"\"\"-%$expG6#,$*&\"\"#F*%\"tGF*!\"\"F*F**&$\"+++++\\F)F
*F1F*F2$\"+++]u**!\"(F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "
plot(Y,t=0..200);" }}{PARA 13 "" 1 "" {GLPLOT2D 458 177 177 {PLOTDATA 
2 "6%-%'CURVESG6$7S7$$\"\"!F)$\"%+5F)7$$\"3eLLLL3VfV!#<$\"3W`Dtd?*3w*!
#:7$$\"3=nmm\"H[D:)F/$\"3%HTBe8D]d*F27$$\"3QLLLe0$=C\"!#;$\"3o$3<k-.gO
*F27$$\"3oLLL3RBr;F;$\"3smm\"\\Q&fb\"*F27$$\"3kmm;zjf)4#F;$\"3SL$3Ux(=
Y*)F27$$\"3CLL$e4;[\\#F;$\"3qm;/8,/_()F27$$\"31++]i'y]!HF;$\"3)3+v`X65
b)F27$$\"3]LL$ezs$HLF;$\"3]m;/It5V$)F27$$\"3G++]7iI_PF;$\"3T+](e&*pe8)
F27$$\"3Qnmm;_M(=%F;$\"3pLL$Q%3qAzF27$$\"3-MLL3y_qXF;$\"3Tmm\"RPT\\t(F
27$$\"3/,++]1!>+&F;$\"3o****\\\"ooN_(F27$$\"39+++]Z/NaF;$\"3U++]s!G8J(
F27$$\"3)3+++NfC&eF;$\"3x****\\=\\z1rF27$$\"3)QLLez6:B'F;$\"3(emT+Af5#
pF27$$\"3'zmmm\"=C#o'F;$\"3CKL$)4:?+nF27$$\"3kmmmm#pS1(F;$\"3jLLLfg58l
F27$$\"3q++]i`A3vF;$\"35+]Ps&paH'F27$$\"3Fnmmm(y8!zF;$\"3]KLL/W#G5'F27
$$\"3K,+]i.tK$)F;$\"3m)*\\PA@Y\"*eF27$$\"3X++](3zMu)F;$\"39+]7Z_>!p&F2
7$$\"37omm\"H_?<*F;$\"3qKL3xV>![&F27$$\"3Qnm;zihl&*F;$\"3'HL3K-[tG&F27
$$\"3AMLL3#G,***F;$\"3_mm\"z<P$z]F27$$\"3WLLezw5V5F2$\"3[m;/qBFj[F27$$
\"35++v$Q#\\\"3\"F2$\"3U**\\i>t=vYF27$$\"3RLL$e\"*[H7\"F2$\"3)om;CJ]?Z
%F27$$\"31+++qvxl6F2$\"3]*****p!**=iUF27$$\"31++]_qn27F2$\"3))***\\FW#
)o0%F27$$\"3/++Dcp@[7F2$\"3u**\\P9pBeQF27$$\"3#*****\\2'HKH\"F2$\"3N++
DB\\nPOF27$$\"3nmmmwanL8F2$\"3FLLLk,\\RMF27$$\"3;+++v+'oP\"F2$\"3D****
\\Kc)yA$F27$$\"3CLLeR<*fT\"F2$\"3sm;/w/9OIF27$$\"3C+++&)Hxe9F2$\"3g)**
*\\tB^EGF27$$\"3amm\"H!o-*\\\"F2$\"3SL$3dmo#HEF27$$\"3=++DTO5T:F2$\"3_
)*\\(y:#4BCF27$$\"3immmT9C#e\"F2$\"3ELL$e$p^@AF27$$\"37++D1*3`i\"F2$\"
3n**\\Pfj[5?F27$$\"3eLLL$*zym;F2$\"3wlmmK)Qs!=F27$$\"3PLL$3N1#4<F2$\"3
Emm\"4)))Q*f\"F27$$\"3)pm;HYt7v\"F2$\"3KJ$3<.gKR\"F27$$\"3A+++q(G**y\"
F2$\"3%))****p-\\Q?\"F27$$\"3vmm;9@BM=F2$\"39BL$eSEw')*F;7$$\"3]LLL`v&
Q(=F2$\"3)Glmm))zf#zF;7$$\"3E++DOl5;>F2$\"3E\")*\\Pszd&eF;7$$\"3I++v.U
ac>F2$\"3C')*\\i,MV(QF;7$$\"$+#F)$\"3=$**********\\u\"F;-%'COLOURG6&%$
RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"t6\"Q!Fd[l-%%VIEWG6$;F(Fez%(DEFAU
LTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1
" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "15 0 0" 0 
}{VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }