1 files changed, 32 insertions, 0 deletions
diff --git a/1523/CH3/EX3.22/3_22.sce b/1523/CH3/EX3.22/3_22.sce
new file mode 100755
index 000000000..a62e3ed13
--- /dev/null
+++ b/1523/CH3/EX3.22/3_22.sce
@@ -0,0 +1,32 @@
+//Network Theorem 2
+//pg no 3.25
+//example 3.22
+disp("removing the 10 Ohm resistor from the network");
+disp("Applying KVL to mesh 1");
+disp("4*I1-I2=-25");....//equation 1
+disp("Applying KVL to mesh 2");
+disp("-I1+4*I2=10");....//equation 2
+A=[4 -1;-1 4];//solving the equations in matrix form
+B=[-25  10]'
+X=inv(A)*B;
+disp(X);
+disp("I1=-6 A");
+disp("I2=1 A");
+//Calculation of Vth (Thevenin's voltage)
+a=-6;
+b=1;
+v=-((2*a)+(2*b));//the terminal B is positive w.r.t A
+printf("\nWriting Vth equation, \n Vth = %.f V",v);
+//Calculation of Rth (Thevenin's resistance)
+x=2;
+y=2;
+z=1;
+//star into delta network
+r1=x+y+((x*y)/z);
+r2=x+z+((x*z)/y);
+r3=z+y+((z*y)/x);
+mprintf("\nR1 = %.f Ohm \nR2 = %.f Ohm \nR3 = %.f Ohm",r1,r2,r3);
+//Claculation of IL (Load Current)
+r=1.33;
+i=v/(r+v);
+printf("\nIL = %.2f A",i);
+\ No newline at end of file