1 files changed, 27 insertions, 0 deletions
diff --git a/887/CH16/EX16.4/16_4.sce b/887/CH16/EX16.4/16_4.sce
new file mode 100755
index 000000000..ae4e90807
--- /dev/null
+++ b/887/CH16/EX16.4/16_4.sce
@@ -0,0 +1,27 @@
+clc
+//ex16.4
+V_T=240;      //dc supply voltage
+R_A=0.065;      //armature resistance
+R_F=10;      //field resistance
+R_adj=14;      //adjustable resistance
+n=1200;      //speed in rpm
+P_rot=1450;      //rotational power loss
+T_out=250;      //hoist torque
+I_F=V_T/(R_F+R_adj);      //field current
+//E_A at I_F and n from magnetization curve  
+E_A_1=280;      //armature voltage
+W_m_1=n*2*%pi/60;      //speed in radians per second
+K=E_A_1/W_m_1;      //machine constant
+T_rot=P_rot/W_m_1;      //rotational loss-torque
+T_dev=T_rot+T_out;      //developed torque
+I_A=T_dev/K;      //armature current
+E_A_2=V_T-R_A*I_A;      //applying KVL
+W_m_2=E_A_2/K;      //speed in radians per second
+n_m=W_m_2*60/(2*%pi);      //speed in rpm
+P_out=T_out*W_m_2;      //output power
+I_L=I_F+I_A;      //line current
+P_in=V_T*I_L;      //input power
+eff=P_out*100/P_in;      //efficiency
+printf(" All the values in the textbook are approximated hence the values in this code differ from those of Textbook")
+disp(n_m,'Motor speed in rpm')
+disp(eff,'Efficiency of the motor')