summaryrefslogtreecommitdiff
path: root/1523/CH2/EX2.12/2_12.sce
blob: e14bcdbb7596fb2e1b8c0da4ffd23b388b8add66 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Network Theorem 1
//page no-2.21
//example 2.12
disp("Applying KVL to mesh 1");
disp("8*I1-I2-4*I3=4");....//equation 1
disp("Applying KVL to mesh 2");
disp("-I1+8*I2-5*I3=0");....//equation 2
disp("Applying KVL to mesh 3");
disp("-4*I1-5*I2+15*I3=0");....//equation 3
disp("Solving the three equations");
A=[8 -1 -4;-1 8 -5;-4 -5 15];//solving the equations in matrix form
B=[4 0 0]'
X=inv(A)*B;
disp(X);
disp("I1=0.66");
disp("I1=0.24 A");
disp("I3=0.26 A");
disp("current supplied by the battery = 0.66 A");