From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:38:01 +0530
Subject: updated the code

---
 503/CH8/EX8.31/ch8_31.sci | 55 ++++++++++++++++++++++++-----------------------
 1 file changed, 28 insertions(+), 27 deletions(-)

(limited to '503/CH8/EX8.31')

diff --git a/503/CH8/EX8.31/ch8_31.sci b/503/CH8/EX8.31/ch8_31.sci
index b5eb73d87..9caece0ba 100755
--- a/503/CH8/EX8.31/ch8_31.sci
+++ b/503/CH8/EX8.31/ch8_31.sci
@@ -1,27 +1,28 @@
-//to calculate synchronising power and torque coeff/deg mech shift
-
-clc;
-V=11000;
-Vt=V/sqrt(3);
-P=6*10^6;
-Ia=P/(sqrt(3)*V);
-ohm_b=Vt/Ia;
-Xs=.5;
-Xss=Xs*ohm_b;
-
-f=50;
-P=8;
-n_s=(120*f/P)*(2*%pi/60);
-
-Ef=Vt;
-dl=0;
-Psyn=(%pi/15)*(Ef*Vt/Xss)*cosd(dl);disp(Psyn,'synchronising power(W)');
-Tsyn=Psyn/n_s;disp(Tsyn,'torque coeff(Nm)');
-
-pf=.8;
-phi=acosd(pf);
-Ef=Vt+j*Ia*Xss*complex(cosd(-phi),sind(-phi));
-dl=atand(imag(Ef)/real(Ef));
-Psyn=(%pi/15)*(abs(Ef)*Vt/Xss)*cosd(dl);disp(Psyn,'synchronising power(W)');
-Tsyn=Psyn/n_s;disp(Tsyn,'torque coeff(Nm)');
-
+//to calculate synchronising power and torque coeff/deg mech shift
+
+clc;
+clear
+j = %i;
+V=11000;
+Vt=V/sqrt(3);
+P=6*10^6;
+Ia=P/(sqrt(3)*V);
+ohm_b=Vt/Ia;
+Xs=.5;
+Xss=Xs*ohm_b;
+
+f=50;
+P=8;
+n_s=(120*f/P)*(2*%pi/60);
+
+Ef=Vt;
+dl=0;
+Psyn=(%pi/15)*(Ef*Vt/Xss)*cosd(dl);disp(Psyn,'synchronising power(W)');
+Tsyn=Psyn/n_s;disp(Tsyn,'torque coeff(Nm)');
+
+pf=.8;
+phi=acosd(pf);
+Ef=Vt+j*Ia*Xss*complex(cosd(-phi),sind(-phi));
+dl=atand(imag(Ef)/real(Ef));
+Psyn=(%pi/15)*(abs(Ef)*Vt/Xss)*cosd(dl);disp(Psyn,'synchronising power(W)');
+Tsyn=Psyn/n_s;disp(Tsyn,'torque coeff(Nm)');
\ No newline at end of file
-- 
cgit