summaryrefslogtreecommitdiff
path: root/1445/CH1/EX1.57/Ex1_57.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1445/CH1/EX1.57/Ex1_57.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 '1445/CH1/EX1.57/Ex1_57.sce')
-rw-r--r--1445/CH1/EX1.57/Ex1_57.sce33
1 files changed, 33 insertions, 0 deletions
diff --git a/1445/CH1/EX1.57/Ex1_57.sce b/1445/CH1/EX1.57/Ex1_57.sce
new file mode 100644
index 000000000..7c117b894
--- /dev/null
+++ b/1445/CH1/EX1.57/Ex1_57.sce
@@ -0,0 +1,33 @@
+//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS
+//Example 57
+
+disp("CHAPTER 1");
+disp("EXAMPLE 57");
+
+//VARIABLE INITIALIZATION
+v=10; //voltage source in Ohms
+r1=2; //RHS resistance in Ohms
+r2=2; //in Ohms
+r3=4; //in Ohms
+r4=4; //in Ohms
+I=20; //current source in Amperes
+
+//SOLUTION
+
+r=r1+r2;
+//deactivating voltage source of 10Ω
+v1=-I/((1/r)+(1/r3)+(1/r4)); //from equation
+I1=v1/r3;
+
+//deactivating current source of 20A
+v2=(v/r)/((1/r)+(1/r3)+(1/r4));
+I2=v2/r3;
+
+I_tot=I1+I2;
+if(I_tot>0)
+disp(sprintf("The value of I is %.2f A (upward)",I_tot));
+else
+disp(sprintf("The value of I is %.2f A (downward)",-I_tot));
+
+//END
+