summaryrefslogtreecommitdiff
path: root/1523/CH3/EX3.24/3_24.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1523/CH3/EX3.24/3_24.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1523/CH3/EX3.24/3_24.sce')
-rwxr-xr-x1523/CH3/EX3.24/3_24.sce32
1 files changed, 32 insertions, 0 deletions
diff --git a/1523/CH3/EX3.24/3_24.sce b/1523/CH3/EX3.24/3_24.sce
new file mode 100755
index 000000000..f62b50ff9
--- /dev/null
+++ b/1523/CH3/EX3.24/3_24.sce
@@ -0,0 +1,32 @@
+//Network Theorem 1
+//page no-3.29
+//example3.24
+//calculation of Isc (short-circuit current)
+disp("Applying KVL to mesh 1:");
+disp("I1=2");....//equation 1
+disp("Writing current equation to supermesh:");//meshes 2 & 3 will form a supermesh
+disp("I3-I2=4");....//equation 2
+disp("Applying KVL to supermesh:");
+disp("-5I2-15I3=0");....//equation 3
+disp("solving these equations we get :");...//solving equations in matrix form
+A=[1 0 0;0 -1 1;0 -5 -15];
+B=[2 4 0]'
+X=inv(A)*B;
+disp(X);
+disp("I1 = 2 A");
+disp("I2 = -3 A");
+disp("I3 = 1 A");
+a=2;
+b=-3;
+x=a-b;
+printf("\nIsc = %.f A",x);
+//calculation of Rn (norton's resistance)
+disp("replacing the voltage source with short circuit and current source by open circuit");
+c=1;
+m=15;
+y=(c*(m+x))/(c+m+x);
+printf("\nRn = %.2f Ohm",y);
+//calculation of IL (load current)
+z=10;
+i=x*(y/(z+y));
+printf("\nIL = %.2f A",i); \ No newline at end of file