{VERSION 5 0 "IBM INTEL NT" "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 "Courier" 1 12 0 0 0 0 1 1 2 0 0 0 0 0 0 1 }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 1 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }1 0 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 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 0 0 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 0 0 2 2 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 203 "5/25/2001 This worksheet \+ illustrates parametric resonance for forced damped vibrations. It show s how the amplitude of the forces response at the resonant frequency w =1 increases as the damping decreases." }}{PARA 0 "" 0 "" {TEXT -1 0 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "eq := diff(u(t),t$2) + c*diff(u(t),t) + u(t) = cos(w* t);" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "init := u(0)=0, D(u)(0)=0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%initG6$/-%\"uG6#\"\"!F*/--%\"DG6#F(F)F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "sol := rhs(dsolve(\{eq,init\},u(t)) );" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$solG,(*&,(-%$cosG6#*&%\"wG\" \"\"%\"tGF-!\"\"*&F(F-)F,\"\"#F-F-*(F,F--%$sinGF*F-%\"cGF-F/F-,**&)F6F 2F-F1F-F-F-F-*$F1F-!\"#*$)F,\"\"%F-F-F/F/*&*&,.F:!\"%F8F-*(F6F--%%sqrt G6#,&*$F9F-F-FBF-F-F1F-F/F>F-FHF/*&F6F-FDF-F/F--%$expG6#,$*&,&F6F-*$-F E6#*&,&F6F-F;F-F-,&F6F-F2F-F-F-F/F-F.F-#F/F2F-F-*&FGF-F7F-F/#F-F2*&*&, .FHF/F>F-F8F-F:FBFIF-FCF-F--FK6#,$*&,&F6F-FPF-F-F.F-FVF-F-*&FGF-F7F-F/ FX" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "ampl:=sqrt((1-w^2)^2+(c*w)^2)/(c^2*w^2+1-2*w^ 2+w^4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%amplG*&\"\"\"F&*$-%%sqrt G6#,**&)%\"cG\"\"#F&)%\"wGF/F&F&F&F&*$F0F&!\"#*$)F1\"\"%F&F&F&!\"\"" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "c:=.1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG$\"\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(ampl,w=.1..2);" }}{PARA 13 "" 1 "" {GLPLOT2D 434 434 434 {PLOTDATA 2 "6%-%'CURVESG6$7do7$$\"1+++++++5!#;$\"1Fj`$[\\ +,\"!#:7$$\"1nm;Hf999F*$\"1M)41&**H?5F-7$$\"1L$3x3#\\upF*$\"1([Q^zc@!>F-7$$\"1LL$esH\"[tF*$\"1]G<\"Rpk9#F-7$$\"1LLL.e'3 r(F*$\"1r:_&H3JU#F-7$$\"1**\\P%49G8)F*$\"19or$)y(=(GF-7$$\"1mTNh>c>$)F *$\"150V[E&e8$F-7$$\"1LLLG)4j])F*$\"1YnGe&)edMF-7$$\"1lTNO=?6()F*$\"1_ lTmc8+RF-7$$\"1**\\PWQ4;*)F*$\"1>\"y6)*oEZ%F-7$$\"1*\\ilmYO,*F*$\"1!=f tK))e![F-7$$\"1***\\()[*>6\"*F*$\"1i3du&pz=&F-7$$\"1+v$4J_(3#*F*$\"1%) 4A0t:FcF-7$$\"1+]7L^I1$*F*$\"1FI>dRsJhF-7$$\"1$e9\"p743%*F*$\"1[xPaFiM nF-7$$\"1nT50u()4&*F*$\"1sq`j%f]T(F-7$$\"1]P4TNm6'*F*$\"1d<*GJqW:)F-7$ $\"1LL3x'\\Mr*F*$\"1*)4jV6\\**))F-7$$\"1$e9T7@p!)*F*$\"14tK\\95+&*F-7$ $\"1Le9rDR+**F*$\"1!3ha.\\S!**F-7$$\"1YO!HVgP#**F*$\"1?#*eCc\"3'**F-7$ $\"1e9m%HGr%**F*$\"1ec!3/?r***F-7$$\"1r#>k:'\\q**F*$\"1zDX7C@,5!#97$$ \"1$3x\"=S'Q***F*$\"16%*Q!fQ0+\"Fgv7$$\"1r#pT(*fS+\"F-$\"1Qu%[vBq#**F- 7$$\"1L3_YNt35F-$\"1ai)4r:ow*F-7$$\"1U&Q[q:)=5F-$\"1L(*R]b)o>*F-7$$\"1 ]i:jy*)G5F-$\"1O6)[pVVW)F-7$$\"1eRZ@+)*Q5F-$\"1E(=&*pdXk(F-7$$\"1n;zz@ 1\\5F-$\"1![\\=JXB)oF-7$$\"1\"zW(3Z`f5F-$\"1KU\\!fD4<'F-7$$\"17RF-7$$\"1+DckxTF6F-$\"1>h$Q@4i S$F-7$$\"1$3-th4r9\"F-$\"1N*)\\t#*yvHF-7$$\"1n;/q9!o;\"F-$\"1wC8)z7Ij# F-7$$\"1++]\"p)[27F-$\"1Y4y$HZ7F-$\"10-F7ZsbP6F-7$$\"1++Drq,39F-$\"1Nk)y71v+\"F-7$$\"1 nTg_@>X9F-$\"1!\\Q&HnP1\"*F*7$$\"1++vNV$e[\"F-$\"11IqIP@=#)F*7$$\"1L3x ia2C:F-$\"1p8K'o0+^(F*7$$\"1+v=f%[Sc\"F-$\"1tK]vIOuoF*7$$\"1LLep$HJg\" F-$\"1QyP^QQOjF*7$$\"1+v$4YVSk\"F-$\"1pz'G*)H_%eF*7$$\"1nmm$f[Mo\"F-$ \"1[JxC(Q(HaF*7$$\"1n;HLguBs8s%F*7$$\"1++]JBV+=F-$\"1$\\!fIW'oW%F*7$$\"1L$e%30_U=F-$\"1XtvM\"o K;%F*7$$\"1nmmvY;!)=F-$\"11pzO\"QR$RF*7$$\"1+vV47I?>F-$\"1TMc<)*Q6PF*7 $$\"1+Dc$*pre>F-$\"1S=itn+ " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "c :='c';" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 7 "c:=.01;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG$\" \"\"!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(ampl,w=.1. .2);" }}{PARA 13 "" 1 "" {GLPLOT2D 434 434 434 {PLOTDATA 2 "6%-%'CURVE SG6$7ep7$$\"1+++++++5!#;$\"1Gjz%\\+,,\"!#:7$$\"1nm;Hf999F*$\"1K864^S?5 F-7$$\"1L$3x3#\\upF*$\"1\"ej/D$o=>F-7$$\"1LL$es H\"[tF*$\"1ze4[+St@F-7$$\"1LLL.e'3r(F*$\"1\"poa])4mCF-7$$\"1**\\P%49G8 )F*$\"1h)ys+=F&HF-7$$\"1LLLG)4j])F*$\"1K'zR#4)eh$F-7$$\"1lTNO=?6()F*$ \"187Sk+5WTF-7$$\"1**\\PWQ4;*)F*$\"1i#)z7cms[F-7$$\"1***\\()[*>6\"*F*$ \"1R>M5]tyeF-7$$\"1+]7L^I1$*F*$\"1FuOl3!)[uF-7$$\"1$e9\"p743%*F*$\"1wK 2Pq#en)F-7$$\"1nT50u()4&*F*$\"1'p4#>skS5!#97$$\"1]P4TNm6'*F*$\"1(HzTy/ FI\"Fes7$$\"1LL3x'\\Mr*F*$\"1#)putElWnOt]$ Fes7$$\"1?!)Q4Z-x)*F*$\"1=u3QB1$z$Fes7$$\"1FpES'3()))*F*$\"1&=lYv;\\7% Fes7$$\"1Le9rDR+**F*$\"11))=j>@8XFes7$$\"1RZ--l27**F*$\"1x\\-3X_q\\Fes 7$$\"1YO!HVgP#**F*$\"1Dw(\\!RT6bFes7$$\"1_DyjVWN**F*$\"1)[k^?j1:'Fes7$ $\"1e9m%HGr%**F*$\"1<>;)GPy*oFes7$$\"1k.aDA\")e**F*$\"12BgU/*Qu(Fes7$$ \"1r#>k:'\\q**F*$\"1T5@hmeM')Fes7$$\"1x\")H(3!=#)**F*$\"1%oyew/bV*Fes7 $$\"1$3x\"=S'Q***F*$\"1$Gl[B)eJ**Fes7$$\"1*f0\\za0+\"F-$\"1)3LsiDN$**F es7$$\"1!\\$*z=B<+\"F-$\"1tQ5D8))Q%*Fes7$$\"1!Q\"3\"e\"*G+\"F-$\"1#4D> &**yM')Fes7$$\"1r#pT(*fS+\"F-$\"1Dr\"Q,\")yt(Fes7$$\"1hrDn$G_+\"F-$\"1 #e=\"=!p[)oFes7$$\"1_]MgnR15F-$\"1D5:$3@88'Fes7$$\"1VHV`^c25F-$\"1%Rp2 ?Dn[&Fes7$$\"1L3_YNt35F-$\"1z7IWn^T\\Fes7$$\"1Z0J;Q**45F-$\"1?C'4_mwW% Fes7$$\"1g-5'3a7,\"F-$\"1wtp=\\qLSFes7$$\"1u**)eN9D,\"F-$\"1E\"f\"[*** Ro$Fes7$$\"1)ozciuP,\"F-$\"1$RLGT*)fQ$Fes7$$\"1:\"f_;&H;5F-$\"17XmPIn2 HFes7$$\"1U&Q[q:)=5F-$\"17d'p7%)GcAFes7 $$\"1'R(*RycQ-\"F-$\"1zm`q>3E?Fes7$$\"1BodBtPE5F-$\"16rkLbKP=Fes7$$\"1 ]i:jy*)G5F-$\"1%)>t(p;*z;Fes7$$\"1eRZ@+)*Q5F-$\"1-1M*)=dZ7Fes7$$\"1n;z z@1\\5F-$\"1*=^>4:M*)*F-7$$\"1$HZ7F-$\" 1'HJ4^[*)z\"F-7$$\"1+vV3h!eG\"F-$\"1)RV[;+/`\"F-7$$\"1+]7F\"o&G8F-$\"1 I\\PwJ$oI\"F-7$$\"1LL$Gq\"*pO\"F-$\"1aPD7v/^6F-7$$\"1++Drq,39F-$\"1$=* z+Zp<5F-7$$\"1nTg_@>X9F-$\"1c\"oo\"pY&=*F*7$$\"1++vNV$e[\"F-$\"1qtym-b z#)F*7$$\"1L3xia2C:F-$\"1!)*G=r&=fvF*7$$\"1+v=f%[Sc\"F-$\"1\"3wr8TS\"p F*7$$\"1LLep$HJg\"F-$\"1@'oPG)**ojF*7$$\"1+v$4YVSk\"F-$\"1(GRL_M@(eF*7 $$\"1nmm$f[Mo\"F-$\"1_<+)[NBX&F*7$$\"1n;HLguBF-$\" 1u@n0nv?PF*7$$\"1+Dc$*pre>F-$\"1&zybn(HDNF*7$$\"\"#\"\"!$\"1/$G " 0 "" {MPLTEXT 1 0 7 "c:='c';" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cGF$" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "del:=arctan((1-w^2)/(c*w)) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$delG-%'arctanG6#*&,&\"\"\"F**$ )%\"wG\"\"#F*!\"\"F**&%\"cGF*F-F*F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "c:=.1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG$\"\" \"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "plot(del,w=0..2) ;" }}{PARA 13 "" 1 "" {GLPLOT2D 434 434 434 {PLOTDATA 2 "6%-%'CURVESG6 $7gn7$$\"1+++M3VfV!#<$\"1_(>IiGkc\"!#:7$$\"1+++j&*)fD'F*$\"1#Q)GRe^k:F -7$$\"1+++#H[D:)F*$\"1WQ3:%*ei:F-7$$\"1+++e0$=C\"!#;$\"1\"HYB=%=e:F-7$ $\"1+++3RBr;F;$\"1uh1!\\0Ob\"F-7$$\"1+++zjf)4#F;$\"1FgHkq%)[:F-7$$\"1+ ++'4;[\\#F;$\"10\\qw&)>W:F-7$$\"1+++j'y]!HF;$\"1)e#)*e%y!R:F-7$$\"1+++ 'zs$HLF;$\"1$>_R[pL`\"F-7$$\"1+++8iI_PF;$\"1:%>t1_r_\"F-7$$\"1+++<_M(= %F;$\"1PEBeL1?:F-7$$\"1+++4y_qXF;$\"1Xo'HM'38:F-7$$\"1+++]1!>+&F;$\"1B '*\\*4'=/:F-7$$\"1+++]Z/NaF;$\"1\\!)=([7Q\\\"F-7$$\"1+++]$fC&eF;$\"1m/ H#y*G%o/\"F-7$$\"1+++'GM)o$*F;$\"1$fX>u-!p\"*F;7$$\"1+++!G; cc*F;$\"1Yp)*oE@ksF;7$$\"1*****HEW@d#)p%o)eF;7$$\"1+++XA(yx* F;$\"13&zGXIFA%F;7$$\"1,++G-+%))*F;$\"1)3Kg0\"e#H#F;7$$\"1+++4#G,***F; $\"1X6OCo2v>F*7$$\"1+++Ol.55F-$!1O07#4#Rr>F;7$$\"1+++^-1@5F-$!11Yq7$o& \\RF;7$$\"1+++mR3K5F-$!18G\\-t1McF;7$$\"1+++!o2J/\"F-$!1dg&ep#)>,(F;7$ $\"1+++K+Ii5F-$!16Mq_s=*z)F;7$$\"1+++%Q#\\\"3\"F-$!1x\"\\\\-0K+\"F-7$$ \"1+++]1A-6F-$!1fugwV'o4\"F-7$$\"1+++;*[H7\"F-$!1]@Y.$3X;\"F-7$$\"1+++ qvxl6F-$!1.5]%**RoD\"F-7$$\"1+++`qn27F-$!1!R7'o*RKJ\"F-7$$\"1+++cp@[7F -$!15MFS>u]8F-7$$\"1+++3'HKH\"F-$!1I8[^zz!Q\"F-7$$\"1+++xanL8F-$!1j\"y X_q6S\"F-7$$\"1+++v+'oP\"F-$!1R>=f9F-7$$\"1+++U9C#e\"F-$!1(eu-AWfY\"F-7$$\"1++ +1*3`i\"F-$!19@]q?6s9F-7$$\"1+++$*zym;F-$!1\\D4>RLx9F-7$$\"1+++^j?4F-$!1hs:*)R>*\\\"F-7$$\"1+++/Uac>F-$!1WBH_Ks,:F -7$$\"\"#\"\"!$!1t!>I;GU]\"F--%'COLOURG6&%$RGBG$\"#5!\"\"Fi]lFi]l-%+AX ESLABELSG6$Q\"w6\"%!G-%%VIEWG6$;Fi]lFg]l%(DEFAULTG" 1 2 0 1 0 2 9 0 4 2 1 0.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 7 "c:=.01;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\" cG$\"\"\"!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "plot(del,w =0..2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 \+ 0" 26 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }