3 files changed, 50 insertions, 0 deletions
diff --git a/695/CH2/EX2.31/Ex2_31.sce b/695/CH2/EX2.31/Ex2_31.sce
new file mode 100755
index 000000000..72573f0b4
--- /dev/null
+++ b/695/CH2/EX2.31/Ex2_31.sce
@@ -0,0 +1,15 @@
+//Caption:Determine the resistance to be inserted in series
+//Exa:2.31
+clc;
+clear;
+close;
+V=200;//in volts
+R_a=0.4;//in ohms
+N_1=1000;//in rpm
+N_2=800;//in rpm
+I_a1=20;//in amperes
+E_1=V-(I_a1*R_a);//in volts
+I_a2=0.8*I_a1;//in amperes
+E_2=N_2*I_a2*E_1/(N_1*I_a1);//in volts
+R=-(E_2-193.6)/16;
+disp(R,'the resistance to be inserted in series (in ohms)=')
+\ No newline at end of file
diff --git a/695/CH2/EX2.31/Ex2_31.txt b/695/CH2/EX2.31/Ex2_31.txt
new file mode 100755
index 000000000..72573f0b4
--- /dev/null
+++ b/695/CH2/EX2.31/Ex2_31.txt
@@ -0,0 +1,15 @@
+//Caption:Determine the resistance to be inserted in series
+//Exa:2.31
+clc;
+clear;
+close;
+V=200;//in volts
+R_a=0.4;//in ohms
+N_1=1000;//in rpm
+N_2=800;//in rpm
+I_a1=20;//in amperes
+E_1=V-(I_a1*R_a);//in volts
+I_a2=0.8*I_a1;//in amperes
+E_2=N_2*I_a2*E_1/(N_1*I_a1);//in volts
+R=-(E_2-193.6)/16;
+disp(R,'the resistance to be inserted in series (in ohms)=')
+\ No newline at end of file
diff --git a/695/CH2/EX2.31/R2_23.txt b/695/CH2/EX2.31/R2_23.txt
new file mode 100755
index 000000000..9c0984a97
--- /dev/null
+++ b/695/CH2/EX2.31/R2_23.txt
@@ -0,0 +1,20 @@
+ (a) Total torque (in Newton-meter)=   
+ 
+    135.21804  
+ 
+ (b) Useful torque (in Newton-meter)=   
+ 
+    95.492966  
+ 
+ (c) Useful flux per pole (in Weber)=   
+ 
+    0.0126429  
+ 
+ (d) Rotational losses (in Watts)=   
+ 
+    4160.  
+ 
+ (e) Efficiency (in %)=   
+ 
+    65.57377  
+ 
+\ No newline at end of file