//   EXAMPLE 2-53    PG  NO-96
W=1000;
L=0.02;
XL=W*L;
Z=4.85;
V=(100/1.414);
I=(20.62/1.414);
cos(14.06)=0.97;   // 
P=V*I*0.97;
z=1.18;
Leq=z/W;
disp(' XL is = '+string(XL)+' ohms');   
disp(' POWER is = '+string(P)+' W');   
disp(' Leq is = '+string(Leq)+' H');