summaryrefslogtreecommitdiff
path: root/1319/CH2/EX2.18/2_18.sce
blob: 24798079e1f327e75f27a0dc5b5b609d77b96a07 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Star to delta conversion of a cicuit

clc;
clear;

Zp=5;
Zq=10;
Zr=%i*10;

Zpq=((Zp*Zq)+(Zq*Zr)+(Zr*Zp))/Zr;
Zqr=((Zp*Zq)+(Zq*Zr)+(Zr*Zp))/Zp;
Zrp=((Zp*Zq)+(Zq*Zr)+(Zr*Zp))/Zq;

printf(' Delta Equivalent : \n')
printf(' Zpq = %g + j(%g) ohm \n',real(Zpq),imag(Zpq))
printf(' Zqr = %g + j(%g) ohm \n',real(Zqr),imag(Zqr))
printf(' Zrp = %g + j(%g) ohm \n',real(Zrp),imag(Zrp))