summaryrefslogtreecommitdiff
path: root/1445/CH1/EX1.53/ch1_ex_53.sce
diff options
context:
space:
mode:
Diffstat (limited to '1445/CH1/EX1.53/ch1_ex_53.sce')
-rw-r--r--1445/CH1/EX1.53/ch1_ex_53.sce27
1 files changed, 27 insertions, 0 deletions
diff --git a/1445/CH1/EX1.53/ch1_ex_53.sce b/1445/CH1/EX1.53/ch1_ex_53.sce
new file mode 100644
index 000000000..20596387d
--- /dev/null
+++ b/1445/CH1/EX1.53/ch1_ex_53.sce
@@ -0,0 +1,27 @@
+//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS
+//Example 53
+
+disp("CHAPTER 1");
+disp("EXAMPLE 53");
+
+//VARIABLE INITIALIZATION
+v1=10; //LHS voltage source in Volts
+v2=4; //RHS voltage source in Volts
+r1=2; //LHS resistance in Ohms
+r2=3; //in Ohms
+r3=10; //in Ohms
+r4=3; //in Ohms
+r5=1; //RHS resistance in Ohms
+
+//SOLUTION
+van=v1*(r2/(r1+r2)); //by voltage divider law
+vbn=-v2*(r4/(r5+r4)); //by voltage divider law
+ran=(r1*r2)/(r1+r2);
+rbn=(r4*r5)/(r4+r5);
+vab=(ran*0)+van-vbn+(rbn*0);
+vth=vab;
+disp(sprintf("The Thevenin voltage is %d V",vth));
+
+//END
+
+