summaryrefslogtreecommitdiff
path: root/1445/CH1/EX1.41/Ex1_41.sce
blob: 8362a24e5abf3b92f86d0f5dcc2cbe3a8ba0baae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS 
//Example 41

clc;
disp("CHAPTER 1");
disp("EXAMPLE 41");

//VARIABLE INITIALIZATION
vs=6;                          //in Volts
Is=4;                          //in Amperes
r1=5;                          //in Ohms
r2=2;                          //in Ohms
r3=2;                          //in Ohms
r=2/3;                         //in Ohms
r4=3;                          //in Ohms
r5=1;                          //in Ohms
r6=2;                          //in Ohms

//SOLUTION
req1=(r2*r3)/(r2+r3);
req2=req1+r1;                  //resistance across vs
va=vs/req2;                    //voltage divider law
rth1=(req1*r1)/(req1+r1); 
I1=Is*(r2/req2);               //current divider law
vb=I1*r4; 
rth2=(r4*r4)/(r4+r4);          
I=(vb-va)/(rth1+r+rth2);
disp(sprintf("The value of the current is %d A",I));

//END