summaryrefslogtreecommitdiff
path: root/671/CH4/EX4.24/4_24.sce
blob: d4b04e5e60d6692410a906ce61fda765acb9fbed (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
V=230
w=2*%pi*50
R=8
L=0.1
C=160E-6

Xl=w*L*%i
disp(Xl)

Xc=1/(w*C*%i)
disp(Xc)

Z=norm(R+Xl+Xc)
disp(Z)
I=V/Z
disp(I)
pf=cos(atan(norm(Xl+Xc)/R))
disp(pf)

Vcoil=I*norm(R+Xl)
Vc=norm(I*Xc)
disp(Vc,Vcoil)