From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1892/CH1/EX1.12/Example1_12.sce | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 1892/CH1/EX1.12/Example1_12.sce

(limited to '1892/CH1/EX1.12/Example1_12.sce')

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) : ");
-- 
cgit