blob: 9eff7320279c8b6eef765575058482d2eec27371 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
V=30; //Assignign values to parameters
Rcf=2;
Ref=2;
Rec=2.4;
Rbc=2;
Rac=4;
Rae=2;
Rab=2;
Rad=2;
Red=1;
Rc=Rab+Rbc; // Simplifying the network
Re=Rcf+Ref;
Ra=1/((1/Rac)+(1/Rc));
Re1=1/((1/Re)+(1/Rec));
Ra1=Ra+Re1;
Re2=1/((1/Rae)+(1/Ra1));
Rd=Red+Re2;
Req=1/((1/Rd)+(1/Rad));
I=V/Req; // Calculation of battery current
disp("Ohms",Req,"Effective resistance")
disp("Amperes",I,"Battery current")
|
