{VERSION 4 0 "APPLE_PPC_MAC" "4.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 "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 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" -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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 60 "Comparison of exact admitt ance and Lorentzian approximation." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name change coords has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "Z(omega) := R+I*omega*L+1/(I*omega*C);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"ZG6#%&omegaG,(%\"RG\"\"\"*(^#F*F*F'F*%\"LGF*F**&^# !\"\"F**&F'F*%\"CGF*F0F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "Lor(omega):=(delta/2)^2/((omega-f)^2+(delta/2)^2)/R;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%$LorG6#%&omegaG,$*&*$)%&deltaG\"\"#\"\"\"F.*&,& *$),&F'F.%\"fG!\"\"F-F.F.*&#F.\"\"%F.F+F.F.F.%\"RGF.F5F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "R:=100;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "L:=0.1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "C:=1e-7; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RG\"$+\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LG$\"\"\"!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %\"CG$\"\"\"!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f:=sqrt (1/(L*C));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "delta:=R/L;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG$\"+++++5!\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&deltaG$\"+++++5!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "p1:=plot(Re(1/Z(omega)),omega=5000..15000,color=blue) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "p2:=plot(Lor(omega),om ega=5000..15000,color=red):" }}}{EXCHG {PARA 0 "" 0 "" {GLPLOT2D 339 299 299 {PLOTDATA 2 "6&-%'CURVESG6$7go7$$\"%+]\"\"!$\"+h(yZU%!#97$$\"+ U:(z@&!\"'$\"+Ud\"\\6&F-7$$\"+9ui2aF1$\"+kA#o!eF-7$$\"+z_\"4i&F1$\"+#) ou1nF-7$$\"+aphNeF1$\"+Af))pxF-7$$\"+*=)H\\gF1$\"+a$f,-*F-7$$\"+[!3uC' F1$\"+C7/R5!#87$$\"+J$RDX'F1$\"+V?\\27FM7$$\"+)R'okmF1$\"+K))R<9FM7$$ \"+1J:woF1$\"+V&yFn\"FM7$$\"+3En$4(F1$\"+_()4)*>FM7$$\"+/RE&G(F1$\"+![ OON#FM7$$\"+D.&4](F1$\"+?')QdGFM7$$\"+vB_2I!*pFM7$$ \"+LY.K&)F1$\"+VhLb*)FM7$$\"+\"o7Tv)F1$\"+oZ\"4B\"!#77$$\"+$Q*o]*)F1$ \"+jFt%o\"Fdq7$$\"+#GF&e!*F1$\"+*ob5.#Fdq7$$\"+\"=lj;*F1$\"+YFEwCFdq7$ $\"+iB0p#*F1$\"+Sw1AIFdq7$$\"+V&R6`U*F1$\"+y 7thTFdq7$$\"+WG))y%*F1$\"+yQ6eYFdq7$$\"+%\\aC`*F1$\"+!y&G9_Fdq7$$\"+Xh -'e*F1$\"+1^ZHeFdq7$$\"+V;AN'*F1$\"+[I$3W'Fdq7$$\"+UrT%o*F1$\"+w^([3(F dq7$$\"+TEhL(*F1$\"+;L\">u(Fdq7$$\"+R\"3Gy*F1$\"+%*3#HQ)Fdq7$$\"+J@(e$ )*F1$\"+vIg7!*Fdq7$$\"+Ah$*)))*F1$\"+l)[Z_*Fdq7$$\"+8,+U**F1$\"+gux+\"F]w$\"+-)Gdw*Fdq7$$\"+D,`55F]w$\"+R5`z&*Fdq7$$\" +#)>/;5F]w$\"+5%>+3*Fdq7$$\"+SQb@5F]w$\"+f'e2Y)Fdq7$$\"+G>NE5F]w$\"+P( z(pyFdq7$$\"+;+:J5F]w$\"+k#R[E(Fdq7$$\"+/\"[f.\"F]w$\"+/vbqmFdq7$$\"+# >Y2/\"F]w$\"+;Eo.hFdq7$$\"+e#Gf/\"F]w$\"+%RtO`&Fdq7$$\"+D.6^5F]w$\"+(= ZK,&Fdq7$$\"+#R#Hc5F]w$\"+!3IOa%Fdq7$$\"+eWZh5F]w$\"+Q**3BTFdq7$$\"+A; =s5F]w$\"+t:G%R$Fdq7$$\"+&y))G3\"F]w$\"+\"*[NBGFdq7$$\"+cOO$4\"F]w$\"+ 0Cg$Q#Fdq7$$\"+E&QQ5\"F]w$\"+#fXQ.#Fdq7$$\"+y%3T7\"F]w$\"+P+`Q:Fdq7$$ \"+/[hY6F]w$\"+sexr6Fdq7$$\"+Qx$o;\"F]w$\"+*oh\\V*FM7$$\"+P+V)=\"F]w$ \"+ST%)owFM7$$\"+qe*z?\"F]w$\"+cz*4Z'FM7$$\"+#\\'QH7F]w$\"+I&)[jaFM7$$ \"+,M^\\7F]w$\"+V(H=s%FM7$$\"+?=bq7F]w$\"+ehJ-TFM7$$\"+@27\"H\"F]w$\"+ OMt6OFM7$$\"+`Wl78F]w$\"+]jc!>$FM7$$\"+'*RRL8F]w$\"+@g(R&GFM7$$\"+vJga 8F]w$\"+$e.Yc#FM7$$\"+Jnjv8F]w$\"+o`>@BFM7$$\"+&Qk\\R\"F]w$\"+U_ZG@FM7 $$\"+dg6<9F]w$\"+$HRt$>FM7$$\"+w(GpV\"F]w$\"+4$\\')y\"FM7$$\"+oK0e9F]w $\"+XuL\\;FM7$$\"+-@Fy9F]w$\"+2CkJ:FM7$$\"&+]\"F*$\"+g$e&>9FM-%'COLOUR G6&%$RGBG$F*F*Fbcl$\"*++++\"!\")-F$6$7go7$F($\"3l,*4!*4!*4!**!#A7$$\"3 ymmmT:(z@&F-$\"30%oN3'zT\"3\"!#@7$$\"37LLe9ui2aF-$\"3zv:\"Q;::<\"Fbdl7 $$\"3bmm;z_\"4i&F-$\"3:CE_j'4pG\"Fbdl7$$\"3!ommT&phNeF-$\"3CjoxSN4@9Fb dl7$$\"3iLLe*=)H\\gF-$\"3#\\^^w!p[w:Fbdl7$$\"3(om;z/3uC'F-$\"3=%*H;S[N WFbdl7$$\"3Ymm\"zR'okmF-$\"3ItxU/ U$z>#Fbdl7$$\"3%)***\\i5`h(oF-$\"3G)Gvn\"p*y\\#Fbdl7$$\"3AMLL3En$4(F-$ \"3Zu%)eV2kuGFbdl7$$\"3=mm;/RE&G(F-$\"3>SI/B%H4G$Fbdl7$$\"3z*****\\K]4 ](F-$\"3*>.b-)p'*[QFbdl7$$\"3Y+++vB_&*>lN(Q\\&Fbdl7$$\"3)pm;z*ev:\")F-$\"30gkwYnHylFbdl7$$\"3B MLL347T$)F-$\"3du\"4M#[6G$)Fbdl7$$\"3vKLLLY.K&)F-$\"3Yu2!ohM&R5!#?7$$ \"3h++D\"o7Tv)F-$\"3HuW2Gj;(Q\"Fcil7$$\"3EMLL$Q*o]*)F-$\"3$Gajy%)3/&=F cil7$$\"3ym;H#GF&e!*F-$\"3C@_\"*zf)**>#Fcil7$$\"3I***\\7=lj;*F-$\"3+FB /&*4lXEFcil7$$\"3`++]iB0p#*F-$\"37t](o)*=w=$Fcil7$$\"3w,+vV&R6`U*F-$\"3:0FtO)f$3VFcil7$$\"3fn;zWG))y%*F-$ \"3C0'Qw(RG$z%Fcil7$$\"3^+DJ&\\aC`*F-$\"3MgML?U0N`Fcil7$$\"3VLL$e9Ege* F-$\"3um%QTqmH$fFcil7$$\"33M3FW;AN'*F-$\"3uCk.\"QPj_'Fcil7$$\"3sM$3F9< Wo*F-$\"3\"R)*z([B=^rFcil7$$\"3PNe9TEhL(*F-$\"30$)=y1'y!*y(Fcil7$$\"3? MLeR\"3Gy*F-$\"3[(Q&\\Syi7%)Fcil7$$\"36n\"H28se$)*F-$\"3))zjP$p#HF!*Fc il7$$\"3&=+v=7O*)))*F-$\"3S/NFiHzH&*Fcil7$$\"3wM3-8,+U**F-$\"3BJ$o%4rA n)*Fcil7$$\"3onm;/T1&***F-$\"3a&4`AdD!****Fcil7$$\"3M/EvuV)3+\"FM$\"3- !>4fAFZ**Fcil7$$\"3r;/wn#=]+\"FM$\"3-;=%*HDF+**Fcil7$$\"3o\"HKk>u x+\"FM$\"3$)=v._R&Rw*Fcil7$$\"3lmT5D,`55FM$\"3q)e!**QEIv&*Fcil7$$\"3g; zW#)>/;5FM$\"3AYrF=@pm!*Fcil7$$\"3sm;zRQb@5FM$\"3/xL-`=$HV)Fcil7$$\"32 +D\"y#>NE5FM$\"3-J))=+o8EyFcil7$$\"3CLL$e,]6.\"FM$\"3+'QcFPRR?(Fcil7$$ \"3emT&Q5[f.\"FM$\"3=CnQoUO#f'Fcil7$$\"3$***\\(=>Y2/\"FM$\"3(HM[E9^#4g Fcil7$$\"3m;aQe#Gf/\"FM$\"3[Q-q4OpBaFcil7$$\"3SLe*[K560\"FM$\"3cKk\\M+ ?!*[Fcil7$$\"3&*\\iS\"R#Hc5FM$\"3Vw!3=]y+T%Fcil7$$\"3pmm\"zXu91\"FM$\" 3BF[()>mX\")RFcil7$$\"3RL$e9i\"=s5FM$\"3k8a&)HPYUKFcil7$$\"3\"******\\ y))G3\"FM$\"3CeZH_G$zm#Fcil7$$\"3'***\\ibOO$4\"FM$\"3X8)RK=0)GAFcil7$$ \"3+++DE&QQ5\"FM$\"3GK,`jV=#)=Fcil7$$\"3'***\\7y%3T7\"FM$\"3Wuj/!p?kR \"Fcil7$$\"3#****\\P![hY6FM$\"3-v`**=Y%=/\"Fcil7$$\"3DLLLQx$o;\"FM$\"3 wn8ya8NT#)Fbdl7$$\"32++]P+V)=\"FM$\"3SST(yoHzd'Fbdl7$$\"3qm;zpe*z?\"FM $\"3Y6qt'H9IY&Fbdl7$$\"3;++]#\\'QH7FM$\"3q`=c[*4d`%Fbdl7$$\"3GL$e9S8& \\7FM$\"3j66!fA!fgQFbdl7$$\"32+]i?=bq7FM$\"3;&=vHh%e-LFbdl7$$\"3KLL$3s ?6H\"FM$\"3n,E`rwGlGFbdl7$$\"3'***\\7`Wl78FM$\"3#zl)3hdp$\\#Fbdl7$$\"3 ommm'*RRL8FM$\"3#GOVb*eq*>#Fbdl7$$\"3jmmTvJga8FM$\"3XsG2xyT\\>Fbdl7$$ \"3XL$e9tOcP\"FM$\"3,L!>EE64u\"Fbdl7$$\"3/+++&Qk\\R\"FM$\"3gRN9g#=td\" Fbdl7$$\"3OLL3dg6<9FM$\"3O#ex(>Xa;9Fbdl7$$\"3kmmmw(GpV\"FM$\"39&e$\\]D h#H\"Fbdl7$$\"32+]7oK0e9FM$\"3%**>xJ#z]x6Fbdl7$$\"3/+](=5s#y9FM$\"3GA& )R!=363\"Fbdl7$FjblFjcl-F_cl6&FaclFcclFbclFbcl-%+AXESLABELSG6$Q&omega6 \"Q!6\"-%%VIEWG6$;F(Fjbl;Fbcl$\"\"\"!\"#" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}{GLPLOT2D 322 299 299 {PLOTDATA 2 "6&-%'CURVESG6$7go7$$\"%+]\"\"!$\"+h(yZU%!#97$$\"+ U:(z@&!\"'$\"+Ud\"\\6&F-7$$\"+9ui2aF1$\"+kA#o!eF-7$$\"+z_\"4i&F1$\"+#) ou1nF-7$$\"+aphNeF1$\"+Af))pxF-7$$\"+*=)H\\gF1$\"+a$f,-*F-7$$\"+[!3uC' F1$\"+C7/R5!#87$$\"+J$RDX'F1$\"+V?\\27FM7$$\"+)R'okmF1$\"+K))R<9FM7$$ \"+1J:woF1$\"+V&yFn\"FM7$$\"+3En$4(F1$\"+_()4)*>FM7$$\"+/RE&G(F1$\"+![ OON#FM7$$\"+D.&4](F1$\"+?')QdGFM7$$\"+vB_2I!*pFM7$$ \"+LY.K&)F1$\"+VhLb*)FM7$$\"+\"o7Tv)F1$\"+oZ\"4B\"!#77$$\"+$Q*o]*)F1$ \"+jFt%o\"Fdq7$$\"+#GF&e!*F1$\"+*ob5.#Fdq7$$\"+\"=lj;*F1$\"+YFEwCFdq7$ $\"+iB0p#*F1$\"+Sw1AIFdq7$$\"+V&R6`U*F1$\"+y 7thTFdq7$$\"+WG))y%*F1$\"+yQ6eYFdq7$$\"+%\\aC`*F1$\"+!y&G9_Fdq7$$\"+Xh -'e*F1$\"+1^ZHeFdq7$$\"+V;AN'*F1$\"+[I$3W'Fdq7$$\"+UrT%o*F1$\"+w^([3(F dq7$$\"+TEhL(*F1$\"+;L\">u(Fdq7$$\"+R\"3Gy*F1$\"+%*3#HQ)Fdq7$$\"+J@(e$ )*F1$\"+vIg7!*Fdq7$$\"+Ah$*)))*F1$\"+l)[Z_*Fdq7$$\"+8,+U**F1$\"+gux+\"F]w$\"+-)Gdw*Fdq7$$\"+D,`55F]w$\"+R5`z&*Fdq7$$\" +#)>/;5F]w$\"+5%>+3*Fdq7$$\"+SQb@5F]w$\"+f'e2Y)Fdq7$$\"+G>NE5F]w$\"+P( z(pyFdq7$$\"+;+:J5F]w$\"+k#R[E(Fdq7$$\"+/\"[f.\"F]w$\"+/vbqmFdq7$$\"+# >Y2/\"F]w$\"+;Eo.hFdq7$$\"+e#Gf/\"F]w$\"+%RtO`&Fdq7$$\"+D.6^5F]w$\"+(= ZK,&Fdq7$$\"+#R#Hc5F]w$\"+!3IOa%Fdq7$$\"+eWZh5F]w$\"+Q**3BTFdq7$$\"+A; =s5F]w$\"+t:G%R$Fdq7$$\"+&y))G3\"F]w$\"+\"*[NBGFdq7$$\"+cOO$4\"F]w$\"+ 0Cg$Q#Fdq7$$\"+E&QQ5\"F]w$\"+#fXQ.#Fdq7$$\"+y%3T7\"F]w$\"+P+`Q:Fdq7$$ \"+/[hY6F]w$\"+sexr6Fdq7$$\"+Qx$o;\"F]w$\"+*oh\\V*FM7$$\"+P+V)=\"F]w$ \"+ST%)owFM7$$\"+qe*z?\"F]w$\"+cz*4Z'FM7$$\"+#\\'QH7F]w$\"+I&)[jaFM7$$ \"+,M^\\7F]w$\"+V(H=s%FM7$$\"+?=bq7F]w$\"+ehJ-TFM7$$\"+@27\"H\"F]w$\"+ OMt6OFM7$$\"+`Wl78F]w$\"+]jc!>$FM7$$\"+'*RRL8F]w$\"+@g(R&GFM7$$\"+vJga 8F]w$\"+$e.Yc#FM7$$\"+Jnjv8F]w$\"+o`>@BFM7$$\"+&Qk\\R\"F]w$\"+U_ZG@FM7 $$\"+dg6<9F]w$\"+$HRt$>FM7$$\"+w(GpV\"F]w$\"+4$\\')y\"FM7$$\"+oK0e9F]w $\"+XuL\\;FM7$$\"+-@Fy9F]w$\"+2CkJ:FM7$$\"&+]\"F*$\"+g$e&>9FM-%'COLOUR G6&%$RGBG$F*F*Fbcl$\"*++++\"!\")-F$6$7go7$F($\"3l,*4!*4!*4!**!#A7$$\"3 ymmmT:(z@&F-$\"30%oN3'zT\"3\"!#@7$$\"37LLe9ui2aF-$\"3zv:\"Q;::<\"Fbdl7 $$\"3bmm;z_\"4i&F-$\"3:CE_j'4pG\"Fbdl7$$\"3!ommT&phNeF-$\"3CjoxSN4@9Fb dl7$$\"3iLLe*=)H\\gF-$\"3#\\^^w!p[w:Fbdl7$$\"3(om;z/3uC'F-$\"3=%*H;S[N WFbdl7$$\"3Ymm\"zR'okmF-$\"3ItxU/ U$z>#Fbdl7$$\"3%)***\\i5`h(oF-$\"3G)Gvn\"p*y\\#Fbdl7$$\"3AMLL3En$4(F-$ \"3Zu%)eV2kuGFbdl7$$\"3=mm;/RE&G(F-$\"3>SI/B%H4G$Fbdl7$$\"3z*****\\K]4 ](F-$\"3*>.b-)p'*[QFbdl7$$\"3Y+++vB_&*>lN(Q\\&Fbdl7$$\"3)pm;z*ev:\")F-$\"30gkwYnHylFbdl7$$\"3B MLL347T$)F-$\"3du\"4M#[6G$)Fbdl7$$\"3vKLLLY.K&)F-$\"3Yu2!ohM&R5!#?7$$ \"3h++D\"o7Tv)F-$\"3HuW2Gj;(Q\"Fcil7$$\"3EMLL$Q*o]*)F-$\"3$Gajy%)3/&=F cil7$$\"3ym;H#GF&e!*F-$\"3C@_\"*zf)**>#Fcil7$$\"3I***\\7=lj;*F-$\"3+FB /&*4lXEFcil7$$\"3`++]iB0p#*F-$\"37t](o)*=w=$Fcil7$$\"3w,+vV&R6`U*F-$\"3:0FtO)f$3VFcil7$$\"3fn;zWG))y%*F-$ \"3C0'Qw(RG$z%Fcil7$$\"3^+DJ&\\aC`*F-$\"3MgML?U0N`Fcil7$$\"3VLL$e9Ege* F-$\"3um%QTqmH$fFcil7$$\"33M3FW;AN'*F-$\"3uCk.\"QPj_'Fcil7$$\"3sM$3F9< Wo*F-$\"3\"R)*z([B=^rFcil7$$\"3PNe9TEhL(*F-$\"30$)=y1'y!*y(Fcil7$$\"3? MLeR\"3Gy*F-$\"3[(Q&\\Syi7%)Fcil7$$\"36n\"H28se$)*F-$\"3))zjP$p#HF!*Fc il7$$\"3&=+v=7O*)))*F-$\"3S/NFiHzH&*Fcil7$$\"3wM3-8,+U**F-$\"3BJ$o%4rA n)*Fcil7$$\"3onm;/T1&***F-$\"3a&4`AdD!****Fcil7$$\"3M/EvuV)3+\"FM$\"3- !>4fAFZ**Fcil7$$\"3r;/wn#=]+\"FM$\"3-;=%*HDF+**Fcil7$$\"3o\"HKk>u x+\"FM$\"3$)=v._R&Rw*Fcil7$$\"3lmT5D,`55FM$\"3q)e!**QEIv&*Fcil7$$\"3g; zW#)>/;5FM$\"3AYrF=@pm!*Fcil7$$\"3sm;zRQb@5FM$\"3/xL-`=$HV)Fcil7$$\"32 +D\"y#>NE5FM$\"3-J))=+o8EyFcil7$$\"3CLL$e,]6.\"FM$\"3+'QcFPRR?(Fcil7$$ \"3emT&Q5[f.\"FM$\"3=CnQoUO#f'Fcil7$$\"3$***\\(=>Y2/\"FM$\"3(HM[E9^#4g Fcil7$$\"3m;aQe#Gf/\"FM$\"3[Q-q4OpBaFcil7$$\"3SLe*[K560\"FM$\"3cKk\\M+ ?!*[Fcil7$$\"3&*\\iS\"R#Hc5FM$\"3Vw!3=]y+T%Fcil7$$\"3pmm\"zXu91\"FM$\" 3BF[()>mX\")RFcil7$$\"3RL$e9i\"=s5FM$\"3k8a&)HPYUKFcil7$$\"3\"******\\ y))G3\"FM$\"3CeZH_G$zm#Fcil7$$\"3'***\\ibOO$4\"FM$\"3X8)RK=0)GAFcil7$$ \"3+++DE&QQ5\"FM$\"3GK,`jV=#)=Fcil7$$\"3'***\\7y%3T7\"FM$\"3Wuj/!p?kR \"Fcil7$$\"3#****\\P![hY6FM$\"3-v`**=Y%=/\"Fcil7$$\"3DLLLQx$o;\"FM$\"3 wn8ya8NT#)Fbdl7$$\"32++]P+V)=\"FM$\"3SST(yoHzd'Fbdl7$$\"3qm;zpe*z?\"FM $\"3Y6qt'H9IY&Fbdl7$$\"3;++]#\\'QH7FM$\"3q`=c[*4d`%Fbdl7$$\"3GL$e9S8& \\7FM$\"3j66!fA!fgQFbdl7$$\"32+]i?=bq7FM$\"3;&=vHh%e-LFbdl7$$\"3KLL$3s ?6H\"FM$\"3n,E`rwGlGFbdl7$$\"3'***\\7`Wl78FM$\"3#zl)3hdp$\\#Fbdl7$$\"3 ommm'*RRL8FM$\"3#GOVb*eq*>#Fbdl7$$\"3jmmTvJga8FM$\"3XsG2xyT\\>Fbdl7$$ \"3XL$e9tOcP\"FM$\"3,L!>EE64u\"Fbdl7$$\"3/+++&Qk\\R\"FM$\"3gRN9g#=td\" Fbdl7$$\"3OLL3dg6<9FM$\"3O#ex(>Xa;9Fbdl7$$\"3kmmmw(GpV\"FM$\"39&e$\\]D h#H\"Fbdl7$$\"32+]7oK0e9FM$\"3%**>xJ#z]x6Fbdl7$$\"3/+](=5s#y9FM$\"3GA& )R!=363\"Fbdl7$FjblFjcl-F_cl6&FaclFcclFbclFbcl-%+AXESLABELSG6$Q&omega6 \"Q!6\"-%%VIEWG6$;F(Fjbl;Fbcl$\"\"#!\"$" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "display(p1,p2,view=[50 00..15000,0..0.01]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7go7$$\"%+]\"\"!$\"+h(yZU%!#97$$\"+U:(z@&! \"'$\"+Ud\"\\6&F-7$$\"+9ui2aF1$\"+kA#o!eF-7$$\"+z_\"4i&F1$\"+#)ou1nF-7 $$\"+aphNeF1$\"+Af))pxF-7$$\"+*=)H\\gF1$\"+a$f,-*F-7$$\"+[!3uC'F1$\"+C 7/R5!#87$$\"+J$RDX'F1$\"+V?\\27FM7$$\"+)R'okmF1$\"+K))R<9FM7$$\"+1J:wo F1$\"+V&yFn\"FM7$$\"+3En$4(F1$\"+_()4)*>FM7$$\"+/RE&G(F1$\"+![OON#FM7$ $\"+D.&4](F1$\"+?')QdGFM7$$\"+vB_2I!*pFM7$$\"+LY.K&) F1$\"+VhLb*)FM7$$\"+\"o7Tv)F1$\"+oZ\"4B\"!#77$$\"+$Q*o]*)F1$\"+jFt%o\" Fdq7$$\"+#GF&e!*F1$\"+*ob5.#Fdq7$$\"+\"=lj;*F1$\"+YFEwCFdq7$$\"+iB0p#* F1$\"+Sw1AIFdq7$$\"+V&R6`U*F1$\"+y7thTFdq7$$ \"+WG))y%*F1$\"+yQ6eYFdq7$$\"+%\\aC`*F1$\"+!y&G9_Fdq7$$\"+Xh-'e*F1$\"+ 1^ZHeFdq7$$\"+V;AN'*F1$\"+[I$3W'Fdq7$$\"+UrT%o*F1$\"+w^([3(Fdq7$$\"+TE hL(*F1$\"+;L\">u(Fdq7$$\"+R\"3Gy*F1$\"+%*3#HQ)Fdq7$$\"+J@(e$)*F1$\"+vI g7!*Fdq7$$\"+Ah$*)))*F1$\"+l)[Z_*Fdq7$$\"+8,+U**F1$\"+gux+\"F]w$\"+-)Gdw*Fdq7$$\"+D,`55F]w$\"+R5`z&*Fdq7$$\"+#)>/;5F]w $\"+5%>+3*Fdq7$$\"+SQb@5F]w$\"+f'e2Y)Fdq7$$\"+G>NE5F]w$\"+P(z(pyFdq7$$ \"+;+:J5F]w$\"+k#R[E(Fdq7$$\"+/\"[f.\"F]w$\"+/vbqmFdq7$$\"+#>Y2/\"F]w$ \"+;Eo.hFdq7$$\"+e#Gf/\"F]w$\"+%RtO`&Fdq7$$\"+D.6^5F]w$\"+(=ZK,&Fdq7$$ \"+#R#Hc5F]w$\"+!3IOa%Fdq7$$\"+eWZh5F]w$\"+Q**3BTFdq7$$\"+A;=s5F]w$\"+ t:G%R$Fdq7$$\"+&y))G3\"F]w$\"+\"*[NBGFdq7$$\"+cOO$4\"F]w$\"+0Cg$Q#Fdq7 $$\"+E&QQ5\"F]w$\"+#fXQ.#Fdq7$$\"+y%3T7\"F]w$\"+P+`Q:Fdq7$$\"+/[hY6F]w $\"+sexr6Fdq7$$\"+Qx$o;\"F]w$\"+*oh\\V*FM7$$\"+P+V)=\"F]w$\"+ST%)owFM7 $$\"+qe*z?\"F]w$\"+cz*4Z'FM7$$\"+#\\'QH7F]w$\"+I&)[jaFM7$$\"+,M^\\7F]w $\"+V(H=s%FM7$$\"+?=bq7F]w$\"+ehJ-TFM7$$\"+@27\"H\"F]w$\"+OMt6OFM7$$\" +`Wl78F]w$\"+]jc!>$FM7$$\"+'*RRL8F]w$\"+@g(R&GFM7$$\"+vJga8F]w$\"+$e.Y c#FM7$$\"+Jnjv8F]w$\"+o`>@BFM7$$\"+&Qk\\R\"F]w$\"+U_ZG@FM7$$\"+dg6<9F] w$\"+$HRt$>FM7$$\"+w(GpV\"F]w$\"+4$\\')y\"FM7$$\"+oK0e9F]w$\"+XuL\\;FM 7$$\"+-@Fy9F]w$\"+2CkJ:FM7$$\"&+]\"F*$\"+g$e&>9FM-%'COLOURG6&%$RGBG$F* F*Fbcl$\"*++++\"!\")-F$6$7go7$F($\"3l,*4!*4!*4!**!#A7$$\"3ymmmT:(z@&F- $\"30%oN3'zT\"3\"!#@7$$\"37LLe9ui2aF-$\"3zv:\"Q;::<\"Fbdl7$$\"3bmm;z_ \"4i&F-$\"3:CE_j'4pG\"Fbdl7$$\"3!ommT&phNeF-$\"3CjoxSN4@9Fbdl7$$\"3iLL e*=)H\\gF-$\"3#\\^^w!p[w:Fbdl7$$\"3(om;z/3uC'F-$\"3=%*H;S[NWFbdl7$$\"3Ymm\"zR'okmF-$\"3ItxU/U$z>#Fbdl7$ $\"3%)***\\i5`h(oF-$\"3G)Gvn\"p*y\\#Fbdl7$$\"3AMLL3En$4(F-$\"3Zu%)eV2k uGFbdl7$$\"3=mm;/RE&G(F-$\"3>SI/B%H4G$Fbdl7$$\"3z*****\\K]4](F-$\"3*>. b-)p'*[QFbdl7$$\"3Y+++vB_&*>lN(Q\\&Fbdl7$$\"3)pm;z*ev:\")F-$\"30gkwYnHylFbdl7$$\"3BMLL347T$)F- $\"3du\"4M#[6G$)Fbdl7$$\"3vKLLLY.K&)F-$\"3Yu2!ohM&R5!#?7$$\"3h++D\"o7T v)F-$\"3HuW2Gj;(Q\"Fcil7$$\"3EMLL$Q*o]*)F-$\"3$Gajy%)3/&=Fcil7$$\"3ym; H#GF&e!*F-$\"3C@_\"*zf)**>#Fcil7$$\"3I***\\7=lj;*F-$\"3+FB/&*4lXEFcil7 $$\"3`++]iB0p#*F-$\"37t](o)*=w=$Fcil7$$\"3w,+vV&R6`U*F-$\"3:0FtO)f$3VFcil7$$\"3fn;zWG))y%*F-$\"3C0'Qw(RG$ z%Fcil7$$\"3^+DJ&\\aC`*F-$\"3MgML?U0N`Fcil7$$\"3VLL$e9Ege*F-$\"3um%QTq mH$fFcil7$$\"33M3FW;AN'*F-$\"3uCk.\"QPj_'Fcil7$$\"3sM$3F94fAFZ **Fcil7$$\"3r;/wn#=]+\"FM$\"3-;=%*HDF+**Fcil7$$\"3o\"HKk>ux+\"FM$\"3$) =v._R&Rw*Fcil7$$\"3lmT5D,`55FM$\"3q)e!**QEIv&*Fcil7$$\"3g;zW#)>/;5FM$ \"3AYrF=@pm!*Fcil7$$\"3sm;zRQb@5FM$\"3/xL-`=$HV)Fcil7$$\"32+D\"y#>NE5F M$\"3-J))=+o8EyFcil7$$\"3CLL$e,]6.\"FM$\"3+'QcFPRR?(Fcil7$$\"3emT&Q5[f .\"FM$\"3=CnQoUO#f'Fcil7$$\"3$***\\(=>Y2/\"FM$\"3(HM[E9^#4gFcil7$$\"3m ;aQe#Gf/\"FM$\"3[Q-q4OpBaFcil7$$\"3SLe*[K560\"FM$\"3cKk\\M+?!*[Fcil7$$ \"3&*\\iS\"R#Hc5FM$\"3Vw!3=]y+T%Fcil7$$\"3pmm\"zXu91\"FM$\"3BF[()>mX\" )RFcil7$$\"3RL$e9i\"=s5FM$\"3k8a&)HPYUKFcil7$$\"3\"******\\y))G3\"FM$ \"3CeZH_G$zm#Fcil7$$\"3'***\\ibOO$4\"FM$\"3X8)RK=0)GAFcil7$$\"3+++DE&Q Q5\"FM$\"3GK,`jV=#)=Fcil7$$\"3'***\\7y%3T7\"FM$\"3Wuj/!p?kR\"Fcil7$$\" 3#****\\P![hY6FM$\"3-v`**=Y%=/\"Fcil7$$\"3DLLLQx$o;\"FM$\"3wn8ya8NT#)F bdl7$$\"32++]P+V)=\"FM$\"3SST(yoHzd'Fbdl7$$\"3qm;zpe*z?\"FM$\"3Y6qt'H9 IY&Fbdl7$$\"3;++]#\\'QH7FM$\"3q`=c[*4d`%Fbdl7$$\"3GL$e9S8&\\7FM$\"3j66 !fA!fgQFbdl7$$\"32+]i?=bq7FM$\"3;&=vHh%e-LFbdl7$$\"3KLL$3s?6H\"FM$\"3n ,E`rwGlGFbdl7$$\"3'***\\7`Wl78FM$\"3#zl)3hdp$\\#Fbdl7$$\"3ommm'*RRL8FM $\"3#GOVb*eq*>#Fbdl7$$\"3jmmTvJga8FM$\"3XsG2xyT\\>Fbdl7$$\"3XL$e9tOcP \"FM$\"3,L!>EE64u\"Fbdl7$$\"3/+++&Qk\\R\"FM$\"3gRN9g#=td\"Fbdl7$$\"3OL L3dg6<9FM$\"3O#ex(>Xa;9Fbdl7$$\"3kmmmw(GpV\"FM$\"39&e$\\]Dh#H\"Fbdl7$$ \"32+]7oK0e9FM$\"3%**>xJ#z]x6Fbdl7$$\"3/+](=5s#y9FM$\"3GA&)R!=363\"Fbd l7$FjblFjcl-F_cl6&FaclFcclFbclFbcl-%+AXESLABELSG6$Q&omega6\"Q!6\"-%%VI EWG6$;F(Fjbl;Fbcl$\"\"\"!\"#" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "plot(Re(1/Z(omega))-Lor(omega),omega=5000..15000,c olor=blue);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&- %'CURVESG6#7ep7$$\"%+]\"\"!$!+R8@wa!#97$$\"+U:(z@&!\"'$!+oQE*p&F-7$$\" +9ui2aF1$!+w$H$3fF-7$$\"+z_\"4i&F1$!+e(\\B;'F-7$$\"+aphNeF1$!+)[\\5W'F -7$$\"+*=)H\\gF1$!+;(4Zu'F-7$$\"+[!3uC'F1$!*;OJ0(!#87$$\"+J$RDX'F1$!*' G'QS(FM7$$\"+)R'okmF1$!*t``!yFM7$$\"+1J:woF1$!*t$=^#)FM7$$\"+3En$4(F1$ !*!*>aw)FM7$$\"+/RE&G(F1$!*UHHF*FM7$$\"+D.&4](F1$!*g$y:**FM7$$\"+vB_*F1$!*?!)*)o\"Fdq7$$\"+r(3x@*F1$!*Tw6o\"Fdq7$$ \"+n0QV#*F1$!*KR,n\"Fdq7$$\"+iB0p#*F1$!*X8bl\"Fdq7$$\"+`fR?$*F1$!*%3(R h\"Fdq7$$\"+V&Rux+\"Fjy$\"(A[x\"Fdq7$$ \"+D,`55Fjy$\"(*QGUFdq7$$\"+#)>/;5Fjy$\")UsK8Fdq7$$\"+SQb@5Fjy$\")Jo#y #Fdq7$$\"+G>NE5Fjy$\")fHkVFdq7$$\"+;+:J5Fjy$\")9***3'Fdq7$$\"+/\"[f.\" Fjy$\")aK>yFdq7$$\"+#>Y2/\"Fjy$\"))[JW*Fdq7$$\"+D.6^5Fjy$\"*ir/B\"Fdq7 $$\"+eWZh5Fjy$\"*ELjT\"Fdq7$$\"+S!Go1\"Fjy$\"*^GrZ\"Fdq7$$\"+A;=s5Fjy$ \"*vy\"=:Fdq7$$\"+8%e[2\"Fjy$\"*NeB`\"Fdq7$$\"+/_`x5Fjy$\"*:XGa\"Fdq7$ $\"+%*>@!3\"Fjy$\"*M:+b\"Fdq7$$\"+&y))G3\"Fjy$\"*R?Ub\"Fdq7$$\"+-v]&3 \"Fjy$\"*Nxdb\"Fdq7$$\"+?i7)3\"Fjy$\"*#y3b:Fdq7$$\"+Q\\u!4\"Fjy$\"*F3C b\"Fdq7$$\"+cOO$4\"Fjy$\"*Nsza\"Fdq7$$\"+\"4,')4\"Fjy$\"*qfY`\"Fdq7$$ \"+E&QQ5\"Fjy$\"*@7m^\"Fdq7$$\"+-N(R6\"Fjy$\"*]]CZ\"Fdq7$$\"+y%3T7\"Fj y$\"*X$4@9Fdq7$$\"+/[hY6Fjy$\"*c7$*H\"Fdq7$$\"+Qx$o;\"Fjy$\"+/.h$>\"FM 7$$\"+P+V)=\"Fjy$\"+?W\"44\"FM7$$\"+qe*z?\"Fjy$\"+rO)z+\"FM7$$\"+#\\'Q H7Fjy$\"*i&yx#*FM7$$\"+,M^\\7Fjy$\"*.&R7')FM7$$\"+?=bq7Fjy$\"*I:t*zFM7 $$\"+@27\"H\"Fjy$\"*odWY(FM7$$\"+`Wl78Fjy$\"*)eqopFM7$$\"+'*RRL8Fjy$\" *<,Fa'FM7$$\"+vJga8Fjy$\"*,d=:'FM7$$\"+Jnjv8Fjy$\"*-TG!eFM7$$\"+&Qk\\R \"Fjy$\"*#)p:^&FM7$$\"+dg6<9Fjy$\"*tZz?&FM7$$\"+w(GpV\"Fjy$\"*bn.'\\FM 7$$\"+oK0e9Fjy$\"*@&H=ZFM7$$\"+-@Fy9Fjy$\"*FU`]%FM7$$\"&+]\"F*$\"++Nf% H%F--%+AXESLABELSG6$Q&omega6\"Q!6\"-%'COLOURG6&%$RGBG$F*F*F_hl$\"*++++ \"!\")-%%VIEWG6$;F(F`gl%(DEFAULTG" 1 2 0 1 10 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "plot((Re(1/Z(omega))-Lor(omega))/Lor(omega),omega=500 0..15000,color=blue);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#7W7$$\"%+]\"\"!$!+_M(4`&!#57$$\"+U:(z@&!\"' $!+;oid#F -7$$\"+vB_s#*!#77$$\"+R\"3Gy*F1$!+!pJ7`$F]s7$$\"+Ah$*)))*F1$!+![wHH&!#87$$\"+ .T1&***F1$!+'zm/z%!#<7$$\"+D,`55!\"&$\"+%[KfT%Fhs7$$\"+SQb@5Fbt$\"+I8y *H$F]s7$$\"+;+:J5Fbt$\"++hp`%)F]s7$$\"+#>Y2/\"Fbt$\"+3_Vr:Fhq7$$\"+eWZ h5Fbt$\"+gVKdNFhq7$$\"+&y))G3\"Fbt$\"+s.cDeFhq7$$\"+E&QQ5\"Fbt$\"+cRsd !)Fhq7$$\"+y%3T7\"Fbt$\"+q&ow,\"F-7$$\"+/[hY6Fbt$\"+4q7Z7F-7$$\"+Qx$o; \"Fbt$\"+m'=$[9F-7$$\"+P+V)=\"Fbt$\"+^kWe;F-7$$\"+qe*z?\"Fbt$\"+=`5X=F -7$$\"+#\\'QH7Fbt$\"+!*z\\X?F-7$$\"+,M^\\7Fbt$\"+*H\\3B#F-7$$\"+?=bq7F bt$\"+&GK:U#F-7$$\"+@27\"H\"Fbt$\"+vP80EF-7$$\"+`Wl78Fbt$\"+-$HXz#F-7$ $\"+'*RRL8Fbt$\"+*o_V(HF-7$$\"+vJga8Fbt$\"+D0ubJF-7$$\"+Jnjv8Fbt$\"+T/ ALLF-7$$\"+&Qk\\R\"Fbt$\"+ghE%\\$F-7$$\"+dg6<9Fbt$\"+!R:ln$F-7$$\"+w(G pV\"Fbt$\"+sVZPQF-7$$\"+oK0e9Fbt$\"++y,2SF-7$$\"+-@Fy9Fbt$\"+SrLnTF-7$ $\"&+]\"F*$\"+O%RvL%F--%+AXESLABELSG6$Q&omega6\"Q!6\"-%'COLOURG6&%$RGB G$F*F*F]]l$\"*++++\"!\")-%%VIEWG6$;F(F^\\l%(DEFAULTG" 1 2 0 1 10 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 17 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }