initial commit / add all books

1 files changed, 39 insertions, 0 deletions

diff --git a/1892/CH1/EX1.14/Example1_14.sce b/1892/CH1/EX1.14/Example1_14.sce
new file mode 100755
index 000000000..ed86675b5
--- /dev/null
+++ b/1892/CH1/EX1.14/Example1_14.sce
@@ -0,0 +1,39 @@
+// Example 1.14

+

+clear; clc; close;

+

+format('v',7);

+// Given data

+Pout=24;//in KW

+P=8;//no. of poles

+N=720;//in rpm

+VL=415;//in volt

+IL=57;//in Ampere

+f=50;//in Hz

+phase=3;//no. of phase

+cosfi=0.707;//power factor

+MechLoss=1000;//in watts

+Rs=0.1;//in ohm/phase

+

+//Calculations

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

+S=(Ns-N)/Ns;//slip

+Pm=Pout*1000+MechLoss;//in watts

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

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

+Tsh=Pout*10^3/(2*%pi*N/60);//in N-m

+disp(Tsh,"Shaft Torque in N-m : ");

+T=Pm/((2*%pi*N/60));//in N-m

+disp(T,"Gross torque devloped in N-m : ");

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

+disp(Pc,"Rotor Cu losses in watts : ");

+P2=Pc/S;//in watts

+Pin=sqrt(3)*VL*IL*cosfi;//in watts

+Is=IL;//stator current per phase in Ampere

+StatorCuLoss=3*Is^2*Rs;//in watts

+disp(StatorCuLoss,"Stator Copper losses in watts : ");

+StatorLosses=Pin-P2;//in watts

+StatorIronLoss=StatorLosses-StatorCuLoss;//in watts

+disp(StatorIronLoss,"Stator Iron losses in watts : ");

+Eff=Pout*10^3/Pin*100;//in %

+disp(Eff,"Efficiency in % : ");