summaryrefslogtreecommitdiff
path: root/1760/CH2/EX2.52/EX2_52.sce
blob: 2a5d6a840e66c76304eed8b13586fb0c96360d86 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//   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');