summaryrefslogtreecommitdiff
path: root/671/CH4/EX4.16/4_16.sce
blob: 34ffcf90a3d80aa450018270c1ff6a01d8a70407 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function [Ra,Rb,Rc]=delta_to_star(Rab,Rbc,Rca)
    X=Rab+Rbc+Rca
    Ra=Rab*Rca/X
    Rb=Rab*Rbc/X
    Rc=Rca*Rbc/X
endfunction

function Zeq=parallel(Z1,Z2)
    Zeq=Z1*Z2/(Z1+Z2)
endfunction

V=20
w=2
R=1
C=1/2
Xc=1/(w*C*%i)
Zab=-%i
Zbc=2
Zca=2

[Za,Zb,Zc]=delta_to_star(Zab,Zbc,Zca)
Zth=Za+parallel(R+Zb,Xc+Zc)

Vdc=V*(Zc+Xc)/(R+Zb+Zc+Xc)
disp(Zth,Vdc)

Isc=Vdc/Zth
disp(Zth,Isc)