summaryrefslogtreecommitdiff
path: root/671/CH8/EX8.18/8_18.sce
blob: 5e8e27aba471ecbdcb743c8ec6d27b076c3c079c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
f=50
N1=500

Pin=60
Io=0.4
Vin=220
r=0.8

Pci=Io*Io*r
Pi=Pin-Pci
disp(Pi)
theta=acos(Pin/Vin/Io)
Im=Io*sin(theta)
Xm=Vin/Im
disp(Xm)
Iio=Io*cos(theta)
Ri=Vin/Iio
disp(Ri)