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

---
 3760/CH6/EX6.22/Ex6_22.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 3760/CH6/EX6.22/Ex6_22.sce

(limited to '3760/CH6/EX6.22')

diff --git a/3760/CH6/EX6.22/Ex6_22.sce b/3760/CH6/EX6.22/Ex6_22.sce
new file mode 100644
index 000000000..c44f42765
--- /dev/null
+++ b/3760/CH6/EX6.22/Ex6_22.sce
@@ -0,0 +1,21 @@
+clc;
+Pm=7500;
+V=420;
+f=50;
+P=4;
+s=0.04;
+r1=1.2;
+x1=1.4;
+x2=1.4;
+Xm=38.6;
+
+//As per Thevenin's Equivalent circuit
+Re=(r1*Xm)/(Xm+x2);
+Xe=(x1*Xm)/(x2+Xm);
+Ve=(V/sqrt(3))*(Xm/(x2+Xm));
+r2=(3)*(1-s)*s*Ve*Ve*(1/Pm);
+smT=r2/(sqrt((Re*Re)+((Xe+x2)*(Xe+x2))));
+Tem=((3*Ve*Ve)/((((120*f)/P)/60)*2*%pi))*(1/2)*(1/(Re+(sqrt((Re*Re)+((Xe+x2)*(Xe+x2))))));
+Test=((3*Ve*Ve)/((((120*f)/P)/60)*2*%pi))*(r2/(((Re+r2)*(Re+r2))+((Xe+x2)*(Xe+x2))));
+mprintf('maximum torque is %f Nm \n slip is %f \n starting torque is %f Nm',Tem,smT,Test);
+
-- 
cgit