{VERSION 4 0 "IBM INTEL NT" "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 "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" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 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 "" {TEXT -1 75 "This job plots the results
 of L+RCparallel. Pasting the phase and amplitude" }}{PARA 0 "" 0 "" 
{TEXT -1 25 "expression into this job." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 120 "vl := v0*sin(omega*t-phi)*sqrt(R^2*omega^2*C^2+1)/(o
mega*C*sqrt(omega^4*L^2*R^2*C^2-2*omega^2*L*R^2*C+omega^2*L^2+R^2));" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#vlG,$*&*(%#v0G\"\"\"-%$sinG6#,&*&
%&omegaGF)%\"tGF)!\"\"%$phiGF)F)-%%sqrtG6#,&*()%\"RG\"\"#F))F/F:F))%\"
CGF:F)F)F)F)F)F)*(F/F)F=F)-F46#,***)F/\"\"%F))%\"LGF:F)F8F)F<F)F)*,F:F
)F;F)FFF)F8F)F=F)F1*&F;F)FEF)F)*$F8F)F)F)F1F1" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 97 "phi := arctan((omega*L-R^2/(omega*C*(R^2+1/(omeg
a^2*C^2))))*omega^2*C^2*(R^2+1/(omega^2*C^2))/R);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$phiG-%'arctanG6#*&**,&*&%&omegaG\"\"\"%\"LGF-F-*&*$)
%\"RG\"\"#F-F-*(F,F-%\"CGF-,&*$F1F-F-*&F-F-*&)F,F3F-)F5F3F-!\"\"F-F-F<
F<F-F:F-F;F-F6F-F-F2F<" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 28 "We want
 the amplitude for vl" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "vl
amp:=vl/sin(-omega*t+phi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&vlamp
G,$*&*&%#v0G\"\"\"-%%sqrtG6#,&*()%\"RG\"\"#F))%&omegaGF1F))%\"CGF1F)F)
F)F)F)F)*(F3F)F5F)-F+6#,***)F3\"\"%F))%\"LGF1F)F/F)F4F)F)*,F1F)F2F)F>F
)F/F)F5F)!\"\"*&F2F)F=F)F)*$F/F)F)F)F@F@" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 31 "Now set values for R,C,L and v0" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 36 "R:=10000.;L:=0.001;C:=0.0005;v0:=1.;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"RG$\"&++\"\"\"!" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"LG$\"\"\"!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"CG$\"\"&!\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#v0G$\"\"\"\"\"!" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#7U%(animateG%*animate3dG%-animatecurveG%-change
coordsG%,complexplotG%.complexplot3dG%*conformalG%,contourplotG%.conto
urplot3dG%*coordplotG%,coordplot3dG%-cylinderplotG%,densityplotG%(disp
layG%*display3dG%*fieldplotG%,fieldplot3dG%)gradplotG%+gradplot3dG%-im
plicitplotG%/implicitplot3dG%(inequalG%-listcontplotG%/listcontplot3dG
%0listdensityplotG%)listplotG%+listplot3dG%+loglogplotG%(logplotG%+mat
rixplotG%(odeplotG%'paretoG%*pointplotG%,pointplot3dG%*polarplotG%,pol
ygonplotG%.polygonplot3dG%4polyhedra_supportedG%.polyhedraplotG%'replo
tG%*rootlocusG%,semilogplotG%+setoptionsG%-setoptions3dG%+spacecurveG%
1sparsematrixplotG%+sphereplotG%)surfdataG%)textplotG%+textplot3dG%)tu
beplotG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "logplot(-vlamp,o
mega=0..4000);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "
6&-%'CURVESG6$7\\p7$$\"3?+++qUkCF!#<$\"+7]\\o6!#77$$\"3S+++S&)G\\aF*$
\"+()Rd()H!#87$$\"3;+++5G$R<)F*$\"+eDsW9F37$$\"33+++3x&)*3\"!#;$\"+Dcv
!*)*!#97$$\"3/+++ilyM;F<$\"+E;``!*F?7$$\"3;+++;arz@F<$\"+6Vj97F37$$\"3
3+++CJdpKF<$\"+^$)>.CF37$$\"3q*****H$3VfVF<$\"+%\\oW<%F37$$\"3]******[
i9RlF<$\"+[Rc:$*F37$$\"3R*****fmh)=()F<$\"+,(4]l\"F-7$$\"3%******>\"z>
^7!#:$\"+t2O8MF-7$$\"3++++e'40j\"F[o$\"+KJ.7eF-7$$\"3/+++<6m$[#F[o$\"+
>Ufg8!#67$$\"3&)*****p\"yYULF[o$\"+G*)Q'\\#Fho7$$\"3!******zv#>(>%F[o$
\"+7DV/SFho7$$\"3/+++\">K'*)\\F[o$\"+pF]tdFho7$$\"38+++Dt:5eF[o$\"+^x!
*G!)Fho7$$\"3c+++\"fX(emF[o$\"+&)*)\\)3\"!#57$$\"3E+++DCh/vF[o$\"+WHJO
9Fbq7$$\"3_*****HV!pu$)F[o$\"+cNRv=Fbq7$$\"3()*****fhb59*F[o$\"+HpB\\B
Fbq7$$\"3,+++I,Q+5F?$\"+2Og8IFbq7$$\"3#*******\\*3q3\"F?$\"+=Ce!)QFbq7
$$\"31+++q=\\q6F?$\"+8tC<]Fbq7$$\"3-+++fBIY7F?$\"+tR%)4lFbq7$$\"3))***
**4Ov8H\"F?$\"+(3YVz(Fbq7$$\"3(******HO[kL\"F?$\"+d:23(*Fbq7$$\"3'****
**ftRbN\"F?$\"+'*Q9!4\"!\"*7$$\"3/+++36ju8F?$\"+3;5e7Fet7$$\"3)******R
zwTQ\"F?$\"+WhYw8Fet7$$\"3!*******zCs$R\"F?$\"+$zs5a\"Fet7$$\"35+++B`
\\)R\"F?$\"+DE\\b;Fet7$$\"32+++m\"oKS\"F?$\"+9%>>\"=Fet7$$\"35+++)eacS
\"F?$\"+6+N=>Fet7$$\"3#*******45/39F?$\"+%H7*f?Fet7$$\"3&******>VF/T\"
F?$\"+a,srAFet7$$\"36+++`Q\"GT\"F?$\"+mwb-FFet7$$\"3!******z#)*e:9F?$
\"+WpU4FFet7$$\"3.+++/eO=9F?$\"+:!R/B#Fet7$$\"3$*******z<9@9F?$\"+Hbv2
?Fet7$$\"31+++cx\"RU\"F?$\"+X[,h=Fet7$$\"3(******pqp%H9F?$\"+]Xpj;Fet7
$$\"37+++e;-N9F?$\"+sU1G:Fet7$$\"3'*******fb7Y9F?$\"+.jlS8Fet7$$\"3-++
+i%HsX\"F?$\"+x&*H47Fet7$$\"33+++kLLo9F?$\"+[m*y5\"Fet7$$\"3-+++nsVz9F
?$\"+zy<D5Fet7$$\"3'*******p6a!\\\"F?$\"+!*[Q_&*Fbq7$$\"3.+++s]k,:F?$
\"+hD&f%*)Fbq7$$\"3\"******>Tg4a\"F?$\"+ci4vsFbq7$$\"3!******Hvv-e\"F?
$\"+7QOWgFbq7$$\"35+++sgam;F?$\"+l$*)R5%Fbq7$$\"3/+++<ep[<F?$\"+P9qlFF
bq7$$\"31+++e/TM=F?$\"+=pxe;Fbq7$$\"33+++cK78>F?$\"+Wy7\"4)Fho7$$\"31+
++Uc-)*>F?$\"+kPW<<F-7$$\"3#)******e`@'3#F?$!+v1<YqFho7$$\"3#******pw%
)H;#F?$!+>;io7Fbq7$$\"37+++Ky*eC#F?$!+zzAC=Fbq7$$\"3%*******R^bJBF?$!+
8/U]BFbq7$$\"3*)*****\\5a`T#F?$!+K![h#GFbq7$$\"3'******>\"RV'\\#F?$!+,
PMbKFbq7$$\"3')*****\\@fke#F?$!+wm@,PFbq7$$\"37+++`4NnEF?$!+'f`z2%Fbq7
$$\"35+++],s`FF?$!+BmNeWFbq7$$\"3********yM)>$GF?$!+c!fdy%Fbq7$$\"38++
+qfa<HF?$!+XO*o7&Fbq7$$\"3%******fg`!)*HF?$!+a7VLaFbq7$$\"3')*****>G2A
3$F?$!+&o8.u&Fbq7$$\"39+++$)G[kJF?$!+st;GgFbq7$$\"3'******>\"yh]KF?$!+
ICu<jFbq7$$\"3<+++()fdLLF?$!+JX='e'Fbq7$$\"33+++-FT=MF?$!+d3%4&oFbq7$$
\"3*******f#pa-NF?$!+Y))[/rFbq7$$\"3)*******Rv&)zNF?$!+!)y6ItFbq7$$\"3
#)*****zAk%oOF?$!++zk!e(Fbq7$$\"3++++2^rZPF?$!+h4!zz(Fbq7$$\"3,+++sI@K
QF?$!+q\")*G-)Fbq7$$\"3>+++2%)38RF?$!+W#=AB)Fbq7$$\"%+S\"\"!$!++/)4X)F
bq-%'COLOURG6&%$RGBG$\"#5!\"\"$FhdlFhdlFbel-%+AXESLABELSG6$Q&omega6\"Q
!6\"-%%VIEWG6$;FbelFfdl%(DEFAULTG-%*AXESTICKSG6$F^fl7O/$!+++++5FetQ#.1
Fgel/$!+V+q*)pFbqFhel/$!+`uyG_FbqFhel/$!+(3+%zRFbqFhel/$!+d**H5IFbqFhe
l/$!+'\\([=AFbqFhel/$!++'>!\\:FbqFhel/$!+,8+\"p*FhoFhel/$!+c!\\dd%FhoF
hel/FbelQ#1.Fgel/$\"+d**H5IFbqFhel/$\"+ZD@rZFbqFhel/$\"+8**f?gFbqFhel/
$\"+V+q*)pFbqFhel/$\"+/D^\"y(FbqFhel/$\"++/)4X)FbqFhel/$\"+q)**3.*FbqF
hel/$\"+%4DCa*FbqFhel/$\"+++++5FetQ%.1e2Fgel/$\"+'**H5I\"FetFhel/$\"+b
77x9FetFhel/$\"+\"**f?g\"FetFhel/$\"+/+(*)p\"FetFhel/$\"+]7:y<FetFhel/
$\"+S!)4X=FetFhel/$\"+()**3.>FetFhel/$\"+4DCa>FetFhel/$\"+++++?FetQ%.1
e3Fgel/$\"+'**H5I#FetFhel/$\"+b77xCFetFhel/$\"+\"**f?g#FetFhel/$\"+/+(
*)p#FetFhel/$\"+]7:yFFetFhel/$\"+S!)4XGFetFhel/$\"+()**3.HFetFhel/$\"+
4DCaHFetFhel/$\"+++++IFetQ%.1e4Fgel/$\"+'**H5I$FetFhel/$\"+b77xMFetFhe
l/$\"+\"**f?g$FetFhel/$\"+/+(*)p$FetFhel/$\"+]7:yPFetFhel/$\"+S!)4XQFe
tFhel/$\"+()**3.RFetFhel/$\"+4DCaRFetFhel" 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 24 "plot(phi,omega=0..4000);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7jo7$$\"3?+++qUkCF!#<
$!3!e.T&*QBv\\\"F*7$$\"3S+++S&)G\\aF*$!3@qqM4-6M:F*7$$\"3;+++5G$R<)F*$
!3?S'eXOKja\"F*7$$\"33+++3x&)*3\"!#;$!3E#QmpFYCb\"F*7$$\"3/+++ilyM;F:$
!39yf7*Gh&e:F*7$$\"3;+++;arz@F:$!3[*f<V*)=;c\"F*7$$\"33+++CJdpKF:$!3'Q
D#GDhnk:F*7$$\"3q*****H$3VfVF:$!3u\"3U0C/ic\"F*7$$\"3]******[i9RlF:$!3
=XI$*z7tn:F*7$$\"3R*****fmh)=()F:$!3=R$f7q$\\o:F*7$$\"3%******>\"z>^7!
#:$!3w%fE$\\_=p:F*7$$\"3++++e'40j\"Fhn$!3U@nJ#>`&p:F*7$$\"3/+++<6m$[#F
hn$!3k_*3rVl*p:F*7$$\"3&)*****p\"yYULFhn$!3'>>:Vci,d\"F*7$$\"3!******z
v#>(>%Fhn$!3iv\\'=zt-d\"F*7$$\"3/+++\">K'*)\\Fhn$!3)RDH]]Q.d\"F*7$$\"3
8+++Dt:5eFhn$!3Q!f(3-AQq:F*7$$\"3c+++\"fX(emFhn$!3g')4a:/Tq:F*7$$\"3E+
++DCh/vFhn$!3q.(R<OD/d\"F*7$$\"3_*****HV!pu$)Fhn$!3Y2'Qi`G/d\"F*7$$\"3
()*****fhb59*Fhn$!3+X\"=j_?/d\"F*7$$\"3,+++I,Q+5!#9$!3)>'o^uhRq:F*7$$
\"3#*******\\*3q3\"F`r$!3g([jppY.d\"F*7$$\"31+++q=\\q6F`r$!3a$)QaVQDq:
F*7$$\"3-+++fBIY7F`r$!3Y67(f)y2q:F*7$$\"3))*****4Ov8H\"F`r$!311c%[Lk)p
:F*7$$\"3(******HO[kL\"F`r$!3cg!3(4rRp:F*7$$\"3'******ftRbN\"F`r$!3U$>
![_0)*o:F*7$$\"3/+++36ju8F`r$!3eZ)>OKg\"o:F*7$$\"3)******RzwTQ\"F`r$!3
%zTg.Letc\"F*7$$\"3!*******zCs$R\"F`r$!3#phldI3ec\"F*7$$\"35+++B`\\)R
\"F`r$!3eh*ov\"pKk:F*7$$\"32+++m\"oKS\"F`r$!3=O16&G`:c\"F*7$$\"35+++)e
acS\"F`r$!37Wo'3R1!f:F*7$$\"3#*******45/39F`r$!3uH'HCP!\\a:F*7$$\"3&**
****>VF/T\"F`r$!3NXHp^QGW:F*7$$\"36+++`Q\"GT\"F`r$!3iDJ;QxO*\\\"F*7$$
\"3!******z#)*e:9F`r$\"3Q0WeL&p$)\\\"F*7$$\"3.+++/eO=9F`r$\"3+#y:)GL#o
a\"F*7$$\"3$*******z<9@9F`r$\"3!o.)fs!pkb\"F*7$$\"31+++cx\"RU\"F`r$\"3
m*=R^4(fg:F*7$$\"3(******pqp%H9F`r$\"3McYdKkMk:F*7$$\"37+++e;-N9F`r$\"
31]&pj\"[4m:F*7$$\"3'*******fb7Y9F`r$\"3=R\\Sfgwn:F*7$$\"3-+++i%HsX\"F
`r$\"3_?KTISdo:F*7$$\"3-+++nsVz9F`r$\"3G%o!GrPOp:F*7$$\"3.+++s]k,:F`r$
\"3!QzwpY^(p:F*7$$\"3\"******>Tg4a\"F`r$\"3))*3nHI.,d\"F*7$$\"3!******
Hvv-e\"F`r$\"3=@$f$3tGq:F*7$$\"35+++sgam;F`r$\"3'[j%\\tv[q:F*7$$\"3/++
+<ep[<F`r$\"3-j?x6,eq:F*7$$\"31+++e/TM=F`r$\"3;=%>xeO1d\"F*7$$\"33+++c
K78>F`r$\"3eJ?vw.nq:F*7$$\"31+++Uc-)*>F`r$\"3g#p\\8$epq:F*7$$\"3#)****
**e`@'3#F`r$\"3]@E7<[rq:F*7$$\"3#******pw%)H;#F`r$\"39d\\j%GF2d\"F*7$$
\"37+++Ky*eC#F`r$\"3'QuK&=ytq:F*7$$\"3%*******R^bJBF`r$\"3w`V,*RY2d\"F
*7$$\"3*)*****\\5a`T#F`r$\"3MS_qJJvq:F*7$$\"3'******>\"RV'\\#F`r$\"3IF
gBn%e2d\"F*7$$\"3')*****\\@fke#F`r$\"3uhnV]Lwq:F*7$$\"37+++`4NnEF`r$\"
3A/eV2qwq:F*7$$\"35+++],s`FF`r$\"3+)zd(3.xq:F*7$$\"3********yM)>$GF`r$
\"3AfW)['Gxq:F*7$$\"38+++qfa<HF`r$\"3m_>Ot_xq:F*7$$\"3%******fg`!)*HF`
r$\"3)))fo\\Bx2d\"F*7$$\"3')*****>G2A3$F`r$\"37,B=B!z2d\"F*7$$\"39+++$
)G[kJF`r$\"3!R\"G$Rb!yq:F*7$$\"3'******>\"yh]KF`r$\"3/xrJi>yq:F*7$$\"3
<+++()fdLLF`r$\"3SQ*f$fJyq:F*7$$\"33+++-FT=MF`r$\"3K*fdbC%yq:F*7$$\"3*
******f#pa-NF`r$\"3')*yHW?&yq:F*7$$\"3)*******Rv&)zNF`r$\"3s@Yb&*fyq:F
*7$$\"3#)*****zAk%oOF`r$\"3U:Y@5oyq:F*7$$\"3++++2^rZPF`r$\"3#3%o)fY(yq
:F*7$$\"3,+++sI@KQF`r$\"3M5g'))4)yq:F*7$$\"3>+++2%)38RF`r$\"3gy03[')yq
:F*7$$\"%+S\"\"!$\"3Mux$R=*yq:F*-%'COLOURG6&%$RGBG$\"#5!\"\"$FiclFiclF
cdl-%+AXESLABELSG6$Q&omega6\"Q!6\"-%%VIEWG6$;FcdlFgcl%(DEFAULTG" 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 0 "" }}}}{MARK "10 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }