summaryrefslogtreecommitdiff
path: root/293/CH4/EX4.3/eg4_3.sce
blob: 2aac486619a6506478fd3889c389d5728a26e15e (plain)
1
2
3
4
5
6
7
8
9
10
//ad
Zab = complex(1,-0.5); //impedance appearing across terminals ab
Zbg = complex(1); //impedance appearing across terminals bg
Zbcd = complex(2+1,2); //impedance appearing across terminals bcd
Zad = Zab + (Zbg*Zbcd/(Zbg + Zbcd)); //impedance appearing across terminals ad
disp(Zad,"impedance appearing across terminals ad = ")

//dg 
Zdg = Zbg + (Zab*Zbcd/(Zab+Zbcd)); //impedance appearing across termainals dg
disp(Zdg,"impedance appearing across terminals dg = ")