format compact
r2=220;
rl=190;
l=.1;
w=2*pi*624;
rs=10
vm=1;
z=r2+rl+rs+j*w*l
ir=vm/z;
magir=abs(ir)
phaseir=angle(ir)*180/pi
zc=-j/w/1e-7;
zt=rs+zc*z/(zc+z)
irc=vm/zt;
magirc=abs(irc)
phaseirc=angle(irc)*180/pi
P=.5*magir^2*(rl+r2+rs)
Ql=.5*magir^2*j*w*l
Qc=.5*vm^2/-zc