initial commit / add all books

1 files changed, 34 insertions, 0 deletions

diff --git a/1892/CH1/EX1.12/Example1_12.sce b/1892/CH1/EX1.12/Example1_12.sce
new file mode 100755
index 000000000..237e81193
--- /dev/null
+++ b/1892/CH1/EX1.12/Example1_12.sce
@@ -0,0 +1,34 @@
+// Example 1.12

+

+clear; clc; close;

+

+format('v',8);

+// Given data

+f=50;//in Hz

+phase=3;//no. of phase

+P=4;//no. of poles

+Tsh=300;//in N-m

+Tlost=50;//in N-m

+fr=120;//in cycles/min

+fr=fr/60;//in Hz

+I2r=60;//in Ampere/phase

+

+//Calculations

+S=fr/f;//slip

+disp(S*100,"(i) Slip(%) : ");

+Ns=120*f/P;//in rpm

+N=Ns*(1-S);//in rpm

+Pout=Tsh*2*%pi*N/60;//watts

+disp(Pout/1000,"(ii) Net output Power(KW) : ");

+FricLoss=Tlost*2*%pi*N/60;//in watts

+Pm=Pout+FricLoss;//in watts

+//formula-:  P2:Pc:Pm=1:S:1-S

+Pc=S*Pm/(1-S);//copper loss in Watts

+PcPERphase=Pc/phase;//Copper loss per phase in watts

+disp(PcPERphase,"(iii) Rotor copper loss per phase(watts) : ");

+P2=Pc/S;//in watts

+Eff=Pm/P2*100;//in %

+disp(Eff,"(iv) Rotor efficiency in % : ");

+//Formula : CuLossPerPhase=I2r^2*R2;//in watts

+R2=PcPERphase/I2r^2;//in ohm/phase

+disp(R2,"(v) Rotor resistance per phase(ohm/phase) : ");