{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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Map le Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Title" -1 18 1 {CSTYLE " " -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 8 8 1 0 1 0 2 2 0 1 }{PSTYLE "Norma l" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 16 "N\341vrh SC bikvadu" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 19 "" 0 "" {TEXT -1 9 "Jan Bi\350 \341k" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "Obecn\341 bikvadratick\341 di git\341ln\355 p\370enosov\341 funkce" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 33 "Hd:=z->(p*z^2-q*z+r)/(z^2-u*z+v);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#HdGf*6#%\"zG6\"6$%)operatorG%&arrowGF(*&,(*& %\"pG\"\"\")9$\"\"#F0F0*&%\"qGF0F2F0!\"\"%\"rGF0F0,(*$F1F0F0*&%\"uGF0F 2F0F6%\"vGF0F6F(F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "Jmenovate l" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Dd:=1+alpha /z+beta/z^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#DdG,(\"\"\"F&*&%&al phaGF&%\"zG!\"\"F&*&%%betaGF&F)!\"#F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "Varianty \350itatele" }{MPLTEXT 1 0 0 "" }}{PARA 0 "" 0 " " {TEXT -1 24 "Biline\341rn\355 transformace " }{MPLTEXT 1 0 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "LP20:=k*(1+1/z)^2;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "LP11:=k*(1+1/z)/z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "LP10:=k*(1+1/z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "LP02:=k/z^2;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "LP01:=k/z;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "LP00:=k;" }}{PARA 0 "" 0 "" {TEXT -1 24 "Biline\341rn\355 transformace " }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "BP10:=k*(1-1/z)*(1+1/z);" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 18 "BP01:=k/z*(1-1/z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "BP00:=k*(1-1/z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "HP:=k*(1- 1/z)^2;" }}{PARA 0 "" 0 "" {TEXT -1 32 "epsilon>alpha/sqrt(beta),beta> 0 " }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "LPN:=k*(1+ epsilon/z+1/z^2);" }}{PARA 0 "" 0 "" {TEXT -1 32 "epsilon0 " }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 " HPN:=k*(1+epsilon/z+1/z^2);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "AP:= k*(beta+alpha/z+1/z^2);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "GENERAL: =k*(gamma+epsilon/z+delta/z^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%% LP20G*&%\"kG\"\"\"),&F'F'*&F'F'%\"zG!\"\"F'\"\"#F'" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%%LP11G*(%\"kG\"\"\",&F'F'*&F'F'%\"zG!\"\"F'F'F*F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%LP10G*&%\"kG\"\"\",&F'F'*&F'F'%\" zG!\"\"F'F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%LP02G*&%\"kG\"\"\"% \"zG!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%LP01G*&%\"kG\"\"\"%\"zG !\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%LP00G%\"kG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%BP10G*(%\"kG\"\"\",&F'F'*&F'F'%\"zG!\"\"F+F',&F 'F'F)F'F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%BP01G*(%\"kG\"\"\"%\"z G!\"\",&F'F'*&F'F'F(F)F)F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%BP00G *&%\"kG\"\"\",&F'F'*&F'F'%\"zG!\"\"F+F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#HPG*&%\"kG\"\"\"),&F'F'*&F'F'%\"zG!\"\"F,\"\"#F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$LPNG*&%\"kG\"\"\",(F'F'*&%(epsilonGF'%\"zG! \"\"F'*&F'F'*$)F+\"\"#F'F,F'F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$H PNG*&%\"kG\"\"\",(F'F'*&%(epsilonGF'%\"zG!\"\"F'*&F'F'*$)F+\"\"#F'F,F' F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#APG*&%\"kG\"\"\",(%%betaGF'*& %&alphaGF'%\"zG!\"\"F'*&F'F'*$)F,\"\"#F'F-F'F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(GENERALG*&%\"kG\"\"\",(%&gammaGF'*&%(epsilonGF'%\"zG !\"\"F'*&%&deltaGF'F,!\"#F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "eval(LP20/Dd,[k=0.225,alpha=-0.5,beta=0.4]);combine(evalc(abs(e val(%,z=exp(I*omega)))));plot(%,omega=0..Pi,0..2);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#,$*($\"$D#!\"$\"\"\",&F(F(*&F(F(%\"zG!\"\"F(\"\"#,(F( F(*&$\"\"&F,F(F+F,F,*&$\"\"%F,F(F+!\"#F(F,F(" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,$*&$\"$D#!\"$\"\"\"*&,,$\"++++gO!\"*!\"\"*&$\"++++!o%F -F(-%$cosG6#%&omegaGF(F.*&$\"++++??F-F(-F36#,$*&\"\"#F(F5F(F(F(F.*&$\" +++++=F-F(-F36#,$*&\"\"$F(F5F(F(F(F.*&$\"+++++!)!#5F(-F36#,$*&\"\"%F(F 5F(F(F(F.F(,,$\"+++5)G$F-F.*&$\"++++o]F-F(F2F(F(*&$\"++++OKF-F(F9F(F.* &$\"++++?6F-F(FAF(F(*&$\"+++++KFIF(FJF(F.F.#F(F=F(" }}{PARA 13 "" 1 " " {GLPLOT2D 784 784 784 {PLOTDATA 2 "6%-%'CURVESG6$7Y7$$\"\"!F)$\"2m** *************!#<7$$\"3%)eD2LzxZo!#>$\"3u&=;Z%RV,5F,7$$\"3)\\$px*G*f!G \"!#=$\"3#eC#z%fC]+\"F,7$$\"3+5@exGm]>F6$\"3!\\ZVfo)p65F,7$$\"3[99!=3o ^i#F6$\"3M`%G[c&G@5F,7$$\"35!\\D0[nkH$F6$\"3y^9YEIuL5F,7$$\"37\"=Za&z% )=RF6$\"37!euYmKz/\"F,7$$\"3edXa()oGjXF6$\"3W2l2rkIl5F,7$$\"3W%3**Hbm( H_F6$\"3k!fvdEjg3\"F,7$$\"37PRr4)3T*eF6$\"328:4trK46F,7$$\"3y\"[)yykYx lF6$\"3!**>PVyk`8\"F,7$$\"3[s'ocGo$zrF6$\"3;2ST8W?f6F,7$$\"3UQ0;gr'p&y F6$\"3'o^g+U%R&=\"F,7$$\"3vFMt?$[t`)F6$\"3vme)4K0#37F,7$$\"3?f5i!)\\=l ))F6$\"3*fZQZ]dn@\"F,7$$\"3u\"p30k@I>*F6$\"3^\"zYeyaHA\"F,7$$\"3#e'*** \\tG2\\*F6$\"3,yVvKL+E7F,7$$\"3#*R7\\HeV)y*F6$\"3M/#)pwf2E7F,7$$\"3cP' *e%4Pa'**F6$\"3ZZ5Mq@]C7F,7$$\"3_.)of$QC95F,$\"33Kg&[C)f@7F,7$$\"31V'y C'R%>.\"F,$\"3[alv%*3F<7F,7$$\"3#G[))*)3W'\\5F,$\"3L-WnKpV67F,7$$\"3W% )\\vYFjz5F,$\"3?=nS1Z#z>\"F,7$$\"30'[@XS@'46F,$\"3%4D'\\jKmz6F,7$$\"3G 9w$3G*Qz6F,$\"3wb\"zAMv(=6F,7$$\"3>%3*3tc9T7F,$\"3wpo9LYtX5F,7$$\"3Ey0 DBA!*38F,$\"3.zyO&=E5^*F67$$\"3qjE.#[AMP\"F,$\"3%f/KX7TDa)F67$$\"3*R:_ MgU2W\"F,$\"3=ck]D>aLvF67$$\"3\"Qu#)**[jD]\"F,$\"3Kt)phOaJl'F67$$\"3=h w\"ymX#p:F,$\"3W.%fhgr3y&F67$$\"3mwM!*4(4&Q;F,$\"3'e4$o2@*>(\\F67$$\"3 CDL:iU!))p\"F,$\"3MhhET)[)[VF67$$\"3o(R1/.CRw\"F,$\"3U*yq\"R@HbPF67$$ \"32Id)H7*>J=F,$\"3%QOS%)fQ/A$F67$$\"3Gfb7wY,(*=F,$\"3QC#3F,$\"3)4P\"HF9W!Q#F67$$\"3**oJ8:.SJ?F,$\"3!GNUe'[#*3?F67$ $\"3)**p!zPD$\\4#F,$\"3mv_&G7:$=B8F07$$\" 3w#oUX107)GF,$\"3i$*>Eo'Q*e\")!#?7$$\"3W46xe&[M%HF,$\"37?Qla=h#p%Fc[l7 $$\"3H.6)e58)4IF,$\"3u7e.%f6\\1#Fc[l7$$\"3Kt2RXCLtIF,$\"3T_\\5t+$Q_&!# @7$$\"3!)***\\/l#fTJF,$\"3Tvs#***GZP6!#E-%'COLOURG6&%$RGBG$\"#5!\"\"F( F(-%+AXESLABELSG6$Q&omega6\"Q!Fe]l-%%VIEWG6$;F($\"+aEfTJ!\"*;F($\"\"#F )" 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 112 "eval(LP11/Dd,[k=0.45,alp ha=-0.5,beta=0.4]);combine(evalc(abs(eval(%,z=exp(I*omega)))));plot(%, omega=0..Pi,0..2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**$\"#X!\"#\" \"\",&F(F(*&F(F(%\"zG!\"\"F(F(F+F,,(F(F(*&$\"\"&F,F(F+F,F,*&$\"\"%F,F( F+F'F(F,F(" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,$*&$\"#X!\"#\"\"\"*&,*$ \"++++?9!\"*!\"\"*&$\"+++++#)!#5F(-%$cosG6#%&omegaGF(F.*&$\"+++++?F2F( -F46#,$*&\"\"#F(F6F(F(F(F.*&$\"+++++!)F2F(-F46#,$*&\"\"$F(F6F(F(F(F.F( ,,$\"+++5)G$F-F.*&$\"++++o]F-F(F3F(F(*&$\"++++OKF-F(F:F(F.*&$\"++++?6F -F(FBF(F(*&$\"+++++KF2F(-F46#,$*&\"\"%F(F6F(F(F(F.F.#F(F>F(" }}{PARA 13 "" 1 "" {GLPLOT2D 784 784 784 {PLOTDATA 2 "6%-%'CURVESG6$7_o7$$\"\" !F)$\"2m***************!#<7$$\"3A+++LzxZo!#>$\"3,XY'GA@?+\"F,7$$\"3))* ******G*f!G\"!#=$\"3^0cDQ$)325F,7$$\"33+++xGm]>F6$\"3b$*4?L)Hl,\"F,7$$ \"32+++#3o^i#F6$\"3)QIrF\"p9I5F,7$$\"3!*******zuY'H$F6$\"3A%\\%Gja%z/ \"F,7$$\"3%******\\&z%)=RF6$\"3agA_WkPo5F,7$$\"3%)*****p)oGjXF6$\"3A/, qT.l$4\"F,7$$\"3P+++`lwH_F6$\"3\\8n(ox\"GC6F,7$$\"3W+++4)3T*eF6$\"3%z= x*RvIf6F,7$$\"3G+++ykYxlF6$\"3+5lQo#e'*>\"F,7$$\"3o+++&Go$zrF6$\"3EPL9 #pA\"Q7F,7$$\"3=+++gr'p&yF6$\"3'*>RNG59$G\"F,7$$\"3********>$[t`)F6$\" 3@oe?l%3tK\"F,7$$\"3w******R;-$>*F6$\"3QoCm8\"*ek8F,7$$\"3C+++N(G2\\*F 6$\"3UfzY()*)Hy8F,7$$\"3a******GeV)y*F6$\"3UL\">S?c\"*Q\"F,7$$\"3U+++& 4Pa'**F6$\"3]dx\"*3))*RR\"F,7$$\"3!******f$QC95F,$\"3#*fR7ojZ(R\"F,7$$ \"3%******>'R%>.\"F,$\"3E1?EC=Y*R\"F,7$$\"31+++*3W'\\5F,$\"3[xV_ml$)*R \"F,7$$\"3#******zTQY1\"F,$\"3QFg\\tU\"))R\"F,7$$\"3#******fuK'z5F,$\" 3+D7NgJ]'R\"F,7$$\"3++++vqi%4\"F,$\"3I:[?&fcGR\"F,7$$\"34+++/9i46F,$\" 3)GIq#\\)QyQ\"F,7$$\"3)******>M0X9\"F,$\"3u%\\d=Y^2P\"F,7$$\"3%******4 G*Qz6F,$\"3!)z0Y/57Y8F,7$$\"3!******HnX6C\"F,$\"3Yl]c:SS&G\"F,7$$\"3.+ ++BA!*38F,$\"3c0*pA0&z)>\"F,7$$\"31+++#[AMP\"F,$\"3$3/T(*=OY5\"F,7$$\" 3!******HgU2W\"F,$\"3L)>ME;'Q-5F,7$$\"3++++!\\jD]\"F,$\"3+'\\\\\"Q:v. \"*F67$$\"3)******zmX#p:F,$\"3]3+Zrd0p\")F67$$\"3!*******4(4&Q;F,$\"3; hT>&zL@G(F67$$\"3))*****>E/))p\"F,$\"3w\"zX0)G&[e'F67$$\"35+++IS#Rw\"F ,$\"3*p=&[(p7z!fF67$$\"3*******H7*>J=F,$\"35*\\UaKS`G&F67$$\"3%******f n9q*=F,$\"3LNNQ>5\"Qu%F67$$\"31+++3Ypg>F,$\"33$f66ICdF%F67$$\"3'****** \\J+9.#F,$\"3APrm&e?=\"QF67$$\"37+++QD$\\4#F,$\"3%GT\\OjI#QMF67$$\"3'* *****fumF;#F,$\"3oZPa@$)3yIF67$$\"3\"******4iMUA#F,$\"3-]E(*fU`\"y#F67 $$\"33+++W_V\"H#F,$\"3+S#oTRb^[#F67$$\"37+++$zlYN#F,$\"3*4\"R?=^:HAF67 $$\"30+++O*f2U#F,$\"3eC))o-h)=)>F67$$\"3%******>/z`[#F,$\"3+Pr1(zotv\" F67$$\"3%******pDHIb#F,$\"3MG$)Q2!*)y`\"F67$$\"3>+++bW==EF,$\"3sC4-0zH R8F67$$\"31+++b]\"[o#F,$\"3KeK*\\r]r9\"F67$$\"3A+++?R*3v#F,$\"3)[`oAUJ sl*F07$$\"39+++MNh6GF,$\"3Ok3:3_Nc!)F07$$\"3)******R107)GF,$\"3O*y$*>x .XG'F07$$\"38+++f&[M%HF,$\"3SL%)\\_AKWZF07$$\"3=+++1J\")4IF,$\"3=%GU.d ch8$F07$$\"3?+++wFdTIF,$\"3STgj)RnaP#F07$$\"39+++XCLtIF,$\"3.+Edvpx=;F 07$$\"3-+++'\\(R!4$F,$\"3!)GKK=tR87F07$$\"3*******zaiu5$F,$\"3k%4#RZR0 '3)!#?7$$\"3?+++u]*f6$F,$\"3cKzVDZojgF[^l7$$\"3))******)fFX7$F,$\"3-'R \\AQ\\?/%F[^l7$$\"3@+++iQzGJF,$\"3B&G*oT-VJIF[^l7$$\"3++++C,1LJF,$\"3y _xH5I!4-#F[^l7$$\"3*******fD$>NJF,$\"3u'o\\U)Rm::F[^l7$$\"3))*****pQEt 8$F,$\"3Egq1`mV55F[^l7$$\"3y*****z^f%RJF,$\"3'G%zO/'p@0&!#@7$%*undefin edGFa`l-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q&omega6\"Q!F]a l-%%VIEWG6$;F($\"+aEfTJ!\"*;F($\"\"#F)" 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 111 "eval(LP00/Dd,[k=0.9,alpha=-0.5,beta=0.4]);combine( evalc(abs(eval(%,z=exp(I*omega)))));plot(%,omega=0..Pi,0..2);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&$\"\"*!\"\"\"\"\",(F(F(*&$\"\"&F'F (%\"zGF'F'*&$\"\"%F'F(F-!\"#F(F'F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# ,$*&$\"\"*!\"\"\"\"\",($\"++++59!\"*F(*&$\"+++++9F,F(-%$cosG6#%&omegaG F(F'*&$\"+++++!)!#5F(-F16#,$*&\"\"#F(F3F(F(F(F(#F'F$\"3Vg\\TX)3E+\"!#<7$$\"3)\\$px*G*f!G\"!#=$\" 3cK\"e%>j:45F27$$\"3+5@exGm]>F6$\"36^Dd]SQ@5F27$$\"3[99!=3o^i#F6$\"3%> &4hZ^3R5F27$$\"35!\\D0[nkH$F6$\"3'\\_R_-VB1\"F27$$\"37\"=Za&z%)=RF6$\" 3qB**\\b!>#*3\"F27$$\"3edXa()oGjXF6$\"3nXQ;\"F27$$\"37PRr4)3T*eF6$\"3:`evb(R:@\"F27$$\"3y\"[)yykYx lF6$\"3o)f*F6$\"3%)HjloliA:F27$$\"3#*R7\\HeV)y*F6$\"3#f%*4SrFRd\"F27$$\"3_.)o f$QC95F2$\"3ACh^Ijn)f\"F27$$\"3#G[))*)3W'\\5F2$\"35w<)*Qc`<;F27$$\"3kL <(yTQY1\"F2$\"3<$H;#foWB;F27$$\"3W%)\\vYFjz5F2$\"3Vj,_6(**zi\"F27$$\"3 CN#Qc2FY4\"F2$\"3f/b-x;7J;F27$$\"30'[@XS@'46F2$\"3ei@\\_7vK;F27$$\"3D- 51*QU$=6F2$\"3DV8R/F*Hj\"F27$$\"3B=0gtL1F6F2$\"3c(G@]-0Fj\"F27$$\"3?M+ 9eVyN6F2$\"3f:s&[S#)=j\"F27$$\"3=]&zEM0X9\"F2$\"35#o[(p2_I;F27$$\"37#e e;\"F2$\"3\\k:N#4thi\"F27$$\"3G9w$3G*Qz6F2$\"3dI'z;F27$$\"3C \\L'pZn-@\"F2$\"3a0(H#pZ'Hg\"F27$$\"3>%3*3tc9T7F2$\"3!\\cwRPL\"F27$$\"3\"Qu#)**[jD]\"F2$\"33KJU?#*pX 7F27$$\"3=hw\"ymX#p:F2$\"3S)eCcE%Qa6F27$$\"3mwM!*4(4&Q;F2$\"3U,:!R*Qcm 5F27$$\"3CDL:iU!))p\"F2$\"3aT)Q*42_q**F67$$\"3o(R1/.CRw\"F2$\"3_C\"*Qx _Y%H*F67$$\"32Id)H7*>J=F2$\"3uD!3r9HUn)F67$$\"3Gfb7wY,(*=F2$\"3(z#41%e S$Q\")F67$$\"3cM5'zg%pg>F2$\"3Wa#o7#=,!o(F67$$\"3**oJ8:.SJ?F2$\"3RePu! f7FB(F67$$\"3)**p!zPD$\\4#F2$\"3y$\\7%QNmzoF67$$\"3kcF67$$\"3)eq)=U!z`[#F2$\"3'4%H-J#4MX&F67$$\"3#Q'HHd#HIb#F2$\"3qXF@J c5-`F67$$\"3z^r&[X%==EF2$\"3I7)Rvj!\\w^F67$$\"3'=BS\\0:[o#F2$\"3M^*Q1( 3tm]F67$$\"3[gN,?R*3v#F2$\"3KVZQN@:v\\F67$$\"3@/0LMNh6GF2$\"3&)=$prhs^ !\\F67$$\"3w#oUX107)GF2$\"3]O/*Gg,2%[F67$$\"3W46xe&[M%HF2$\"3!)>g<'[-m z%F67$$\"3H.6)e58)4IF2$\"3S``Q%GZJw%F67$$\"3Kt2RXCLtIF2$\"3'oid-I!)Qu% F67$$\"3!)***\\/l#fTJF2$\"3jdJE0@%ot%F6-%'COLOURG6&%$RGBG$\"#5!\"\"F(F (-%+AXESLABELSG6$Q&omega6\"Q!Ff^l-%%VIEWG6$;F($\"+aEfTJ!\"*;F($\"\"#F) " 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 111 "eval(BP10/Dd,[k=0.3,alpha =-0.5,beta=0.4]);combine(evalc(abs(eval(%,z=exp(I*omega)))));plot(%,om ega=0..Pi,0..2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**$\"\"$!\"\"\" \"\",&F(F(*&F(F(%\"zGF'F'F(,&F(F(F*F(F(,(F(F(*&$\"\"&F'F(F+F'F'*&$\"\" %F'F(F+!\"#F(F'F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&$\"\"$!\"\"\" \"\"*&,,$\"++++??!\"*F'*&$\"++++?7F-F(-%$cosG6#,$*&\"\"#F(%&omegaGF(F( F(F(*&$\"+++++!)!#5F(-F26#,$*&\"\"%F(F7F(F(F(F(*&$\"+++++9F-F(-F26#F7F (F(*&$\"+++++9F-F(-F26#,$*&F&F(F7F(F(F(F'F(,,$\"+++5)G$F-F'*&$\"++++o] F-F(FDF(F(*&$\"++++OKF-F(F1F(F'*&$\"++++?6F-F(FIF(F(*&$\"+++++KF;F(F$\"3AHS#G$)=Nd%F/7$$ \"3)\\$px*G*f!G\"!#=$\"3!e6_mJq>f)F/7$$\"3+5@exGm]>F5$\"3QtLJLJ%)>8F57 $$\"3[99!=3o^i#F5$\"3wfav3,q(z\"F57$$\"35!\\D0[nkH$F5$\"3))>V;#p)f#H#F 57$$\"37\"=Za&z%)=RF5$\"3w'z'GWoPtFF57$$\"3edXa()oGjXF5$\"3=7'\\x/,$)H $F57$$\"3W%3**Hbm(H_F5$\"3o'oo(>HIvQF57$$\"37PRr4)3T*eF5$\"37HhGi`t*[% F57$$\"3y\"[)yykYxlF5$\"3_-$phTfh;&F57$$\"3[s'ocGo$zrF5$\"37ZM*pY3&*z& F57$$\"3UQ0;gr'p&yF5$\"3?3DfHp^\\lF57$$\"3vFMt?$[t`)F5$\"3wJtbr07FtF57 $$\"3u\"p30k@I>*F5$\"3YI$*z'RM<2)F57$$\"3#*R7\\HeV)y*F5$\"3g2dU>2_2()F 57$$\"3#G[))*)3W'\\5!#<$\"3uUGg5'4?N*F57$$\"30'[@XS@'46Ffp$\"3[L*=s^ay u*F57$$\"3=]&zEM0X9\"Ffp$\"3-%f(=`FK(*)*F57$$\"3G9w$3G*Qz6Ffp$\"3ay2ap )o6)**F57$$\"3'=[+*y$G[>\"Ffp$\"37_`Grg$o***F57$$\"3C\\L'pZn-@\"Ffp$\" 3oHGq!H0%****F57$$\"3g;i-vlqD7Ffp$\"3#fx(fQ<3*)**F57$$\"3>%3*3tc9T7Ffp $\"3a\\9k9y=m**F57$$\"37J)p\"[R-v7Ffp$\"3gb**HtB9u)*F57$$\"3Ey0DBA!*38 Ffp$\"3!et-p'>!)H(*F57$$\"3qjE.#[AMP\"Ffp$\"3REJ])==yL*F57$$\"3*R:_MgU 2W\"Ffp$\"3!)f,'\\]/l\"))F57$$\"3\"Qu#)**[jD]\"Ffp$\"39;URzoL&G)F57$$ \"3=hw\"ymX#p:Ffp$\"3'>T4;&e)ep(F57$$\"3mwM!*4(4&Q;Ffp$\"3I!3P=T!HEf'F57$$\"3o(R1/.CRw\"Ffp$\"31CQ/gH6\" 3'F57$$\"32Id)H7*>J=Ffp$\"35HhTt%fye&F57$$\"3Gfb7wY,(*=Ffp$\"3E96!\\s@ %R^F57$$\"3cM5'zg%pg>Ffp$\"3C]/j`'Rdt%F57$$\"3**oJ8:.SJ?Ffp$\"3g8fo[(* H>VF57$$\"3)**p!zPD$\\4#Ffp$\"3qAL.kDuqRF57$$\"3kF57$$\"3z^r&[X%==EFfp$\"3KM-j!GF\\s\"F57$$\"3'=BS\\0:[o#Ffp$\"3[6 NkEg\")*[\"F57$$\"3[gN,?R*3v#Ffp$\"3i0Qu1+9j7F57$$\"3@/0LMNh6GFfp$\"3% y+:[R$ff5F57$$\"3w#oUX107)GFfp$\"3>'[#)>$>U3$)F/7$$\"3W46xe&[M%HFfp$\" 3MtbDdQu%H'F/7$$\"3H.6)e58)4IFfp$\"3A5hRx$oC<%F/7$$\"3Kt2RXCLtIFfp$\"3 7iD02B6d@F/7$$\"3!)***\\/l#fTJFfpF*-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+ AXESLABELSG6$Q&omega6\"Q!F[]l-%%VIEWG6$;F($\"+aEfTJ!\"*;F($\"\"#F)" 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 112 "eval(BP00/Dd,[k=0.49,alpha= -0.5,beta=0.4]);combine(evalc(abs(eval(%,z=exp(I*omega)))));plot(%,ome ga=0..Pi,0..2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*($\"#\\!\"#\"\" \",&F(F(*&F(F(%\"zG!\"\"F,F(,(F(F(*&$\"\"&F,F(F+F,F,*&$\"\"%F,F(F+F'F( F,F(" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,$*&$\"#\\!\"#\"\"\"*&,*$\"+++ +?U!\"*!\"\"*&$\"++++?kF-F(-%$cosG6#%&omegaGF(F(*&$\"\"$\"\"!F(-F36#,$ *&\"\"#F(F5F(F(F(F.*&$\"+++++!)!#5F(-F36#,$*&F8F(F5F(F(F(F(F(,,$\"+++5 )G$F-F.*&$\"++++o]F-F(F2F(F(*&$\"++++OKF-F(F:F(F.*&$\"++++?6F-F(FCF(F( *&$\"+++++KFBF(-F36#,$*&\"\"%F(F5F(F(F(F.F.#F(F>F(" }}{PARA 13 "" 1 " " {GLPLOT2D 784 784 784 {PLOTDATA 2 "6%-%'CURVESG6$7\\o7$$\"3:+++/1$*R @!#?$\"3]PUiqg2l6F*7$$\"3I+++37')zUF*$\"3)eNk9fo,L#F*7$$\"3X+++5=z>kF* $\"3!)z]]7SH&\\$F*7$$\"3;+++:Csf&)F*$\"3?'4#3)yo/m%F*7$$\"3#******>OeR G\"!#>$\"3!33s'3A.\"*pF*7$$\"3.+++$[W>r\"F?$\"36^E3/0*>K*F*7$$\"3%)*** **Rs;zc#F?$\"3CcD[^=c)R\"F?7$$\"31+++m*))QU$F?$\"3Sy!)432Cl=F?7$$\"3$) ******\\M$e8&F?$\"392;N$**o**z#F?7$$\"3A+++LzxZoF?$\"33)pLouIst$F?7$$ \"38+++:a)o#)*F?$\"3I#*yF>o\"oP&F?7$$\"3))*******G*f!G\"!#=$\"3[QwT)=% =JqF?7$$\"33+++xGm]>F]o$\"3A&)o!\\.>I3\"F]o7$$\"32+++#3o^i#F]o$\"3_%*y Q\\,'3[\"F]o7$$\"3!*******zuY'H$F]o$\"3a_z(>-7!)*=F]o7$$\"3%******\\&z %)=RF]o$\"3DkQ],,64BF]o7$$\"3%)*****p)oGjXF]o$\"3)3h'p-'z_w#F]o7$$\"3P +++`lwH_F]o$\"3s/Q&)\\4?wKF]o7$$\"3W+++4)3T*eF]o$\"3%4tZ7V:=$QF]o7$$\" 3G+++ykYxlF]o$\"3iQop0c%zX%F]o7$$\"3o+++&Go$zrF]o$\"31QP)Rs3(e]F]o7$$ \"3=+++gr'p&yF]o$\"37w'G(Gt#)*y&F]o7$$\"3********>$[t`)F]o$\"37'Qe#H5p tlF]o7$$\"3w******R;-$>*F]o$\"3G`K))puMbtF]o7$$\"3a******GeV)y*F]o$\"3 SJC#\\5%*p0)F]o7$$\"31+++*3W'\\5!#<$\"3O2od*RN_#))F]o7$$\"34+++/9i46Fd s$\"3#=.E*)y$el$*F]o7$$\"3)******>M0X9\"Fds$\"3>@![&epd9'*F]o7$$\"3%** ****4G*Qz6Fds$\"3nDK=4iq2)*F]o7$$\"3#******pZn-@\"Fds$\"3%*[Hkk0QH**F] o7$$\"3!******HnX6C\"Fds$\"3EwQ4FBW+5Fds7$$\"3%*******4[3e7Fds$\"3aq@6 H\"Fds$ \"3RNZ\"=J4J+\"Fds7$$\"3.+++BA!*38Fds$\"3*Q#)y\"4c`,5Fds7$$\"3++++_B;T 8Fds$\"3!pX2'*Hy`&**F]o7$$\"31+++#[AMP\"Fds$\"35\"prAYL5')*F]o7$$\"3!* *****HgU2W\"Fds$\"3'zR%)*[gD!e*F]o7$$\"3++++!\\jD]\"Fds$\"3]mf-zFle#*F ]o7$$\"3)******zmX#p:Fds$\"3!)GWvM8T\")))F]o7$$\"3!*******4(4&Q;Fds$\" 3Qyf9!)*)R&[)F]o7$$\"3))*****>E/))p\"Fds$\"3]F#>ij2A:)F]o7$$\"35+++IS# Rw\"Fds$\"3*GiWx\\2I\"yF]o7$$\"3*******H7*>J=Fds$\"3wlyc84U*[(F]o7$$\" 3%******fn9q*=Fds$\"3FJK+X9e+sF]o7$$\"31+++3Ypg>Fds$\"3],I*)f2!o%pF]o7 $$\"3'******\\J+9.#Fds$\"3W#GV@4%4$p'F]o7$$\"37+++QD$\\4#Fds$\"3#fqVDT m&)['F]o7$$\"3'******fumF;#Fds$\"3gTp)4#yn#H'F]o7$$\"3\"******4iMUA#Fd s$\"3Y%*y=jKcLhF]o7$$\"33+++W_V\"H#Fds$\"3%)4[T.w)y(fF]o7$$\"37+++$zlY N#Fds$\"3u$)3A/0QZeF]o7$$\"30+++O*f2U#Fds$\"3o?C6s$Hhs&F]o7$$\"3%***** *>/z`[#Fds$\"3)G!)Hwa!Q@cF]o7$$\"3%******pDHIb#Fds$\"3C*o%3;&4__&F]o7$ $\"3>+++bW==EFds$\"3)*H?!3&))pWaF]o7$$\"31+++b]\"[o#Fds$\"3#[[E'*=TQP& F]o7$$\"3A+++?R*3v#Fds$\"3nJx%yp[VJ&F]o7$$\"39+++MNh6GFds$\"37HoI.]lo_ F]o7$$\"3)******R107)GFds$\"3)QX20`wjA&F]o7$$\"38+++f&[M%HFds$\"3%eO&F]o7$$\"3=+++1J\")4IFds$\"3yRXyYOGv^F]o7$$\"39+++XCLtIFds$\"3-T*[ YD]D;&F]o7$$\"3!)***\\/l#fTJFds$\"3k/@%ot%*y:&F]o-%'COLOURG6&%$RGBG$\" #5!\"\"$\"\"!F]`lF\\`l-%+AXESLABELSG6$Q&omega6\"Q!Fb`l-%%VIEWG6$;F\\`l $\"+aEfTJ!\"*;F\\`l$\"\"#F]`l" 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 111 "eval(HP/Dd,[k=0.475,alpha=-0.5,beta=0.4]);combine(ev alc(abs(eval(%,z=exp(I*omega)))));plot(%,omega=0..Pi,0..2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*($\"$v%!\"$\"\"\",&F(F(*&F(F(%\"zG!\"\"F, \"\"#,(F(F(*&$\"\"&F,F(F+F,F,*&$\"\"%F,F(F+!\"#F(F,F(" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,$*&$\"$v%!\"$\"\"\"*&,,$\"++++'[\"!\")!\"\"*&$\"+ +++GCF-F(-%$cosG6#%&omegaGF(F(*&$\"++++A8F-F(-F36#,$*&\"\"#F(F5F(F(F(F .*&$\"+++++Y!\"*F(-F36#,$*&\"\"$F(F5F(F(F(F(*&$\"+++++!)!#5F(-F36#,$*& \"\"%F(F5F(F(F(F.F(,,$\"+++5)G$FAF.*&$\"++++o]FAF(F2F(F(*&$\"++++OKFAF (F9F(F.*&$\"++++?6FAF(FBF(F(*&$\"+++++KFJF(FKF(F.F.#F(F=F(" }}{PARA 13 "" 1 "" {GLPLOT2D 784 784 784 {PLOTDATA 2 "6%-%'CURVESG6$7]o7$$\"3: +++/1$*R@!#?$\"3n!zU&Q%enT#!#B7$$\"3I+++37')zUF*$\"3I\"e3YP*[n'*F-7$$ \"3X+++5=z>kF*$\"3%=aHq84_<#!#A7$$\"3;+++:Csf&)F*$\"3)>d$\\'o+r'QF87$$ \"3#******>OeRG\"!#>$\"35bos$f_8q)F87$$\"3.+++$[W>r\"FA$\"3'=[Q@$3+Z:! #@7$$\"3%)*****Rs;zc#FA$\"3A*pSC>a8[$FI7$$\"31+++m*))QU$FA$\"3735=YLd! >'FI7$$\"3$)******\\M$e8&FA$\"3g,P[*HVQR\"F*7$$\"3A+++LzxZoFA$\"3!4fM![#F*7$$\"38+++:a)o#)*FA$\"3%4%)ppeG*>^F*7$$\"3))*******G*f!G\"!#=$ \"3F0L@`)HDs)F*7$$\"33+++xGm]>F`o$\"3!*Rw6(3)oW?FA7$$\"32+++#3o^i#F`o$ \"3S7N6*p*odPFA7$$\"3!*******zuY'H$F`o$\"37$*=z2iY%HbW$F`o7 $$\"3=+++gr'p&yF`o$\"3/qV.$[t`)F`o$\"3eS)*oL`m w_F`o7$$\"3w******R;-$>*F`o$\"3sD)3HI/kK'F`o7$$\"3C+++N(G2\\*F`o$\"3J \\72u%['HoF`o7$$\"3a******GeV)y*F`o$\"38gtsvm`VtF`o7$$\"3!******f$QC95 !#<$\"3)z#)yWOP0'zF`o7$$\"31+++*3W'\\5F\\t$\"3eT186\\>t&)F`o7$$\"3#*** ***fuK'z5F\\t$\"3oi0a17Oz!*F`o7$$\"34+++/9i46F\\t$\"3YAudq3>l&*F`o7$$ \"3%******4G*Qz6F\\t$\"3'Hb6ZlMu0\"F\\t7$$\"3!******HnX6C\"F\\t$\"3)=7 U#H\"**y7\"F\\t7$$\"3.+++BA!*38F\\t$\"3%3%zS*>\"*>=\"F\\t7$$\"3++++_B; T8F\\t$\"3!Gz#fE#f%*>\"F\\t7$$\"31+++#[AMP\"F\\t$\"3Hl0qvp477F\\t7$$\" 3%******>a#329F\\t$\"3g1ok\"R)p?7F\\t7$$\"3!******HgU2W\"F\\t$\"3lT%Hn Bd_A\"F\\t7$$\"3#******f/`;Z\"F\\t$\"3%))=M*=MWE7F\\t7$$\"3++++!\\jD] \"F\\t$\"3X?1qaYDD7F\\t7$$\"35+++zX!f`\"F\\t$\"3c4pIc'==A\"F\\t7$$\"3) ******zmX#p:F\\t$\"3BODl@si;7F\\t7$$\"3!*******4(4&Q;F\\t$\"3RiP\")3@* >?\"F\\t7$$\"3))*****>E/))p\"F\\t$\"3=6y`%R(z'=\"F\\t7$$\"35+++IS#Rw\" F\\t$\"3'ztbf*4Qp6F\\t7$$\"3*******H7*>J=F\\t$\"3'Ht#\\#yb8:\"F\\t7$$ \"3%******fn9q*=F\\t$\"3@>0vh*RV8\"F\\t7$$\"31+++3Ypg>F\\t$\"3v:[F%>)z =6F\\t7$$\"3'******\\J+9.#F\\t$\"3pT8%3j*z-6F\\t7$$\"37+++QD$\\4#F\\t$ \"3+0$)z)*zh*3\"F\\t7$$\"3'******fumF;#F\\t$\"3yl@Sv3zw5F\\t7$$\"3\"** ****4iMUA#F\\t$\"3M1Y6SkCm5F\\t7$$\"33+++W_V\"H#F\\t$\"3)3$f*[UOe0\"F \\t7$$\"37+++$zlYN#F\\t$\"3%=$R8pz/Z5F\\t7$$\"30+++O*f2U#F\\t$\"3\\(*f =F(R)Q5F\\t7$$\"3%******>/z`[#F\\t$\"3%4?sY)*><.\"F\\t7$$\"3%******pDH Ib#F\\t$\"3]-&GGQj^-\"F\\t7$$\"3>+++bW==EF\\t$\"3VWmTW?m>5F\\t7$$\"31+ ++b]\"[o#F\\t$\"3:yK8IC\"[,\"F\\t7$$\"3A+++?R*3v#F\\t$\"3JiLK!*et55F\\ t7$$\"39+++MNh6GF\\t$\"3Z?-)[Q-w+\"F\\t7$$\"3)******R107)GF\\t$\"3_9f) yY,Z+\"F\\t7$$\"38+++f&[M%HF\\t$\"3SX@Qb%4F+\"F\\t7$$\"3=+++1J\")4IF\\ t$\"3hu1ydS>,5F\\t7$$\"39+++XCLtIF\\t$\"3*f%[E*p>.+\"F\\t7$$\"3!)***\\ /l#fTJF\\t$\"2))***************F\\t-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!F e`lFd`l-%+AXESLABELSG6$Q&omega6\"Q!Fj`l-%%VIEWG6$;Fd`l$\"+aEfTJ!\"*;Fd `l$\"\"#Fe`l" 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 120 "eval(LPN/Dd,[ k=1/3,epsilon=1,alpha=-0.5,beta=0.5]);combine(evalc(abs(eval(%,z=exp(I *omega)))));plot(%,omega=0..Pi,0..2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(\"\"$!\"\",(\"\"\"F(*&F(F(%\"zGF&F(*&F(F(*$)F*\"\"#F(F&F(F(,(F( F(*&$\"\"&F&F(F*F&F&*&$F2F&F(F*!\"#F(F&F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&#\"\"\"\"\"$F&*$*&,,$\"+++++D!\"*!\"\"*&$\"\"#\"\"! F&-%$cosG6#%&omegaGF&F.*&$F'F2F&-F46#,$*&F1F&F6F&F&F&F.*&$\"+++++]!#5F &-F46#,$*&F'F&F6F&F&F&F.-F46#,$*&\"\"%F&F6F&F&F.F&,,$\"++++vQF-F.*&$\" \"'F2F&F3F&F&*&$\"++++DTF-F&F9F&F.*&$\"+++++:F-F&FAF&F&*&$\"+++++]F@F& FEF&F.F.#F&F1F&F&" }}{PARA 13 "" 1 "" {GLPLOT2D 784 784 784 {PLOTDATA 2 "6%-%'CURVESG6$7\\o7$$\"\"!F)$\"\"\"F)7$$\"3%)eD2LzxZo!#>$\"3>B1\\d* p8+\"!#<7$$\"3)\\$px*G*f!G\"!#=$\"34]I.i4\"[+\"F27$$\"3+5@exGm]>F6$\"3 Q%)fR\"=[7,\"F27$$\"3[99!=3o^i#F6$\"3q?ikOKf?5F27$$\"35!\\D0[nkH$F6$\" 36`V]&HAH.\"F27$$\"37\"=Za&z%)=RF6$\"3!R\"\\;IeCZ5F27$$\"3edXa()oGjXF6 $\"374Me/*R_1\"F27$$\"3W%3**Hbm(H_F6$\"3e8=*Q%=](3\"F27$$\"37PRr4)3T*e F6$\"36BoQw:l86F27$$\"3y\"[)yykYxlF6$\"3*e!z^#\\c[9\"F27$$\"3[s'ocGo$z rF6$\"3)y;mo!G!f<\"F27$$\"3UQ0;gr'p&yF6$\"3,i`f+VF97F27$$\"3vFMt?$[t`) F6$\"3MvSg6Hxa7F27$$\"3u\"p30k@I>*F6$\"3K^7cF*z@H\"F27$$\"3#e'***\\tG2 \\*F6$\"3-Qx(yFjqI\"F27$$\"3#*R7\\HeV)y*F6$\"3p&Q'3*)Q`>8F27$$\"3cP'*e %4Pa'**F6$\"3OS8%fK*RD8F27$$\"3_.)of$QC95F2$\"3(yt63&=#)H8F27$$\"31V'y C'R%>.\"F2$\"3L!4mJrZDL\"F27$$\"3#G[))*)3W'\\5F2$\"33>BhlAJL8F27$$\"3k L<(yTQY1\"F2$\"3-dN1HgAK8F27$$\"3W%)\\vYFjz5F2$\"3FM:8s)y$H8F27$$\"3CN #Qc2FY4\"F2$\"3a\\*>jcA]zWz77F27$$\"3>%3*3tc9T7F2$\"3!GY-VbX-;\"F27$$ \"37J)p\"[R-v7F2$\"37jwKYi#Q4\"F27$$\"3Ey0DBA!*38F2$\"3te([aW*o?5F27$$ \"3)4iTENi6M\"F2$\"3;?u];HQt%*F67$$\"3qjE.#[AMP\"F2$\"3?116P2+F()F67$$ \"3u3CuUD329F2$\"35*G7^rrc&zF67$$\"3*R:_MgU2W\"F2$\"3qfdx(zW)3sF67$$\" 3!*[urYIlr9F2$\"31M#[hR][b'F67$$\"3\"Qu#)**[jD]\"F2$\"3&*y&QB-J=F2$\"3FRV-h9*=g\"F67$$\"3Gfb7wY,(*=F2$\"3_qiV:f,*4\"F6 7$$\"3cM5'zg%pg>F2$\"3'ph!zQ!eo&oF/7$$\"3**oJ8:.SJ?F2$\"3]p6-Qk;hHF/7$ $\"3[M>YEk;j?F2$\"3/z(=M#R[89F/7$$\"3)**p!zPD$\\4#F2$\"3CwgIoa5WB!#@7$ $\"3#)e[(>k\\)G@F2$\"3)f-FoA!oX9F/7$$\"3kw#F/7$ $\"3wak3@YBCAF2$\"3&eS:Zjlb!\\F/7$$\"39/bp2#z%eZ;F67$$\"3Kt2RXCLtIF2$\"3;;p;sSch;F6 7$$\"3!)***\\/l#fTJF2$\"3emmmmmmm;F6-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-% +AXESLABELSG6$Q&omega6\"Q!F``l-%%VIEWG6$;F($\"+aEfTJ!\"*;F($\"\"#F)" 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 126 "eval(LPN/Dd,[k=1/1.75,epsil on=-1.5,alpha=-0.5,beta=0.5]);combine(evalc(abs(eval(%,z=exp(I*omega)) )));plot(%,omega=0..Pi,0..2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*($ \"+9dG9d!#5\"\"\",(F(F(*&$\"#:!\"\"F(%\"zGF-F-*&F(F(*$)F.\"\"#F(F-F(F( ,(F(F(*&$\"\"&F-F(F.F-F-*&$F6F-F(F.!\"#F(F-F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&$\"+9dG9d!#5\"\"\"*&,,$\"+++](=\"!\")!\"\"*&$\"+++] ()>F-F(-%$cosG6#%&omegaGF(F(*&$\"++++v6F-F(-F36#,$*&\"\"#F(F5F(F(F(F.* &$\"+++++X!\"*F(-F36#,$*&\"\"$F(F5F(F(F(F(*&$F(\"\"!F(-F36#,$*&\"\"%F( F5F(F(F(F.F(,,$\"++++vQFAF.*&$\"\"'FIF(F2F(F(*&$\"++++DTFAF(F9F(F.*&$ \"+++++:FAF(FBF(F(*&$\"+++++]F'F(FJF(F.F.#F(F=F(" }}{PARA 13 "" 1 "" {GLPLOT2D 784 784 784 {PLOTDATA 2 "6%-%'CURVESG6$7jn7$$\"\"!F)$\"3;+++ dG9dG!#=7$$\"3%)eD2LzxZo!#>$\"3_%3[bjq'QGF,7$$\"3)\\$px*G*f!G\"F,$\"3/ [*4Fq(4#z#F,7$$\"3+5@exGm]>F,$\"3EvDF,7$$\"35!\\D0[nkH$F,$\"3(QFaPd5=S#F,7$$\"37\"=Za&z%)=RF,$\"39 <$R%Q2y&>#F,7$$\"3edXa()oGjXF,$\"3z9sW:hXH>F,7$$\"3W%3**Hbm(H_F,$\"3W \\4!4?Vte\"F,7$$\"37PRr4)3T*eF,$\"3E8F\\d^Vl6F,7$$\"3y\"[)yykYxlF,$\"3 Gi^U8Zj(G'F07$$\"3cw&GAQ<%yoF,$\"3b#QaB[\">MNF07$$\"3[s'ocGo$zrF,$\"3] ^D\"[*)z/4&!#?7$$\"3+1Y\"Hsn\"=vF,$\"37zmUK]=aKF07$$\"3UQ0;gr'p&yF,$\" 3i[I(Q7&\\MuF07$$\"3vFMt?$[t`)F,$\"3bAu:7XaD*F,$\"3G2'e>5Jc(GF,7$$\"3#e'***\\tG2\\*F, $\"3'R%Hc$G4'oMF,7$$\"3#*R7\\HeV)y*F,$\"3h0s$3L)\\0TF,7$$\"3_.)of$QC95 !#<$\"3qJ')4H%4g\"\\F,7$$\"3#G[))*)3W'\\5F[r$\"3[q\"zW)>!\\x&F,7$$\"3W %)\\vYFjz5F[r$\"3'\\-#=!pJ%GlF,7$$\"30'[@XS@'46F[r$\"31=0Y&\\>7H(F,7$$ \"3=]&zEM0X9\"F[r$\"3iUi0(H?u;)F,7$$\"3G9w$3G*Qz6F[r$\"3,^cBR$QH+*F,7$ $\"3C\\L'pZn-@\"F[r$\"3'4)4*3[0Yo*F,7$$\"3>%3*3tc9T7F[r$\"3LF4%\\#GMH5 F[r7$$\"37J)p\"[R-v7F[r$\"3'o8A'R[I'3\"F[r7$$\"3Ey0DBA!*38F[r$\"3Qk6]P =EK6F[r7$$\"3)4iTENi6M\"F[r$\"3)Gm4vh>f;\"F[r7$$\"3qjE.#[AMP\"F[r$\"3W i+%36h/>\"F[r7$$\"3u3CuUD329F[r$\"3(4XwWAdv?\"F[r7$$\"3*R:_MgU2W\"F[r$ \"3[?ikpKS<7F[r7$$\"3!*[urYIlr9F[r$\"37AH#f=78A\"F[r7$$\"3\"Qu#)**[jD] \"F[r$\"3'*e](R!zP@7F[r7$$\"3Q--!*yX!f`\"F[r$\"3bl(*G%[w\"=7F[r7$$\"3= hw\"ymX#p:F[r$\"3\"e%47,X\\77F[r7$$\"3mwM!*4(4&Q;F[r$\"3yK>-k6$e>\"F[r 7$$\"3CDL:iU!))p\"F[r$\"3o;BI+fvy6F[r7$$\"3o(R1/.CRw\"F[r$\"33v)z'=Jvf 6F[r7$$\"32Id)H7*>J=F[r$\"3#HmhP**G29\"F[r7$$\"3Gfb7wY,(*=F[r$\"3Qng;n WKB6F[r7$$\"3cM5'zg%pg>F[r$\"3MT\\G\"4cy5\"F[r7$$\"3**oJ8:.SJ?F[r$\"3E ^(ej&GK#4\"F[r7$$\"3)**p!zPD$\\4#F[r$\"3'G=1f,)zz5F[r7$$\"3k " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "3 1 0" 24 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }