summaryrefslogtreecommitdiff
path: root/147/CH2/EX2.9/Example2_9.sce
blob: ac2414a153a8dd59acb65e3c9f48b3eaa14e18f9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
close();
clear;
clc;
Rab = 3; //ohm
Rbc = 6; //ohm
Rac = 9; //ohm
Rad = 4.5; //ohm
Rcd = 3; //ohm
//transforming abc network into star network
Rbo = Rab*Rbc/(Rab+Rbc+Rac);
Rao = Rab*Rac/(Rab+Rbc+Rac);
Rco = Rbc*Rac/(Rab+Rbc+Rac);
Rod1 = Rao+Rad;
Rod2 = Rco+Rcd;
Rod = Rod1*Rod2/(Rod1+Rod2);
//equivalent resistance at terminals AB
RAB = Rbo + Rod;
mprintf("\nThe equivalent resistance at terminals AB = %d ohm",RAB);