1 files changed, 28 insertions, 0 deletions
diff --git a/695/CH2/EX2.23/Ex2_23.sce b/695/CH2/EX2.23/Ex2_23.sce
new file mode 100755
index 000000000..1a2c72ecc
--- /dev/null
+++ b/695/CH2/EX2.23/Ex2_23.sce
@@ -0,0 +1,28 @@
+//Caption:Determine the (a)total torque(b)useful torque(c)useful flux per pole(d)rotational losses(e)efficiency
+//Exa:2.23
+clc;
+clear;
+close;
+P=4;//no of poles
+Z=560;//no of conductors
+A=2;
+V=250;//in volts
+P_o=10*10^3;//in watts
+R_a=0.2;//in ohms
+I_f=1;//in amperes
+I_a=60;//in amperes
+N=1000;//in rpm
+V_b=1*2//in volts
+E=V-(I_a*R_a)-V_b;//in volts
+T=60*E*I_a/(2*%pi*N);//in Newton-meter
+disp(T,'(a) Total torque (in Newton-meter)=');
+T_useful=P_o*60/(2*%pi*N);
+disp(T_useful,'(b) Useful torque (in Newton-meter)=');
+Phy=60*E*A/(N*P*Z);
+disp(Phy,'(c) Useful flux per pole (in Weber)=');
+P_d=(V*I_a)-((I_a^2)*R_a)-(V_b*I_a);//in Watts
+P_rot=P_d-P_o;
+disp(P_rot,'(d) Rotational losses (in Watts)=');
+P_i=V*(I_a+I_f);//in Watts
+Eff=P_o*100/P_i;
+disp(Eff,'(e) Efficiency (in %)=');
+\ No newline at end of file