From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1938/CH2/EX2.37/2_37.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 1938/CH2/EX2.37/2_37.sce

(limited to '1938/CH2/EX2.37/2_37.sce')

diff --git a/1938/CH2/EX2.37/2_37.sce b/1938/CH2/EX2.37/2_37.sce
new file mode 100755
index 000000000..465637af9
--- /dev/null
+++ b/1938/CH2/EX2.37/2_37.sce
@@ -0,0 +1,21 @@
+clc,clear
+printf('Example 2.37\n\n')
+
+V=250, I_a1=20
+R_sh= 250,R_a=0.5 //shunt field and armature resistance
+I_sh1= V / R_sh
+E_b1 = V - I_a1*R_a
+
+//T (prop.) phi*I_a (prop.) I_sh*I_a
+//since T_1 = T_2, I_sh2_I_a2 = I_sh1*I_a1  
+I_sh2_I_a2 = I_sh1*I_a1  //=20
+
+//N (prop.) E_b/I_sh
+//E_b1 = V - I_a1*R_a
+//Solving further for I_a2, we get I_a2^2 -500 I_a2 + 12800
+p=[1 -500 12800]
+roots(p)
+I_a2=ans(2) //higher root is neglected
+I_sh2= I_sh2_I_a2 / I_a2
+R_x= (V / I_sh2) - R_sh //resistance to be inserted in shunt field
+printf('Resistance to be inserted = %.4f ohms ',R_x)
-- 
cgit