1 files changed, 19 insertions, 0 deletions
diff --git a/1523/CH2/EX2.21/2_21.sce b/1523/CH2/EX2.21/2_21.sce
new file mode 100755
index 000000000..e07d8d938
--- /dev/null
+++ b/1523/CH2/EX2.21/2_21.sce
@@ -0,0 +1,19 @@
+//Network Theorem 1
+//page no-2.27
+//example2.21
+disp("Applying KVL to mesh 1:");
+disp("15*I1-10*I2-5*I3=50");....//equation 1
+disp("Writing current equation to supermesh:")
+disp("I2-I3=2 A");....//equation 2
+disp("Applying KVL to outer path of supermesh:");
+disp("-15*I1+12*I2+6*I3=0");....//equation 3
+disp("solving these equations we get :");...//solving equations in matrix form
+A=[15 -10 -5;0 1 -1;-15 12 6];
+B=[50 2 0]'
+X=inv(A)*B;
+disp(X);
+I1=20
+I2=17.33
+I3=15.33
+I4=I1-I3;
+printf("\ncurrent through the 5 ohm resistor = I1-I3 = %.2f A", I4);
+\ No newline at end of file