From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3784/CH7/EX7.13/Ex7_13.sce | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 3784/CH7/EX7.13/Ex7_13.sce

(limited to '3784/CH7/EX7.13/Ex7_13.sce')

diff --git a/3784/CH7/EX7.13/Ex7_13.sce b/3784/CH7/EX7.13/Ex7_13.sce
new file mode 100644
index 000000000..4699f74c9
--- /dev/null
+++ b/3784/CH7/EX7.13/Ex7_13.sce
@@ -0,0 +1,34 @@
+clc
+//variable initialization
+Vm=600 //Voltage of motor in volt
+Pout=30000 // Output Of Motor In Watt
+F=50 //Supply frequency in hrtz
+P=4 //Number Of Poles
+N1=100 //Speed OF Motor In rpm
+N2=1000 //Speed OF Motor In rpm
+R1=0.05 //Resistance of stator in ohm
+R2=0.07 //Resistance of rotor in ohm
+R0=53 //Resistance of rotor in ohm
+X=0.153 //Reactance of Motor in ohm
+X0=23 //Reactance of Motor in ohm
+n=1.3 //Stator To Rotr Ratio
+N3=300 //Speed OF Motor In rpm
+
+
+//Solution
+Vph=Vm/(sqrt(3))
+a=1/n
+Ns=(120*F)/(P)
+S=(Ns-N2)/Ns
+Wm=(2*%pi)/60
+Tl=(Pout)/(Wm*N3)
+Id=(Tl*Wm*Ns)/(2.339*a*Vph)
+I0=Vph/(X0)
+I2=(sqrt(2/3))*(Id*a)
+Pi=Pout+(R1*((I2)^2))+(R2*((I2)^2))
+e=(Pout/Pi)*100
+theta=-(atand(Vph/(0.779*Id*a*X0)))
+pf=cosd(theta)
+printf('\n\n The Motor Efficiency=%0.1f\n\n',e)
+printf('\n\n The Power Factor=%0.1f lag\n\n',pf)
+//The answers vary due to round off error
-- 
cgit