{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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 22 " Solve an LRC circuit." }}
{PARA 0 "" 0 "" {TEXT -1 36 "Must first define types of variables" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(showassumed=0);" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "assume(i0,complex);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "assume(v0,real);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "assume(Zr,complex);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "assume(Zc,complex);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "assume(Zl,complex);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "assume(R,real);assume(R>0);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "assume(C,real);assume(C>0);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "assume(L,real);assume(L
>0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "assume(omega,real);
assume(omega>0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "assume(
t,real);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "Define complex impeda
nces" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "Zr:=R;Zc:=1/(I*omeg
a*C);Zl:=I*omega*L;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ZrG%#R|irG" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ZcG*&^#!\"\"\"\"\"*&%'omega|irGF(
%#C|irGF(F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ZlG*(^#\"\"\"F'%'ome
ga|irGF'%#L|irGF'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 40 "Find Total I
mpedance Amplitude and Phase" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 21 "assume(Ztot,complex);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "Ztot:=Zr+Zc+Zl;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ZtotG,(%#R|i
rG\"\"\"*&^#!\"\"F'*&%'omega|irGF'%#C|irGF'F*F'*(^#F'F'F,F'%#L|irGF'F'
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "assume(X,real);assume(X
real,real);assume(Ximaginary,real);assume(phi,real);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 16 "Xreal:=Re(Ztot);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%&XrealG%#R|irG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "Ximaginary:=Im(Ztot);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+Xi
maginaryG,&*&\"\"\"F'*&%'omega|irGF'%#C|irGF'!\"\"F+*&F)F'%#L|irGF'F'
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "X:=sqrt(Xreal**2+Ximagi
nary**2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"XG*$-%%sqrtG6#,&*$)%#
R|irG\"\"#\"\"\"F.*$),&*&F.F.*&%'omega|irGF.%#C|irGF.!\"\"F6*&F4F.%#L|
irGF.F.F-F.F.F." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 26 "   Now calcula
te the Phase" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "phi:=arctan
(Ximaginary,Xreal);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$phiG-%'arcta
nG6#*&,&*&\"\"\"F+*&%'omega|irGF+%#C|irGF+!\"\"F/*&F-F+%#L|irGF+F+F+%#
R|irGF/" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 27 "  Now calculate the Cu
rrent" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "phi:='phi';assume(
phi,real);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$phiGF$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "assume(i,real);" }}}{EXCHG {PARA 
11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "
i:=Re(evalc(combine(v0*exp(I*omega*t-I*phi))))/X;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"iG*&*&%$v0|irG\"\"\"-%$cosG6#,&*&%'omega|irGF(%#t|i
rGF(F(%%phi|irG!\"\"F(F(*$-%%sqrtG6#,&*$)%#R|irG\"\"#F(F(*$),&*&F(F(*&
F.F(%#C|irGF(F1F1*&F.F(%#L|irGF(F(F:F(F(F(F1" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 23 " Now calculate vr,vc,vl" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 48 "assume(vr,real);assume(vc,real);assume(vl,real);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "vr:=Re(evalc(combine(v0*Zr*e
xp(I*omega*t-I*phi))))/X;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#vrG*&*
(%$v0|irG\"\"\"%#R|irGF(-%$cosG6#,&*&%'omega|irGF(%#t|irGF(F(%%phi|irG
!\"\"F(F(*$-%%sqrtG6#,&*$)F)\"\"#F(F(*$),&*&F(F(*&F/F(%#C|irGF(F2F2*&F
/F(%#L|irGF(F(F:F(F(F(F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 
"vc:=Re(evalc(combine(v0*Zc*exp(I*omega*t-I*phi))))/X;" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%#vcG*&*&%$v0|irG\"\"\"-%$sinG6#,&*&%'omega|irGF(
%#t|irGF(F(%%phi|irG!\"\"F(F(*(F.F(%#C|irGF(-%%sqrtG6#,&*$)%#R|irG\"\"
#F(F(*$),&*&F(F(*&F.F(F3F(F1F1*&F.F(%#L|irGF(F(F;F(F(F(F1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "vl:=Re(evalc(combine(v0*Zl*exp(I*om
ega*t-I*phi))))/X;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#vlG,$*&**%$v0
|irG\"\"\"%'omega|irGF)%#L|irGF)-%$sinG6#,&*&F*F)%#t|irGF)F)%%phi|irG!
\"\"F)F)*$-%%sqrtG6#,&*$)%#R|irG\"\"#F)F)*$),&*&F)F)*&F*F)%#C|irGF)F3F
3*&F*F)F+F)F)F<F)F)F)F3F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }}}}{MARK "33 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }