summaryrefslogtreecommitdiff
path: root/1445/CH10/EX10.14/Ex10_14.sce
diff options
context:
space:
mode:
Diffstat (limited to '1445/CH10/EX10.14/Ex10_14.sce')
-rw-r--r--1445/CH10/EX10.14/Ex10_14.sce20
1 files changed, 11 insertions, 9 deletions
diff --git a/1445/CH10/EX10.14/Ex10_14.sce b/1445/CH10/EX10.14/Ex10_14.sce
index 374233cc2..3bed8ce66 100644
--- a/1445/CH10/EX10.14/Ex10_14.sce
+++ b/1445/CH10/EX10.14/Ex10_14.sce
@@ -1,6 +1,8 @@
//CHAPTER 10- THREE-PHASE INDUCTION MACHINES
//Example 14
+clc;
+clear
disp("CHAPTER 10");
disp("EXAMPLE 14");
@@ -19,34 +21,34 @@ loss=420; //friction and winding loss in Watts
I1=I_nl/sqrt(3); //phase current=(line current)/sqrt(3) for delta connection
i_sq_r1=(I1^2)*r*3; //stator ((I^2)*R) loss at no load; since resistance is given in per phase, 3 needs to be multiplied for 3-phase
s_loss=(p_ni-loss)-(i_sq_r1);
-disp(sprintf("(a) The stator core loss is %.1f W",s_loss));
+disp(sprintf("(a) The stator core loss is %f W",s_loss));
//solution (b)
I2=I_fl/sqrt(3);
i_sq_r2=(I2^2)*r*3;
p_g=p_fi-s_loss-i_sq_r2; //air-gap power at full load
r_loss=p_g-p;
-disp(sprintf("(b) The total rotor loss at full load is %.0f W",r_loss));
+disp(sprintf("(b) The total rotor loss at full load is %f W",r_loss));
//solution (c)
o_loss=r_loss-loss;
-disp(sprintf("(c) The total rotor ohmic loss at full load is %.0f W",o_loss));
+disp(sprintf("(c) The total rotor ohmic loss at full load is %f W",o_loss));
//solution (d)
s_fl=o_loss/p_g; //full load slip
N_s=1500;
N_r=N_s*(1-s_fl);
-disp(sprintf("(d) The full load speed is %.1f rpm",N_r));
+disp(sprintf("(d) The full load speed is %f rpm",N_r));
//solution (e)
w=(2*%pi*N_s)/60;
T_e=p_g/w;
-disp(sprintf("(e) The internal torque is %.2f N-m",T_e));
-T_sh=p/(w*(1-s));
-disp(sprintf(" The shaft torque is %.2f N-m",T_sh));
+disp(sprintf("(e) The internal torque is %f N-m",T_e));
+T_sh=p/(w*(1-s_fl));
+disp(sprintf(" The shaft torque is %f N-m",T_sh));
eff=p/p_fi;
-disp(sprintf(" The motor efficiency is %.2f %%",eff*100));
+disp(sprintf(" The motor efficiency is %f %%",eff*100));
//The answers may be slightly different due to precision of floating point numbers
-//END
+//END \ No newline at end of file