blob: 5d19928fee08d116939d44fc603d7fd8e09a2b3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
R1=6; //Assigning values to parameters
R2=4;
R3=3;
R4=5;
R5=5;
R6=2;
R7=4;
Rx=R3+R4+(R3*R4)/R6; //Converting Star to Delta
Ry=R4+R6+(R4*R6)/R3;
Rz=R3+R6+(R3*R6)/R4;
disp(Rx)
disp(Ry)
disp(Rz)
Ra=(R5*Rz)/(R5+Rz);
Rb=(R7*Ry)/(R7+Ry);
Rl=(R1*R2)/(R1+R2+Rx); //Converting Delta to Star
Rm=(R2*Rx)/(R1+R2+Rx);
Rn=(R1*Rx)/(R1+R2+Rx);
Rp=Ra+Rn;
Rq=Rb+Rm;
Rr=(Rp*Rq)/(Rp+Rq);
Req=Rl+Rr;
disp("Ohms",Req,"Eqivalent resistance of the network");
|
