diff options
Diffstat (limited to '1938/CH2/EX2.25/2_25.sce')
| -rwxr-xr-x | 1938/CH2/EX2.25/2_25.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/1938/CH2/EX2.25/2_25.sce b/1938/CH2/EX2.25/2_25.sce new file mode 100755 index 000000000..c29186395 --- /dev/null +++ b/1938/CH2/EX2.25/2_25.sce @@ -0,0 +1,17 @@ +clc,clear
+printf('Example 2.25\n\n')
+
+I_L1=30,V=230
+R_sh=230,R_a=1
+I_sh= V / R_sh
+I_a1= I_L1 - I_sh
+E_b1 = V - I_a1*R_a
+
+//T (prop.) phi*I_a (prop.) I_a as phi is constant
+//and torque is constant
+I_a2 = I_a1
+N2_by_N1= 1/2
+//N (prop.) E_b/phi (prop.) E_b
+E_b2= E_b1 *(N2_by_N1)
+R_x= (V- E_b2)/I_a2 - R_a //Because E_b2 = V - I_a2*(R_a + R_x)
+printf('Resistance to be inserted in series = %.4f ohms ',R_x)
|