671/CH4/EX4.46/4_46.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Vl=1
w=2
R=1
r=1/2
L=0.5
C=1
Xl=w*L*%i
Xc=1/(w*C*%i)

Il=Vl/Xl
VR=Il*R
Vs=Vl+VR

Vr=Vs
Ir=Vr/r
Ic=Vs/Xc
Is=Ir+Ic+Il

PR=-VR*VR/R
Pr=-Vr*Vr/r
Ps=Vs*conj(Is)

disp(real(Ps),Pr,PR)