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

---
 10/CH6/EX4/cha6_4.sce | 60 +++++++++++++++++++++++++--------------------------
 1 file changed, 30 insertions(+), 30 deletions(-)

(limited to '10/CH6')

diff --git a/10/CH6/EX4/cha6_4.sce b/10/CH6/EX4/cha6_4.sce
index 1c792025f..58fae92db 100755
--- a/10/CH6/EX4/cha6_4.sce
+++ b/10/CH6/EX4/cha6_4.sce
@@ -1,30 +1,30 @@
-V=208;F=60;Phase=3;Power=3000;Xs=8;
-
-Vt=V/sqrt(Phase)
- 
-Ia=Power/(Phase*Vt)
-  
-function[x,y]=polar2rect(r,theta)
-x=r*cos(theta*%pi/180);
-y=r*sin(theta*%pi/180);
-endfunction  
-[x1,y1]=polar2rect(120,0)
-
-[x2,y2]=polar2rect(8.33,0)
- 
-[x3,y3]=polar2rect(8,90)
-  
-X=X1-(X2*X3)
-
-function[r,theta]=rect2polar(x,y)
-r=sqrt(x^2+y^2);
-theta=atan(y/x)*180/%pi;
-endfunction
-
-[Ef,Angle]=rect2polar(120,-66.64)
- 
-Pmax=(Phase*Ef*Vt)/Xs
- 
-Ws=(1800/F)*2*%pi
-
-Tmax=Pmax/Ws
+V=208;F=60;Phase=3;Power=3000;Xs=8;
+
+Vt=V/sqrt(Phase)
+ 
+Ia=Power/(Phase*Vt)
+  
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction  
+[x1,y1]=polar2rect(120,0)
+
+[x2,y2]=polar2rect(8.33,0)
+ 
+[x3,y3]=polar2rect(8,90)
+  
+X=x1-(x2*x3)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ef,Angle]=rect2polar(120,-66.64)
+ 
+Pmax=(Phase*Ef*Vt)/Xs
+ 
+Ws=(1800/F)*2*%pi
+
+Tmax=Pmax/Ws
\ No newline at end of file
-- 
cgit