summaryrefslogtreecommitdiff
path: root/1445/CH1/EX1.50/ch1_ex_50.sce
blob: 694ba8a9e9cdee5bbc87bdc42a737302bb969f8b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS 
//Example 50

disp("CHAPTER 1");
disp("EXAMPLE 50");

//SOLUTION
//(5)I1+(-3)I2=10..........eq (1)
//(-3)I1+(34)I2=40.........eq (2)
A=[5 -3;-3 34];
b=[10;40];
x=inv(A)*b;
I1=x(1,:);                 //to access the 1st element of 2X1 matrix
I2=x(2,:);                 //to access the 2nd element of 2X1 matrix 
I=I2-I1;
disp(sprintf("Current i1 is %f A (loop EFAB)",I1));
disp(sprintf("Current i2 is %f A (loop BCDE)",abs(I)));

//END