Series L-R-C circuit analysis

TI-89 calculator
Mode Approximate
Complex Format Rectangular
Display digits Float 5 or as desired
Choose Folder

:zzz()
:Prgm
:ClIO
:5-> v             AC voltage
:1000->r           resistance in ohms
:0.1*10^(-6)->c   capacity in farads
:0.1->l           inductance in henrys
:1000->f           frequency of signal
:2*pi*f->w          radians per sec
:1/(Sqrt(l*c))->wr   resonant w   10000.
:Disp "resonant w",wr
:Pause
:ClIO
:0->xl   Clear xl
:0->xcc  Clear xcc
:If c‚0 Then
: -i/(w*c)->xcc   capacitive reactance ohms
:EndIf 
:i*w*l->xl
:r+xcc+xl->z
:1/(Sqrt(l*c))->wr   resonant w
:Disp "z",z         Impedance   1000. -963.23*i
:Pause
:ClIO
:v/z->i           current
:i*xcc->vc        capacitor voltage
:i*r->vr          resistor voltage
:Disp "vr",vr                                   2.5936 + 2.4982*i
:Disp "abs(vr)",abs(vr)    absolute value vr    3.6011
:Pause
:ClIO
:If c‚0 Then
:  Disp "vc",vc               3.9761 -4.1279  capacitor voltage
:  Disp "abs(vc)",abs(vc)     5.7314
:  Pause
:  ClIO
:EndIf 
:If l‚0 Then
:  Disp "vl",vl                -1.569697 + 1.6296  inductor voltage
:  Disp "abs(vl)",abs(vl)       2.2626
:  Pause
:  ClIO
:EndIf 
:R>Ptheta(real(vr),imag(vr))->tr phase angle at r
:Disp "tr rad",tr                    .76667  rad
:Disp "tr degree",tr*180/(pi)         43.927   deg
:Pause  
:ClIO
:If c‚0 Then
  :R>Ptheta(real(vc),imag(vc))->tc   phase angle at c
:  Disp "tc rad",tc                  -.80412 rad
:  Disp "tc degree",tc*180/(pi)      -46.073 deg
:  Pause
:  ClIO
:EndIf
:If l‚0 Then
:  R>Ptheta(real(vl),imag(vl))->tl   phase angle at l
:  Disp "tl rad",tl                   2.3375 rad
:  Disp "tl degree",tl*180/(pi)      133.93 deg
:  Pause
:  ClIO
:EndIf
:Disp "End"
:EndPrgm