summaryrefslogtreecommitdiff
path: root/1523/CH2/EX2.10/2_10.sce
blob: 493ef73ccecbb92c51f3fc97ce8512104e85570e (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.19
//example 2.10
disp("Applying KVL to mesh 1");
disp("7*I1-I2=10");....//equation 1
disp("Applying KVL to mesh 2");
disp("-I1+6*I2-3*I3=0");....//equation 2
disp("Applying KVL to mesh 3");
disp("-3*I2+13*I3=-20");....//equation 3
disp("Solving the three equations");
A=[7 -1 0;-1 6 -3;0 -3 13];//solving the equations in matrix form
B=[10 0 -20]'
X=inv(A)*B;
disp(X);
disp("I1=1.34 A");
disp("I1=-0.62 A");
disp("I3=-1.68 A");
disp("I2ohm=1.34 A");