updated the code

2 files changed, 222 insertions, 222 deletions

diff --git a/10/CH7/EX4/cha7_4.sce b/10/CH7/EX4/cha7_4.sce
index c3eb9203e..567e527df 100755
--- a/10/CH7/EX4/cha7_4.sce
+++ b/10/CH7/EX4/cha7_4.sce
@@ -1,202 +1,202 @@
-V=120;F=60;Pole=4;Zm=1.5+4.0;Za=3+6;

-Xa=6;Xm=4;Rm=1.5;Ra=3;

-

-Ra=(Xa/Xm)*(Rm+sqrt(18.25))

- 

-C=(2*%pi*F)*(Xa+(Ra*Rm)/(Xm+sqrt(18.25)))

- 

-a=((-Xm*Ra)+(sqrt(18.25)*sqrt(13.2)))

- 

-Xc=Xa+(a/Rm)

- 

-Ia=V/(3+%i*6)

-

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[Is,Angle]=rect2polar(8,-16)

-

-Im=V/(1.5+%i*4)

-  

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[Is1,Angle1]=rect2polar(9.86,-26.3)

- 

-Alfa=Angle1-Angle

- 

-Ts=Is*sin(%pi*6.01/180)

- 

-function[x,y]=polar2rect(r,theta)

-x=r*cos(theta*%pi/180);

-y=r*sin(theta*%pi/180);

-endfunction  

-

-[a,b]=polar2rect(Is1,Angle1)

- 

-X=a+%i*b

-

-C=1/C*10^6

-

-a=((-Xm*Ra)+(sqrt(18.25)*sqrt(13.2)))

- 

-Xc=Xa+(a/Rm)

- 

-C=10^6/(2*%pi*F*Xc)

-  

-Ia=V/(3+%i*6)

- 

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[Is,Angle]=rect2polar(8,-16)

-

-Im=V/(1.5+%i*4)

-  

-[Is1,Angle1]=rect2polar(9.86,-26.3)

-

-Alfa=Angle1-Angle

-

-Ts=Is*sin(%pi*6.01/180)

- 

-function[x,y]=polar2rect(r,theta)

-x=r*cos(theta*%pi/180);

-y=r*sin(theta*%pi/180);

-endfunction  

-

-[a,b]=polar2rect(Is1,Angle1)

- 

-X=a+%i*b

- 

-[c,d]=polar2rect(Is,Angle)

-

-X1=c+%i*d

- 

-X2=X+X1

-  

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[I,Angle]=rect2polar(17.86,-42.3)

- 

-Ia=V/(Ra+%i*Xa)

- 

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[Ia,Angle]=rect2polar(9.3,-6.4)

-  

-Alfa=69.33-34.53

-

-Ts=Ia*sin(%pi*Alfa/180)

-  

-function[x,y]=polar2rect(r,theta)

-x=r*cos(theta*%pi/180);

-y=r*sin(theta*%pi/180);

-endfunction  

-

-[Is,Angle]=polar2rect(Ia,Angle)

- 

-[Is1,Angle1]=polar2rect(28.1,-69.44)

- 

-X=Is+%i*angle

-

-X1=Is1+%i*Angle1

- 

-X2=Is+%i*Angle

-

-X=X1+X2

- 

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[Is,Angle]=rect2polar(19.1,-32.7)

-

-Xc=10^6/(2*%pi*F*405)

-

-Ia=V/(Ra+(%i*6+%i*6.55))

-  

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[Is,Angle]=rect2polar(2.16,-9.04)

- 

-

-Ia=V/(Ra+(%i*6-%i*6.55))

- 

-[Is,Angle]=rect2polar(38.6,7.09)

-

-Alfa=69.44+Angle

-

-Ts=Is*sin(%pi*Alfa/180)

- 

-function[x,y]=polar2rect(r,theta)

-x=r*cos(theta*%pi/180);

-y=r*sin(theta*%pi/180);

-endfunction  

-

-[Is,Angle]=polar2rect(28.1,-69.44)

- 

-[Is1,Angle1]=polar2rect(39.34,10.4)

-

-X1=Is+%i*Angle

- 

-X2=Is1+%i*Angle1

-

-X=X1+X2

- 

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[Is,Angle]=rect2polar(48.56,-19.20)

- 

-Ia=V/(Ra+(%i*Xa-%i*Xc))

-

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[I,Angle]=rect2polar(23.9,19.6)

-

-Alfa=69.44+39.5

-

-Ts=I*sin(%pi*Alfa/180)

-  

-function[x,y]=polar2rect(r,theta)

-x=r*cos(theta*%pi/180);

-y=r*sin(theta*%pi/180);

-endfunction  

-

-[Is,Angle]=polar2rect(28.1,-69.44)

- 

-[Is1,Angle1]=polar2rect(I,39.35)

- 

-X=Is+%i*Angle

- 

-X1=Is1+%i*Angle1

- 

-X2=X+X1

-  

-function[r,theta]=rect2polar(x,y)

-r=sqrt(x^2+y^2);

-theta=atan(y/x)*180/%pi;

-endfunction

-

-[I,Angle]=rect2polar(33.7,-6.7)

+V=120;F=60;Pole=4;Zm=1.5+4.0;Za=3+6;
+Xa=6;Xm=4;Rm=1.5;Ra=3;
+
+Ra=(Xa/Xm)*(Rm+sqrt(18.25))
+ 
+C=(2*%pi*F)*(Xa+(Ra*Rm)/(Xm+sqrt(18.25)))
+ 
+a=((-Xm*Ra)+(sqrt(18.25)*sqrt(13.2)))
+ 
+Xc=Xa+(a/Rm)
+ 
+Ia=V/(3+%i*6)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(8,-16)
+
+Im=V/(1.5+%i*4)
+  
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is1,Angle1]=rect2polar(9.86,-26.3)
+ 
+Alfa=Angle1-Angle
+ 
+Ts=Is*sin(%pi*6.01/180)
+ 
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction  
+
+[a,b]=polar2rect(Is1,Angle1)
+ 
+X=a+%i*b
+
+C=1/C*10^6
+
+a=((-Xm*Ra)+(sqrt(18.25)*sqrt(13.2)))
+ 
+Xc=Xa+(a/Rm)
+ 
+C=10^6/(2*%pi*F*Xc)
+  
+Ia=V/(3+%i*6)
+ 
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(8,-16)
+
+Im=V/(1.5+%i*4)
+  
+[Is1,Angle1]=rect2polar(9.86,-26.3)
+
+Alfa=Angle1-Angle
+
+Ts=Is*sin(%pi*6.01/180)
+ 
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction  
+
+[a,b]=polar2rect(Is1,Angle1)
+ 
+X=a+%i*b
+ 
+[c,d]=polar2rect(Is,Angle)
+
+X1=c+%i*d
+ 
+X2=X+X1
+  
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[I,Angle]=rect2polar(17.86,-42.3)
+ 
+Ia=V/(Ra+%i*Xa)
+ 
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ia,Angle]=rect2polar(9.3,-6.4)
+  
+Alfa=69.33-34.53
+
+Ts=Ia*sin(%pi*Alfa/180)
+  
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction  
+
+[Is,Angle]=polar2rect(Ia,Angle)
+ 
+[Is1,Angle1]=polar2rect(28.1,-69.44)
+ 
+X=Is+%i*Angle
+
+X1=Is1+%i*Angle1
+ 
+X2=Is+%i*Angle
+
+X=X1+X2
+ 
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(19.1,-32.7)
+
+Xc=10^6/(2*%pi*F*405)
+
+Ia=V/(Ra+(%i*6+%i*6.55))
+  
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(2.16,-9.04)
+ 
+
+Ia=V/(Ra+(%i*6-%i*6.55))
+ 
+[Is,Angle]=rect2polar(38.6,7.09)
+
+Alfa=69.44+Angle
+
+Ts=Is*sin(%pi*Alfa/180)
+ 
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction  
+
+[Is,Angle]=polar2rect(28.1,-69.44)
+ 
+[Is1,Angle1]=polar2rect(39.34,10.4)
+
+X1=Is+%i*Angle
+ 
+X2=Is1+%i*Angle1
+
+X=X1+X2
+ 
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(48.56,-19.20)
+ 
+Ia=V/(Ra+(%i*Xa-%i*Xc))
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[I,Angle]=rect2polar(23.9,19.6)
+
+Alfa=69.44+39.5
+
+Ts=I*sin(%pi*Alfa/180)
+  
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction  
+
+[Is,Angle]=polar2rect(28.1,-69.44)
+ 
+[Is1,Angle1]=polar2rect(I,39.35)
+ 
+X=Is+%i*Angle
+ 
+X1=Is1+%i*Angle1
+ 
+X2=X+X1
+  
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[I,Angle]=rect2polar(33.7,-6.7)
\ No newline at end of file
diff --git a/10/CH7/EX6/cha7_6.sce b/10/CH7/EX6/cha7_6.sce
index 22f5e7534..d0f4d19b2 100755
--- a/10/CH7/EX6/cha7_6.sce
+++ b/10/CH7/EX6/cha7_6.sce
@@ -1,20 +1,20 @@
-V=120;F=60;N=2000;A=0.6;

-Ohm=20;L=0.25;

-V=120;F=60;N=2000;Ia=0.6;

-a=20;L=0.25;

-

-Edc=V-(Ia*Ra)

- 

-X=2*%pi*F*L

- 

-Eac=(-Ia*Ra)+sqrt(V^2-(Ia*X)^2)

- 

-Nac=N*(Eac/Edc)

- 

-Pf=(Eac+(Ia*Ra))/V

-

-Pmech=Eac*Ia

- 

-Wm=(Nac*2*%pi)/F

-

-T=Pmech/Wm

+V=120;F=60;N=2000;A=0.6;
+Ra=20;L=0.25;
+V=120;F=60;N=2000;Ia=0.6;
+a=20;L=0.25;
+
+Edc=V-(Ia*Ra)
+ 
+X=2*%pi*F*L
+ 
+Eac=(-Ia*Ra)+sqrt(V^2-(Ia*X)^2)
+ 
+Nac=N*(Eac/Edc)
+ 
+Pf=(Eac+(Ia*Ra))/V
+
+Pmech=Eac*Ia
+ 
+Wm=(Nac*2*%pi)/F
+
+T=Pmech/Wm
\ No newline at end of file