{VERSION 2 3 "IBM INTEL NT" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {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 -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 }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 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "W(p):=10/(p^3-4*p^2+ 10*p+0.4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"WG6#%\"pG,$*$,**$F' \"\"$\"\"\"*$F'\"\"#!\"%F'\"#5$\"\"%!\"\"F-F4F1" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 22 "l:=solve(denom(W(p)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"lG6%$!+9yPPR!#6,&$\"+*)oo>?!\"*\"\"\"%\"IG$!+2uulCF ,,&F*F-F.$\"+2uulCF," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ch: =subs(p=I*w,W(p));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#chG,$*$,**&% \"IG\"\"\"%\"wG\"\"$!\"\"*$F+\"\"#\"\"%*&F)F*F+F*\"#5$F0F-F*F-F2" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "complexplot(ch,w=0..20);" }}{PARA 13 "" 1 "" {INLPLOT "6#-%'CURVESG6$7bp7$$\"+++++D!\")\"\"!7$$\"+aD(oB# F*$!+#\\)4/w!\"*7$$\"+yR4.F1$!+ax*)RgF17$$\"+D\\\")Q< F1$!+Pgz#f&F17$$\"+#)Gn[:F1$!+.tH._F17$$\"+[Bf&R\"F1$!+[:nh[F17$$\"+b% [1F\"F1$!+uJ1gXF17$$\"+r0Un6F1$!+%3G@H%F17$$\"+*)H?\"3\"F1$!+(HBF0%F17 $$\"+>$)[35F1$!+#Gcw$QF17$$\"+K2Am%*!#5$!+it[VOF17$$\"+q;nN*)Fdq$!+VbP nMF17$$\"+5RSx%)Fdq$!+n%epI$F17$$\"+U'p*y!)Fdq$!+3)e-;$F17$$\"+wuZIxFd q$!+o4hDIF17$$\"+z.*RU(Fdq$!+$Q.;!HF17$$\"+oc]7pFdq$!+;\"o3o#F17$$\"+K A#e]'Fdq$!+u:K!\\#F17$$\"+*yNu<'Fdq$!+RiF17$$\"+!=@jF&Fdq$!+xJ[#y\"F17$$\"+P(4@2&Fdq$!+ uJqJ;F17$$\"+@A59\\Fdq$!+0s*G]\"F17$$\"+H7(3p%Fdq$!+9X+%H\"F17$$\"+7w= YXFdq$!+B%R78\"F17$$\"+gM3RWFdq$!+6$4_&)*Fdq7$$\"+NxnnVFdq$!+_)RKn)Fdq 7$$\"+z\\t$QG&Fdy7$$\"+!=aL\"))Fdy$\"+$[cYA&Fdy7$$\"+8S*QQ'Fdy$\"+ T*)3tZFdy7$$\"+KUuzYFdy$\"+Jc)=>%Fdy7$$\"+uW-@NFdy$\"+uc'pj$Fdy7$$\"+& fTZv#Fdy$\"+*z+#yJFdy7$$\"+95r*3#Fdy$\"+$y>Jq#Fdy7$$\"+81Ru;Fdy$\"+'3, (fBFdy7$$\"+`>O68Fdy$\"+&)HF@?Fdy7$$\"+nC.o5Fdy$\"+NG(*oFd]l$\"+\\4C5aFd ]l7$$\"+YP$\\o\"Fd]l$\"+'*HG<\\Fd]l7$$\"+GrYg9Fd]l$\"+**f\"oV%Fd]l7$$ \"+ul$)*G\"Fd]l$\"+(f&\\cSFd]l7$$\"+5uFM6Fd]l$\"+(o\\kp$Fd]l7$$\"+uG48 5Fd]l$\"+NHw0MFd]l7$$\"+KCf&)*)!#8$\"+-d_@JFd]l7$$\"+-p<_!)F`bl$\"+1Y. #)GFd]l7$$\"+_R_-sF`bl$\"+z)**pl#Fd]l7$$\"+o'evZ'F`bl$\"+;a$*eCFd]l7$$ \"+s&QP\"eF`bl$\"+j]*>F#Fd]l7$$\"+%>kHD&F`bl$\"+HkM4@Fd]l7$$\"+I+tZZF` bl$\"+e')fe>Fd]l7$$\"+J>J0VF`bl$\"+P0*G#=Fd]l7$$\"+MUOVRF`bl$\"+[Z(*3< Fd]l7$$\"+r;4uNF`bl$\"+\"=U(*e\"Fd]l7$$\"+#G'yzKF`bl$\"+S4G#\\\"Fd]l7$ $\"+#4=')*HF`bl$\"+4O\"pR\"Fd]l7$$\"+ki>dFF`bl$\"+W1288Fd]l7$$\"+_#RU_ #F`bl$\"+r!f-B\"Fd]l-%'COLOURG6&%$RGBG$\"#5!\"\"F+F+" 2 496 496 496 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 20030 0 12020 0 0 0 0 0 0 0 1 1 0 0 0 349 2 0 0 0 0 0 1 }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "L:=20*log10(abs(ch));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LG,$-%&log10G6#,$*$-%$absG6#,**&% \"IG\"\"\"%\"wG\"\"$!\"\"*$F2\"\"#\"\"%*&F0F1F2F1\"#5$F7F4F1F4F9\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "plot(L,w=0..10);" }} {PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7W7$\"\"!$\"+=+)ez#!\")7$$\"+ S&)G\\a!#6$\"+GzAJBF+7$$\"+3x&)*3\"!#5$\"+%4w%e=F+7$$\"+ilyM;F5$\"+S,L N:F+7$$\"+;arz@F5$\"+(>TjH\"F+7$$\"+\"y%*z7$F5$\"+_6X0**!\"*7$$\"+XTFw SF5$\"+eBCWwFG7$$\"+\"z_\"4iF5$\"+/0$R/%FG7$$\"+S&phN)F5$\"+dkK6:FG7$$ \"+*=)H\\5FG$!+]bQYUF57$$\"+[!3uC\"FG$!+S*)R)*=FG7$$\"+J$RDX\"FG$!+3:_ 6KFG7$$\"+)R'ok;FG$!+!=O-U%FG7$$\"+1J:w=FG$!+s(3C`&FG7$$\"+3En$4#FG$!+ s3lEmFG7$$\"+/RE&G#FG$!+o^TxvFG7$$\"+D.&4]#FG$!+#[Ohl)FG7$$\"+vB_OokF+7$$\"+R\"3Gy%FG$!+sgq(3#F+7$$\"+.T1&*\\FG$ !+gWh$>#F+7$$\"+(RQb@&FG$!+'o%\\+BF+7$$\"+=>Y2aFG$!+Qi\"4R#F+7$$\"+yXu 9cFG$!+kw&e[#F+7$$\"+\\y))GeFG$!+!eM5e#F+7$$\"+i_QQgFG$!+ajOrEF+7$$\"+ !y%3TiFG$!+mkBcFF+7$$\"+O![hY'FG$!+[cmZGF+7$$\"+#Qx$omFG$!+aTSFHF+7$$ \"+u.I%)oFG$!+Y%H,,$F+7$$\"+(pe*zqFG$!+S?.$3$F+7$$\"+C\\'QH(FG$!+-YfgJ F+7$$\"+8S8&\\(FG$!+G]iJKF+7$$\"+0#=bq(FG$!+-O%RI$F+7$$\"+2s?6zFG$!+q \"GGP$F+7$$\"+IXaE\")FG$!+[U5VMF+7$$\"+l*RRL)FG$!+7,44NF+7$$\"+`<.Y&)F G$!+G\\#\\d$F+7$$\"+8tOc()FG$!+)pW'QOF+7$$\"+\\Qk\\*)FG$!+kv(ep$F+7$$ \"+p0;r\"*FG$!+]i)*fPF+7$$\"+lxGp$*FG$!+!pOg\"QF+7$$\"+!oK0e*FG$!+')R^ uQF+7$$\"+<5s#y*FG$!+SIHHRF+7$$\"#5F($!+a]\"p)RF+-%'COLOURG6&%$RGBG$Fj [l!\"\"F(F(-%+AXESLABELSG6$%\"wG%!G-%%VIEWG6$;F(Fi[l%(DEFAULTG" 2 496 496 496 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 32010 31498 0 0 0 0 0 1 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "theta:=argument(ch);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&thetaG-%)argumentG6#*$,**&%\"IG\"\"\"%\"wG\"\"$!\"\" *$F-\"\"#\"\"%*&F+F,F-F,\"#5$F2F/F,F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "plot(theta*180/Pi,w=0..10);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7\\o7$\"\"!F(7$$\"+v1h6o!#7$!+Nqwf'*!\"*7$$\"+ N@Ki8!#6$!+P@^x=!\")7$$\"+.K[V?F3$!+$Rejp#F67$$\"+qUkCFF3$!+)yGiS$F67$ $\"+0k'p3%F3$!+*)Go8XF67$$\"+S&)G\\aF3$!+%HW3H&F67$$\"+5G$R<)F3$!+T&>< C'F67$$\"+3x&)*3\"!#5$!+8*G_w'F67$$\"+ilyM;FS$!+'QRHF(F67$$\"+;arz@FS$ !+#*[TyuF67$$\"+e_y;CFS$!+btiAvF67$$\"+*4bQl#FS$!+Sbb\\vF67$$\"+T\\#4* GFS$!+pVIjvF67$$\"+\"y%*z7$FS$!+q2xmvF67$$\"+kW8-OFS$!+(G92b(F67$$\"+X TFwSFS$!+lOg7vF67$$\"+pMrU^FS$!+^#)\\wtF67$$\"+\"z_\"4iFS$!+!4vy>(F67$ $\"+S&phN)FS$!+CWrmnF67$$\"+*=)H\\5F/$!+)**zuF'F67$$\"+[!3uC\"F/$!+^%y My&F67$$\"+J$RDX\"F/$!+5VvN_F67$$\"+)R'ok;F/$!+S>sLYF67$$\"+1J:w=F/$!+ )*pv,SF67$$\"+3En$4#F/$!+'>v_K$F67$$\"+/RE&G#F/$!+H/,:FF67$$\"+D.&4]#F /$!+!4RG-#F67$$\"+vB_pF/7$$\"+(*ev :JF/$!+o=xG8F/7$$\"+347TLF/$\"+4L))H\\F/7$$\"+LY.KNF/$\"+p4(*f)*F/7$$ \"+\"o7Tv$F/$\"+jF67$$\"+\"=lj;%F/$\"+ovB qBF67$$\"+V&RY2aF/$\"+L'Hd:%F67$$\"+yXu9cF/$\"+VoLpVF67$$\"+\\y))GeF/$\"+4merXF67 $$\"+i_QQgF/$\"+dyK`ZF67$$\"+!y%3TiF/$\"+:#Rc\"\\F67$$\"+O![hY'F/$\"+8 +&>3&F67$$\"+#Qx$omF/$\"+bG@?_F67$$\"+u.I%)oF/$\"+'4$Qd`F67$$\"+(pe*zq F/$\"+#HmKZ&F67$$\"+C\\'QH(F/$\"+%3$p\"f&F67$$\"+8S8&\\(F/$\"+84(fp&F6 7$$\"+0#=bq(F/$\"+nLC)z&F67$$\"+2s?6zF/$\"+!Hw@*eF67$$\"+IXaE\")F/$\"+ Fqm%)fF67$$\"+l*RRL)F/$\"+=sdogF67$$\"+`<.Y&)F/$\"+qae\\hF67$$\"+8tOc( )F/$\"+5(>bA'F67$$\"+\\Qk\\*)F/$\"+- " 0 "" {MPLTEXT 1 0 54 "semilogplot([L,theta*180/Pi,-180,180],w=0 .0001..1000);" }}{PARA 13 "" 1 "" {INLPLOT "6)-%'CURVESG6$7gn7$$!+++++ S!\"*$\"+;s(ez#!\")7$$!+BZ'om\"!#5$\"+93$=D$F*7$$\"+zk6V8F1$!+ci-cEF*7 $$\"+8G#R5$F1$!+)[0rP'F*7$$\"+]qD`VF1$!+'R./!)*F*7$$\"+4l69hF1$!+fIr@< F-7$$\"+6tZjtF1$!+7fM5CF-7$$\"+OLOC\"*F1$!+StNeMF-7$$\"+UPPP5F*$!+50k7 UF-7$$\"+tOY87F*$!+9%p[F&F-7$$\"+Xx+A>F *$!+w$)zJ&*F-7$$\"+%H**3-#F*$!+LQ_75!\"(7$$\"+Y)3g4#F*$!+hTfd5Fdp7$$\" +c\"G@;#F*$!+q'os4\"Fdp7$$\"+[EL@AF*$!+ELzK6Fdp7$$\"+l%oKF#F*$!+Zh&R; \"Fdp7$$\"+N*34K#F*$!++9a#>\"Fdp7$$\"+2l$*eBF*$!+z&e`@\"Fdp7$$\"+'>0\" )R#F*$!+T.')Q7Fdp7$$\"+XK.ZM\"Fdp7$$\"+_Hn'f#F*$!+eE+e8Fdp7$$\"+%Rd( >EF*$!+OM&=P\"Fdp7$$\"+OVlSEF*$!+$p\"R%Q\"Fdp7$$\"+ylVhEF*$!+@6'oR\"Fd p7$$\"+2IozEF*$!+X!4yS\"Fdp7$$\"+56a)p#F*$!+qR7>9Fdp7$$\"+(=*Hc:x9Fdp7$$\"+ nck5GF*$!+&)pQ'[\"Fdp7$$\"+\">?S#GF*$!+Cee%3(F-7$F5$!+1Qs![&F-7$ F:$!+?D'H[$F-7$F?$!+?ei78F-7$$\"+-`KA`F1$\"+P/NUmF*7$FD$\"+\"Rzx@#F-7$ $\"+F#pNy'F1$\"+R,rhLF-7$FI$\"+4LX+UF-7$$\"+yO*\\(yF1$\"+u*)oG[F-7$$\" +-:cK$)F1$\"+iSS7`F-7$$\"+cD[Y()F1$\"+pX$[p&F-7$FN$\"+a7J/gF-7$$\"+TO# Qz*F1$\"+!ppUZ'F-7$FS$\"+d+Y9oF-7$FX$\"+&)>HtvF-7$Fgn$\"+Kj1QzF-7$F\\o $\"+Ckvj#)F-7$Fao$\"+7O:O%)F-7$$\"+HJ>6b`&)F-7$Ffo$\"+W\"R/j) F-7$$\"+d1Hi=F*$\"+P2-&o)F-7$F[p$\"+p\\aD()F-7$F`p$\"+>+\\\"y)F-7$Ffp$ \"+!R;i\"))F-7$F[q$\"+XM=U))F-7$F`q$\"+QHIi))F-7$Feq$\"+Ow#y())F-7$Fjq $\"+'\\B0*))F-7$F_r$\"+.Nq**))F-7$Fdr$\"+IYN3*)F-7$Fir$\"+g#fc\"*)F-7$ F^s$\"+!Qv;#*)F-7$Fcs$\"+:-WE*)F-7$Fhs$\"+-CSJ*)F-7$F]t$\"+M06N*)F-7$F bt$\"+*R\\*Q*)F-7$Fgt$\"+%*)F-7$F\\u$\"+n0*\\%*)F-7$Fau$\"+;\\dZ*) F-7$Ffu$\"+WY-]*)F-7$F[v$\"+)*33_*)F-7$F`v$\"+1s6a*)F-7$Fev$\"+io0c*)F -7$Fjv$\"+elhd*)F-7$F_w$\"+*H\"=f*)F-7$Fdw$\"+Y4og*)F-7$Fiw$\"+I^/i*)F -7$F^x$\"+uyFj*)F-7$Fcx$\"+hgbk*)F-7$Fhx$\"+%)4jl*)F-7$F]y$\"+v*3n'*)F -7$Fby$\"+0!Hw'*)F-7$Fgy$\"+k$y&o*)F-7$F\\z$\"+`@Up*)F-7$Faz$\"+KqDq*) F-7$Ffz$\"+`..r*)F-7$F[[l$\"+-!)zr*)F-7$F`[l$\"+M)*\\s*)F-7$Fe[l$\"+KB =t*)F-7$Fj[l$\"+Cl#Q(*)F-7$F_\\l$\"+w!\\:$F*Ffcm/$!+8+\"p4$F*Ffcm/$! +\"\\dd/$F*Ffcm/$!+++++IF*%/.1000000000e-2G/$!+/+(*)p#F*Ffcm/$!+X(yG_# F*Ffcm/$!+4+%zR#F*Ffcm/$!+'**H5I#F*Ffcm/$!+]([=A#F*Ffcm/$!+g>!\\:#F*Ff cm/$!+8+\"p4#F*Ffcm/$!+\"\\dd/#F*Ffcm/$!+++++?F*%/.1000000000e-1G/$!+/ +(*)p\"F*Ffcm/$!+X(yG_\"F*Ffcm/$!+4+%zR\"F*Ffcm/$!+'**H5I\"F*Ffcm/$!+] ([=A\"F*Ffcm/$!+g>!\\:\"F*Ffcm/$!+8+\"p4\"F*Ffcm/$!+\"\\dd/\"F*Ffcm/$! +++++5F*%,.1000000000G/$!+V+q*)pF1Ffcm/$!+`uyG_F1Ffcm/$!+(3+%zRF1Ffcm/ $!+d**H5IF1Ffcm/$!+'\\([=AF1Ffcm/$!++'>!\\:F1Ffcm/$!+,8+\"p*!#6Ffcm/$! +c!\\dd%F[[nFfcm/Fc^l%#1.G/$\"+d**H5IF1Ffcm/$\"+ZD@rZF1Ffcm/$\"+8**f?g F1Ffcm/$\"+V+q*)pF1Ffcm/$\"+/D^\"y(F1Ffcm/$\"++/)4X)F1Ffcm/$\"+q)**3.* F1Ffcm/$\"+%4DCa*F1Ffcm/$\"+++++5F*%$10.G/$\"+'**H5I\"F*Ffcm/$\"+b77x9 F*Ffcm/$\"+\"**f?g\"F*Ffcm/$\"+/+(*)p\"F*Ffcm/$\"+]7:yF*Ffcm/$\"+4DCa>F*Ffcm/$\"+++++?F*%%100.G/$\"+'**H 5I#F*Ffcm/$\"+b77xCF*Ffcm/$\"+\"**f?g#F*Ffcm/$\"+/+(*)p#F*Ffcm/$\"+]7: yFF*Ffcm/$\"+S!)4XGF*Ffcm/$\"+()**3.HF*Ffcm/$\"+4DCaHF*Ffcm/Fh]l%&1000 .G/$\"+'**H5I$F*Ffcm/$\"+b77xMF*Ffcm/$\"+\"**f?g$F*Ffcm/$\"+/+(*)p$F*F fcm/$\"+]7:yPF*Ffcm/$\"+S!)4XQF*Ffcm/$\"+()**3.RF*Ffcm/$\"+4DCaRF*Ffcm F[dm" 2 496 496 496 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 20030 0 12020 0 0 0 0 0 0 0 1 1 0 0 0 0 6558 0 0 0 0 0 1 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "4 1 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 }