{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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Digits:=14;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ModulHz2:=proc(fce,T)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 " lo cal i,j,nu,de,Nnu,Nde,Anu,Ade;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 " \+ nu:=numer(fce);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 " de:=denom(fce );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " Nnu:=degree(nu);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " Nde:=degree(de);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 96 " Anu:=add(`if`(i>0,2,1)*cos(i*omega*T)*add(coeff(nu, z,j)*coeff(nu,z,j+i),j=0..Nnu-i),i=0..Nnu);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 96 " Ade:=add(`if`(i>0,2,1)*cos(i*omega*T)*add(coeff(de, z,j)*coeff(de,z,j+i),j=0..Nde-i),i=0..Nde);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 " unapply((Anu/Ade),omega);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "T2 :=-(Ci*Cd*z^2+(Cg*Ca-Cj*Cd-Ci*Cd)*z+Cj*Cd-Ch*Ca)/((Cd*Cf+Cb*Cd)*z^2+(C a*Ce-Cd*Cf+Ca*Cc-2*Cb*Cd)*z+Cb*Cd-Ca*Ce);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#T2G,$*&,**(%#CiG\"\"\"%#CdGF*)%\"zG\"\"#F*F**&,(*&%# CgGF*%#CaGF*F**&%#CjGF*F+F*!\"\"*&F)F*F+F*F6F*F-F*F*F4F**&%#ChGF*F3F*F 6F*,**&,&*&F+F*%#CfGF*F**&%#CbGF*F+F*F*F*F,F*F**&,**&F3F*%#CeGF*F*F=F6 *&F3F*%#CcGF*F**(F.F*F@F*F+F*F6F*F-F*F*F?F*FCF6F6F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "T3:=((Ci*Ce-Cg*Cb+Ci*Cc-Cg*Cf)*z^2+(-Ce* Cj+Cg*Cb+Ch*Cb+Ch*Cf-Cj*Cc-Ci*Ce)*z-Ch*Cb+Ce*Cj)/((Cd*Cf+Cb*Cd)*z^2+(C a*Ce-Cd*Cf+Ca*Cc-2*Cb*Cd)*z+Cb*Cd-Ca*Ce);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#T3G*&,**&,**&%#CiG\"\"\"%#CeGF+F+*&%#CgGF+%#CbGF+!\" \"*&F*F+%#CcGF+F+*&F.F+%#CfGF+F0F+)%\"zG\"\"#F+F+*&,.*&F,F+%#CjGF+F0F- F+*&%#ChGF+F/F+F+*&F=F+F4F+F+*&F;F+F2F+F0F)F0F+F6F+F+F " 0 "" {MPLTEXT 1 0 34 "T2E:=subs(Ca=1,Cb=1,Cd=1,Cf=0,T2);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%$T2EG,$*&,**&%#CiG\"\"\")%\"zG\"\"#F*F**&,(%#CgGF*% #CjG!\"\"F)F2F*F,F*F*F1F*%#ChGF2F*,**$F+F*F**&,(%#CeGF*F-F2%#CcGF*F*F, F*F*F*F*F8F2F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "T3E:=su bs(Ca=1,Cb=1,Cd=1,Cf=0,T3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$T3EG *&,**&,(*&%#CiG\"\"\"%#CeGF+F+%#CgG!\"\"*&F*F+%#CcGF+F+F+)%\"zG\"\"#F+ F+*&,,*&F,F+%#CjGF+F.F-F+%#ChGF+*&F7F+F0F+F.F)F.F+F2F+F+F8F.F6F+F+,**$ F1F+F+*&,(F,F+F3F.F0F+F+F2F+F+F+F+F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "fp:=1633;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#fpG\"% L;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "Qp:=16;" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#QpG\"#;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "fs:=8000;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#fsG\"% +!)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "G0:=10;" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#G0G\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "fpw:=evalf(2*fs*tan(2*Pi*fp/2/fs)/(2*Pi));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$fpwG$\"/9!H(p-,>!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "Ha:=unapply(evalf(10^(G0/20)*(2*Pi*fp/Qp*s)/( s^2+2*Pi*fp/Qp*s+(2*Pi*fp)^2)),s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#HaGf*6#%\"sG6\"6$%)operatorG%&arrowGF(,$*($\"/cvHy*y-#!#5\"\"\"9$F1 ,(*$)F2\"\"#F1F1*&$\"/-9/gx7k!#6F1F2F1F1$\"/&H'>mw_5!\"&F1!\"\"F1F(F(F (" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 40 "P\370edzkreslen\341 analogov \341 p\370enosov\341 funkce" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "Haw:=unapply(evalf(10^(G0/20)*(2*Pi*fpw/Qp*s)/(s^2+2* Pi*fpw/Qp*s+(2*Pi*fpw)^2)),s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$H awGf*6#%\"sG6\"6$%)operatorG%&arrowGF(,$*($\"/OCK+ugB!#5\"\"\"9$F1,(*$ )F2\"\"#F1F1*&$\"/!HaY:`Y(!#6F1F2F1F1$\"/$ef$>rE9!\"&F1!\"\"F1F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "hd_bl:=normal(Haw(2*fs*(z -1)/(z+1)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&hd_blG,$**$\"/)*e^S =xP!\"'\"\"\",&%\"zGF*$F*\"\"!F*F*,&F,F*$F*F.!\"\"F*,(*&$\"/_S$)p:1T! \"&F*)F,\"\"#F*F**&$\"/M3GhdmAF6F*F,F*F1$\"/9^))oEnQF6F*F1F*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "lhd_bl:=lcoeff(denom(hd_bl)) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'lhd_blG$\"/_S$)p:1T!\"&" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 26 "Digit\341ln\355 p\370enosov\341 fu nkce" }{MPLTEXT 1 0 2 " " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "Hd_bl: =unapply(evalf(numer(hd_bl)/lhd_bl)/evalf(denom(hd_bl)/lhd_bl),z);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%&Hd_blGf*6#%\"zG6\"6$%)operatorG%&ar rowGF(,$**$\"/!3]6I))>*!#:\"\"\",&9$F1$F1\"\"!F1F1,&F3F1$F1F5!\"\"F1,( *&$\"/)*************!#9F1)F3\"\"#F1F1*&$\"/o2R^%*>bF=F1F3F1F8$\"/Ab+\\ @=%*F=F1F8F1F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "subs( Cj=0,Cg=Ci,T2E);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&,&*&%#CiG\"\" \")%\"zG\"\"#F(F(%#ChG!\"\"F(,**$F)F(F(*&,(%#CeGF(F+F-%#CcGF(F(F*F(F(F (F(F2F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "rovE:=tcoeff (denom(Hd_bl(z)))=tcoeff(denom(T2E),z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%rovEG/$\"/Ab+\\@=%*!#9,&\"\"\"F*%#CeG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "CE:=solve(rovE);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CEG$\"/!yW*4&y\"e!#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "rovC:=coeff(denom(Hd_bl(z)),z,1)=subs(Ce=CE,coeff(den om(T2E),z,1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%rovCG/$!/o2R^%*>b !#9,&$\"/_0!\\@=%>!#8!\"\"%#CcG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "CC:=solve(rovC);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %#CCG$\"/v9wp#)*Q\"!#8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "r ovI:=lcoeff(numer(Hd_bl(z)))=lcoeff(numer(-T2E),z);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%%rovIG/$\"/!3]6I))>*!#:%#CiG" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "CI:=solve(rovI);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CIG$\"/!3]6I))>*!#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "CH:=CI;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CHG$\"/!3]6I))>*!#: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "CG:=CI;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CGG$\"/!3]6I))>*!#:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 6 "CJ:=0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CJG\"\" !" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "CF:=0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CFG\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "CA:=1;CB:=1;CD:=1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CAG\" \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CBG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#CDG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "Cap_Value:=Ca=CA,Cb=CB,Cd=CD,Ce=CE,Cf=CF,Cc=CC,Ci=CI,Cg=CG,Cj= CJ,Ch=CH;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%*Cap_ValueG6,/%#CaG\"\" \"/%#CbGF(/%#CdGF(/%#CeG$\"/!yW*4&y\"e!#:/%#CfG\"\"!/%#CcG$\"/v9wp#)*Q \"!#8/%#CiG$\"/!3]6I))>*F1/%#CgGF " 0 "" {MPLTEXT 1 0 24 "t2e:=subs(Cap_Value,T2);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%$t2eG,$*&,&*&$\"/!3]6I))>*!#:\"\"\")%\"zG\"\"#F,F,$ \"/!3]6I))>*F+!\"\"F,,(*$F-F,F,*&$\".x!R^%*>b!#8F,F.F,F2$\"/Ab+\\@=%*! #9F,F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "t3e:=subs(Cap_V alue,T3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$t3eG*&,(*&$\"/]:dj7@T! #:\"\"\")%\"zG\"\"#F+F+*&$\"/!p+g[iy\"!#9F+F-F+F+$\"/!3]6I))>*F*!\"\"F +,(*$F,F+F+*&$\".x!R^%*>b!#8F+F-F+F5$\"/Ab+\\@=%*F2F+F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "Hd_bl(z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**$\"/!3]6I))>*!#:\"\"\",&%\"zGF($F(\"\"!F(F(,&F*F($F (F,!\"\"F(,(*&$\"/)*************!#9F()F*\"\"#F(F(*&$\"/o2R^%*>bF4F(F*F (F/$\"/Ab+\\@=%*F4F(F/F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "AT2e:=ModulHz2(t2e,1/fs);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%AT2eG f*6#%&omegaG6\"6$%)operatorG%&arrowGF(*&,&$\"/cp4&pBp\"!#:\"\"\"*&$\"/ cp4&pBp\"F0F1-%$cosG6#,$*&#F1\"%+SF19$F1F1F1!\"\"F1,($\"/S^ics\">#!#8F 1*&$\"/s**='\\P9#FAF1-F66#,$*&#F1\"%+!)F1F " 0 "" {MPLTEXT 1 0 47 "dAT2e:=nu mer(combine(diff(AT2e(omega),omega)));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&dAT2eG,.*&$\"/A#o^\"RP_!#=\"\"\"-%$sinG6#,$*&\"%+S!\"\"%&omeg aGF*F*F*F1*&$\"/pz,\"fHT$F)F*-F,6#,$*(\"\"$F*\"%+!)F1F2F*F*F*F**&$\"/C IrB$)yMF)F*-F,6#,$*&F;F1F2F*F*F*F**&$\"/u**)R\"*p'=F)F*-F,6#,$*&\"%+?F 1F2F*F*F*F1*&$\"/pHO**eN@!#>F*-F,6#,$*&\"%+;F1F2F*F*F*F**&$\"/++++++5! #KF*-F,6#,$*(F:F*F0F1F2F*F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "o2:=select(x->evalc(Im(x)=0 and Re(x)>0 and Re(x)%#o2G7#$\"/.mgT /E5!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "AT2e(o2[1]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"/.-++++5!#7" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 25 "AT3e:=ModulHz2(t3e,1/fs);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%AT3eGf*6#%&omegaG6\"6$%)operatorG%&arrowGF(*&,($\"/F hScq1U!#:\"\"\"*&$\"/h!eC3S\"=F0F1-%$cosG6#,$*&#F1\"%+!)F19$F1F1F1!\" \"*&$\"/-R[#3>e(!#;F1-F66#,$*&#F1\"%+SF1F#!#8 F1*&$\"/s**='\\P9#FKF1F5F1F=*&$\"//6!)Hk$)=FKF1FBF1F1F=F(F(F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "dAT3e:=numer(combine(diff(AT 3e(omega),omega)));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&dAT3eG,.*&$ \"/es9!o!zs!#=\"\"\"-%$sinG6#,$*&\"%+S!\"\"%&omegaGF*F*F*F1*&$\"/88v]( \\$[F)F*-F,6#,$*&\"%+!)F1F2F*F*F*F**&$\"/d;GEUVZF)F*-F,6#,$*(\"\"$F*F: F1F2F*F*F*F**&$\"/@c5]z%f#F)F*-F,6#,$*&\"%+?F1F2F*F*F*F1*&$\"/ZX.05oH! #>F*-F,6#,$*&\"%+;F1F2F*F*F*F**&$\"/++++++5!#KF*-F,6#,$*(FBF*F0F1F2F*F *F*F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "o3:=select(x->eval c(Im(x)=0 and Re(x)>0 and Re(x)%#o3G7#$\"/ymgT/E5!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "AT3e(o3[1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"/!\\3;t1R\"!#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "T2e_max:=sqrt(AT2e(o2[1]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(T2e_maxG$\"/0?gwFiJ!#8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "T3e_max:=sqrt(AT3e(o3[1]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(T3e_maxG$\"/!)>YI " 0 " " {MPLTEXT 1 0 20 "mu:=T2e_max/T3e_max;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#muG$\"/tN-i$)z%)!#9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "CAs:=1/mu;CDs:=1/mu;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$CAsG$ \"/uZh!o#z6!#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$CDsG$\"/uZh!o#z6! #8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "Cap_Value_s:=Ca=CAs,C b=CB,Cd=CDs,Ce=CE,Cf=CF,Cc=CC,Ci=CI,Cg=CG,Cj=CJ,Ch=CH;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%,Cap_Value_sG6,/%#CaG$\"/uZh!o#z6!#8/%#CbG\"\"\" /%#CdGF(/%#CeG$\"/!yW*4&y\"e!#:/%#CfG\"\"!/%#CcG$\"/v9wp#)*Q\"F*/%#CiG $\"/!3]6I))>*F4/%#CgGF>/%#CjGF7/%#ChGF>" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "t2es:=subs(Cap_Value_s,T2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%t2esG,$*&,&*&$\"/&edl)y%3\"!#9\"\"\")%\"zG\"\"#F,F,$ \"/&edl)y%3\"F+!\"\"F,,(*&$\"/uZh!o#z6!#8F,F-F,F,*&$\".@O+&\\4lF7F,F.F ,F2$\"/_$G+g16\"F7F,F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "t3es:=subs(Cap_Value_s,T3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%t3e sG*&,(*&$\"/]:dj7@T!#:\"\"\")%\"zG\"\"#F+F+*&$\"/!p+g[iy\"!#9F+F-F+F+$ \"/!3]6I))>*F*!\"\"F+,(*&$\"/uZh!o#z6!#8F+F,F+F+*&$\".@O+&\\4lF:F+F-F+ F5$\"/_$G+g16\"F:F+F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "AT 2es:=ModulHz2(t2es,1/fs);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&AT2esG f*6#%&omegaG6\"6$%)operatorG%&arrowGF(*&,&$\"/YKbG``B!#:\"\"\"*&$\"/YK bG``BF0F1-%$cosG6#,$*&#F1\"%+SF19$F1F1F1!\"\"F1,($\"/.uaS(z/$!#8F1*&$ \"/)e'e]D\")HFAF1-F66#,$*&#F1\"%+!)F1FEFAF1F5F1F1 F=F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "AT3es:=ModulHz2 (t3es,1/fs);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&AT3esGf*6#%&omegaG6 \"6$%)operatorG%&arrowGF(*&,($\"/FhScq1U!#:\"\"\"*&$\"/h!eC3S\"=F0F1-% $cosG6#,$*&#F1\"%+!)F19$F1F1F1!\"\"*&$\"/-R[#3>e(!#;F1-F66#,$*&#F1\"%+ SF1FEFKF1FBF1F1F=F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "pl ot([10*log10(AT2e(2*Pi*f)),10*log10(AT3e(2*Pi*f))],f=1000..2000);" }} {PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7Z7$ $\"%+5\"\"!$!3\"yIm\"f_O,;!#;7$$\"3qmm;arz@5!#9$!33q&yF809c\"F-7$$\"3F L$e9ui2/\"F1$!38]Z)Gtjg_\"F-7$$\"3cmm\"z_\"4i5F1$!3!pRv()=+c[\"F-7$$\" 3ommT&phN3\"F1$!3FFdHvb+W9F-7$$\"3FL$e*=)H\\5\"F1$!39RcU9Bk,9F-7$$\"3u m;z/3uC6F1$!3e8*fj*GSh8F-7$$\"3++]7LRDX6F1$!3MsgaD\"['=8F-7$$\"3mm;zR' ok;\"F1$!3e3fdU>8t7F-7$$\"3!***\\i5`h(=\"F1$!3qca@!o#HE7F-7$$\"3QLL$3E n$47F1$!3Yq1N]rRw6F-7$$\"3emmT!RE&G7F1$!3E1S7Bp$38\"F-7$$\"3!*****\\K] 4]7F1$!3[`g,;*=v2\"F-7$$\"3')****\\PAvr7F1$!303%35#)[:-\"F-7$$\"3'**** *\\nHi#H\"F1$!3-*)4;d%f*\\'*!#<7$$\"3_m;z*ev:J\"F1$!3&\\vN#3T@6\"*F_p7 $$\"3CLL$347TL\"F1$!3^bSHC&z\\V)F_p7$$\"3GLLLjM?`8F1$!3Hi'4ov/v#yF_p7$ $\"3))**\\7o7Tv8F1$!3y_b$Qm;X2(F_p7$$\"3MLLLQ*o]R\"F1$!3_?A!*4RmfjF_p7 $$\"32+]7=lj;9F1$!3J+!)zMvr8bF_p7$$\"3++]PaRl?z8F_p7$$\"3jm;zRQb@:F1$\"3FW%)yJT4M$)!#>7$$ \"3-+](=>Y2a\"F1$\"3'*)o()\\9m'\\:F_p7$$\"3ymm\"zXu9c\"F1$\"3C5O*\\=([ )Q$F_p7$$\"35+++&y))Ge\"F1$\"38k_)4\")Q+h&F_p7$$\"34++DE&QQg\"F1$\"399 9^i_*)*)zF_p7$$\"3*)*\\(=-N(Rh\"F1$\"3+h/qlp?J!*F_p7$$\"3#***\\7y%3Ti \"F1$\"3'oMrP*)p(p(*F_p7$$\"35D\"G)o<#pi\"F1$\"3iyr_2Q'4*)*F_p7$$\"30] 7`f]tH;F1$\"3QJ02K&y#o**F_p7$$\"3+vVB]$[Dj\"F1$\"3yo2k(>\"R****F_p7$$ \"3%**\\P4kh`j\"F1$\"3gp4COeR$)**F_p7$$\"3%)\\PMA#))4k\"F1$\"35+Q%)[7& R\")*F_p7$$\"3'****\\P![hY;F1$\"3G9;3%Q:3[*F_p7$$\"3om;/risc;F1$\"3q5m +L&3he)F_p7$$\"3;LLLQx$om\"F1$\"3gQZynsC$\\(F_p7$$\"3/++]P+V)o\"F1$\"3 uw'RGg=W5&F_p7$$\"3cm;zpe*zq\"F1$\"3EW&f!*R:2=$F_p7$$\"3.++]#\\'QH(*>kuC!\\#F_p7$$\"3#***\\7` Wl7=F1$!3yd*Q:O!)f`$F_p7$$\"3ommm'*RRL=F1$!33ns*yr-5W%F_p7$$\"3cmmTvJg a=F1$!3yBq&*G4m\"G&F_p7$$\"3KL$e9tOc(=F1$!3\"H@!>ce$[/'F_p7$$\"3++++&Q k\\*=F1$!3WyOs@Fu$p'F_p7$$\"3KLL3dg6<>F1$!3e&4A#)\\6[Q(F_p7$$\"3kmmmw( Gp$>F1$!3?x&>#[/thzF_p7$$\"3%***\\7oK0e>F1$!3UJ@]XQmR&)F_p7$$\"3')**\\ (=5s#y>F1$!3Yj[k@NCh!*F_p7$$\"%+?F*$!3Y/bM*)4U\"f*F_p-%'COLOURG6&%$RGB G$\"#5!\"\"$F*F*Fe]l-F$6$7Z7$F($!3=dP#)y=)QO\"F-7$F/$!3,ci?0PXJ8F-7$F5 $!3\"3z\")=VYo7F-7$F?$!3([$[?e,9L7F-7$FD$!3IQr:p) em>\"F-7$FI$!3y[2..Wch6F-7$FN$!3uVPH*zOQ7\"F-7$FS$!35'zqc46K3\"F-7$FX$ !3-!fCA`Y4/\"F-7$Fgn$!3Y_$fi(>ca**F_p7$F\\o$!3,-hkA(H``*F_p7$Fao$!3](* [nCuYS!*F_p7$Ffo$!3h!eUpvSl^)F_p7$F[p$!3CW3n]f,$)zF_p7$Fap$!3+yI3n.Iru F_p7$Ffp$!3HaAEC!pZ#oF_p7$F[q$!3u=\"H7GZ/C'F_p7$F`q$!3Yz!f%*yV@^&F_p7$ Feq$!3lDtpu6=<[F_p7$Fjq$!3o-Lb%3+5*RF_p7$F_r$!36WYy7m2JJF_p7$Fdr$!3-5t (\\-,A9#F_p7$Fir$!3%\\,?4ClR8\"F_p7$F^s$\"3o5\"[,O4vl)Fgs7$Fcs$\"3lxBI T-\")Q:F_p7$Fis$\"3_NI&\\gSx*HF_p7$F^t$\"3+>q-Lf>I[F_p7$Fct$\"39/&zO$f !p/(F_p7$Fht$\"3#zP#=&3,PU*F_p7$F]u$\"3s'[e_!=TY5F-7$Fbu$\"3))G;3\\k@? 6F-7$Fgu$\"3gP>+\"F-7$Fjw$\"3A08>p9cF*)F_p7$F_x$\"38a>Hc7=UlF_p7$Fdx$\"3*GRQ# )H;Ii%F_p7$Fix$\"3Ij\\bdmYMGF_p7$F^y$\"3c^.A9bh)R\"F_p7$Fcy$\"3*pd\\!z #\\s#**Fgs7$Fhy$!3=K9!Q\\wR,\"F_p7$F]z$!39)eO!o94Z?F_p7$Fbz$!3jZ#[![M \\QHF_p7$Fgz$!3qhs_J\"RPw$F_p7$F\\[l$!3#\\UhrU^,^%F_p7$Fa[l$!3aeJ5>)fB 9&F_p7$Ff[l$!3\"*o;0h_w7eF_p7$F[\\l$!3[HMKp>#)pjF_p7$F`\\l$!3S$=$Q<'R^ #pF_p7$Fe\\l$!3;SQ1S!zOU(F_p7$Fj\\l$!341\"\\[!4dFzF_p-F_]l6&Fa]lFe]lFb ]lFe]l-%+AXESLABELSG6$Q\"f6\"Q!Fghl-%%VIEWG6$;F(Fj\\l%(DEFAULTG" 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 69 "plot([10*log10(AT2es(2 *Pi*f)),10*log10(AT3es(2*Pi*f))],f=1000..2000);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7Z7$$\"%+5\"\"!$!3i$ \\m\"f_O,;!#;7$$\"3qmm;arz@5!#9$!3)HwyF809c\"F-7$$\"3FL$e9ui2/\"F1$!3h \\\\)Gtjg_\"F-7$$\"3cmm\"z_\"4i5F1$!3c/cx)=+c[\"F-7$$\"3ommT&phN3\"F1$ !3!Q%fHvb+W9F-7$$\"3FL$e*=)H\\5\"F1$!3!e'eU9Bk,9F-7$$\"3um;z/3uC6F1$!3 u],O'*GSh8F-7$$\"3++]7LRDX6F1$!3c@jaD\"['=8F-7$$\"3mm;zR'ok;\"F1$!3?sh dU>8t7F-7$$\"3!***\\i5`h(=\"F1$!3IOd@!o#HE7F-7$$\"3QLL$3En$47F1$!3Up4N ]rRw6F-7$$\"3emmT!RE&G7F1$!3SCV7Bp$38\"F-7$$\"3!*****\\K]4]7F1$!3]'R;g \"*=v2\"F-7$$\"3')****\\PAvr7F1$!3b!y35#)[:-\"F-7$$\"3'*****\\nHi#H\"F 1$!3a^];d%f*\\'*!#<7$$\"3_m;z*ev:J\"F1$!3Iw,C3T@6\"*F_p7$$\"3CLL$347TL \"F1$!3L(**)HC&z\\V)F_p7$$\"3GLLLjM?`8F1$!3OM^\"ov/v#yF_p7$$\"3))**\\7 o7Tv8F1$!3-'yTQm;X2(F_p7$$\"3MLLLQ*o]R\"F1$!3k/$4*4RmfjF_p7$$\"32+]7=l j;9F1$!3N%G1[`LLv1b6EF_p7$$\"3wmmT5k]*\\\" F1$!3?GXI>l?z8F_p7$$\"3jm;zRQb@:F1$\"3'*R%[#HT4M$)!#>7$$\"3-+](=>Y2a\" F1$\"35bI&\\9m'\\:F_p7$$\"3ymm\"zXu9c\"F1$\"3O.A%\\=([)Q$F_p7$$\"35+++ &y))Ge\"F1$\"3kW=!4\")Q+h&F_p7$$\"34++DE&QQg\"F1$\"3))>.Pi_*)*)zF_p7$$ \"3*)*\\(=-N(Rh\"F1$\"3u4M_lp?J!*F_p7$$\"3#***\\7y%3Ti\"F1$\"3+rLc$*)p (p(*F_p7$$\"35D\"G)o<#pi\"F1$\"3%o\"QJ2Q'4*)*F_p7$$\"30]7`f]tH;F1$\"3w #z`=`y#o**F_p7$$\"3+vVB]$[Dj\"F1$\"3[BHU(>\"R****F_p7$$\"3%**\\P4kh`j \"F1$\"3qce$[/'F_p7$$\"3++++&Qk\\*=F1$!3Chzs@F u$p'F_p7$$\"3KLL3dg6<>F1$!33xdA)\\6[Q(F_p7$$\"3kmmmw(Gp$>F1$!3%f$GA[/t hzF_p7$$\"3%***\\7oK0e>F1$!3+=]]XQmR&)F_p7$$\"3')**\\(=5s#y>F1$!3%pXZ; _V71*F_p7$$\"%+?F*$!3qXyM*)4U\"f*F_p-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*F e]l-F$6$7Z7$F($!3TD#G>&p52:F-7$F/$!3=J2Jy(yYZ\"F-7$F5$!3usi)\\]UbW\"F- 7$F:$!3*pz%y&)po69F-7$F?$!3%QL48BljP\"F-7$FD$!3AZ;EUR))R8F-7$FI$!3No_8 w%*y/8F-7$FN$!3ev#)Rs=1n7F-7$FS$!3zT`xohVE7F-7$FX$!3A_\"H`grT=\"F-7$Fg n$!3Y;0tq7oQ6F-7$F\\o$!3y5#p`/en4\"F-7$Fao$!3Q:@d:=FZ5F-7$Ffo$!3QE\"*) z[\"z[**F_p7$F[p$!3SGxr\"om_T*F_p7$Fap$!3kB.8)4^N!*)F_p7$Ffp$!3U?+Jb(> qD)F_p7$F[q$!3)fTxA,)pswF_p7$F`q$!3)y830_%RWpF_p7$Feq$!3=Lsu0>V\\iF_p7 $Fjq$!385Wg:3DBaF_p7$F_r$!3QMs$QMFLc%F_p7$Fdr$!3[:?.c(f@mDF_p7$F^s$!3Ol+YPcnX8F_p7$Fcs$\"3')Q:M-^fl5!#=7$Fis$\"3Eyb(Q()* [l:F_p7$F^t$\"3q)yK>?XzR$F_p7$Fct$\"3MgKb-_l9cF_p7$Fht$\"3Qf%)*RN]9*zF _p7$F]u$\"3P$*\\O@t'=.*F_p7$Fbu$\"3O!\\l&fP\"*p(*F_p7$Fgu$\"3QdBJ#*4. \"*)*F_p7$F\\v$\"3))pJL/zHo**F_p7$Fav$\"3cqN9o:R****F_p7$Ffv$\"3C5Ywef S$)**F_p7$F[w$\"3C(o.D\"p19)*F_p7$F`w$\"3I_RdQ4:\"[*F_p7$Few$\"35=f!yG Dre)F_p7$Fjw$\"3k)>I!Q2J&\\(F_p7$F_x$\"3I4?=D0$*4^F_p7$Fdx$\"3+SH:nbw! >$F_p7$Fix$\"3``U[Ef@-9F_p7$F^y$!39))pA%o@NO$Fgs7$Fcy$!3.SoEQ#yHL\"F_p 7$Fhy$!3o)Rb[AFiW#F_p7$F]z$!3Wp\")3*>U$zMF_p7$Fbz$!39z\")4zTuqVF_p7$Fg z$!3'o$fdi)*)f>&F_p7$F\\[l$!3r&=4#e@SUfF_p7$Fa[l$!3'QE],b5Yd'F_p7$Ff[l $!3#Q<)4#*f,XsF_p7$F[\\l$!3t5&p.qs?!yF_p7$F`\\l$!3;&*)G%[.Rd$)F_p7$Fe \\l$!3;c#46xHf&))F_p7$Fj\\l$!3=nU*ej@)f$*F_p-F_]l6&Fa]lFe]lFb]lFe]l-%+ AXESLABELSG6$Q\"f6\"Q!Fhhl-%%VIEWG6$;F(Fj\\l%(DEFAULTG" 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 79 "MinC:=min((\{subs(Cap_Value_ s,[Ca,Cb,Cc,Cd,Ce,Cf,Cg,Ch,Ci,Cj])[]\} minus \{0\})[]);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%%MinCG$\"/!yW*4&y\"e!#:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 50 "Cap_fin:=map(x->lhs(x)=rhs(x)/MinC,[Cap_Value_ s]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(Cap_finG7,/%#CaG$\"/6`NA)p- #!#7/%#CbG$\"/#RUtZ)= " 0 "" {MPLTEXT 1 0 59 "MaxC:=max(subs(Cap_fin,[Ca,C b,Cc,Cd,Ce,Cf,Cg,Ch,Ci,Cj])[]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%% MaxCG$\"/d$*[4!*)Q#!#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "s ubs(Cap_fin,[Ca,Cb,Cc,Cd,Ce,Cf,Cg,Ch,Ci,Cj]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7,$\"/6`NA)p-#!#7$\"/#RUtZ)= " 0 "" {MPLTEXT 1 0 70 "TotalC:=add(subs(Cap_fin,[Ca,Cb,Cc,Cd,Ce,Cf,Cg,Ch,Ci, Cj])[i],i=1..10);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'TotalCG$\"/?E. [0O()!#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "57 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }