diff options
Diffstat (limited to '10')
-rwxr-xr-x | 10/CH10/EX5/cha10_5.sce | 48 | ||||
-rwxr-xr-x | 10/CH10/EX6/cha10_6.sce | 29 | ||||
-rwxr-xr-x | 10/CH4/EX6/cha4_6.sce | 109 | ||||
-rwxr-xr-x | 10/CH4/EX9/cha4_9.sce | 58 | ||||
-rwxr-xr-x | 10/CH6/EX4/cha6_4.sce | 60 | ||||
-rwxr-xr-x | 10/CH7/EX4/cha7_4.sce | 404 | ||||
-rwxr-xr-x | 10/CH7/EX6/cha7_6.sce | 40 | ||||
-rwxr-xr-x | 10/CH8/EX3/cha8_3.sce | 50 |
8 files changed, 397 insertions, 401 deletions
diff --git a/10/CH10/EX5/cha10_5.sce b/10/CH10/EX5/cha10_5.sce index 97d64d092..90a1e887f 100755 --- a/10/CH10/EX5/cha10_5.sce +++ b/10/CH10/EX5/cha10_5.sce @@ -1,23 +1,25 @@ -Ka=0.1;Ra=0.2;N=400;
-Ia=100;V=120;N1=350;
-Io=-100;
-
-Ea=Ka*N
-
-Vo=Ea+(Ia*Ra)
-
-Pmotor=Ea*Ia
-
-Pr=Ia^2*Ra
-
-Ps=V*Ia*0.5
-
-Vo=Ea1+(Ia*Ra)
-
-Vo=Ea1+(Io*Ra)
-
-Pmotor1=Ea1*Io
-
-Pr1=Ia^2*Ra
-
-Ps=V*Io*1/8
+Ka=0.1;Ra=0.2;N=400; +Ia=100;V=120;N1=350; +Io=-100; + +Ea=Ka*N + +Vo=Ea+(Ia*Ra) + +Pmotor=Ea*Ia + +Pr=Ia^2*Ra + +Ps=V*Ia*0.5 + +Ea1 = Ka*N1; + +Vo=Ea1+(Ia*Ra) + +Vo=Ea1+(Io*Ra) + +Pmotor1=Ea1*Io + +Pr1=Ia^2*Ra + +Ps=V*Io*1/8
\ No newline at end of file diff --git a/10/CH10/EX6/cha10_6.sce b/10/CH10/EX6/cha10_6.sce index 30685c066..8bdaed7be 100755 --- a/10/CH10/EX6/cha10_6.sce +++ b/10/CH10/EX6/cha10_6.sce @@ -1,15 +1,14 @@ -V=300;I=540;Angle=45;
-
-t0=0:0.1:%pi;
-
-t=0;
-integrate('540*sin((x-45*%pi/180))','x',t,t0)/%pi
-
- Is=242.89;
-
-Ps=V*I
-
-Vo1=(4*V)/(%pi*sqrt(2))
-
-Pout=Vo1*Io/sqrt(2)*cos(%pi*Angle/180)
-
+V=300;I=540;Angle=45; + +t0=0:0.1:%pi; + +t=0; +integrate('540*sin((x-45*%pi/180))','x',t,t0)/%pi + + Is=242.89; + +Ps=V*I + +Vo1=(4*V)/(%pi*sqrt(2)) + +Pout=Vo1*I/sqrt(2)*cos(%pi*Angle/180)
\ No newline at end of file diff --git a/10/CH4/EX6/cha4_6.sce b/10/CH4/EX6/cha4_6.sce index e5766b3ed..e92d03e38 100755 --- a/10/CH4/EX6/cha4_6.sce +++ b/10/CH4/EX6/cha4_6.sce @@ -1,57 +1,52 @@ -Vt=100;Ra=0.1;Ia=6;If=0.99;Rfw=80;
-Ia1=5;Iarated=120;N=1000;
-Afl=0.95;Prot=497.5;
-
-Eanl=Vt-(Ia*Ra)
-
-Rf=Vt/If
-
-Rfc=Rf-Rfw
-
-Prot=Ea*5
-
-Eanl=Vt-(Ia*Ra)
-
-Eafl=Vt-(Iarated*Ra)
-
-Wfl=(Eafl/Eanl)*N
-
-Wm=(Wfl/60)*2*%pi
-
-T=(Eafl*Iarated)/Wm
-
-Pout=(Eafl*Iarated)-(Prot)
-
-Pin=(Vt)*(Iarated+If)
-
-Eff=(Pout/Pin)*100
-
-Wfl1=(Eafl/Eanl)*(1/Afl)*N
-
-Wm1=(Wfl1/60)*(2*%pi)
-
-T=(Eafl*Iarated)/(Wm1)
-
-Eff1=(Pout/Pin)*100
-
-Wm=(1000/60)*(2*%pi)
-
-Ka=Eanl/Wm
-
-Ia=1.5*120
-
-Tstart=(Ka*Ia)
-
-Ifeff=If-Ifar
-
-Ea1=93.5
-
-Ka1=(Ea1/Wm)
-
-Tstart1=(Ka1*Ia)
-
-
-
-
-
-
+Vt=100;Ra=0.1;Ia=6;If=0.99;Rfw=80; +Ia1=5;Iarated=120;N=1000; +Afl=0.95;Prot=497.5; + +Eanl=Vt-(Ia*Ra) +Ea = Eanl; +Ifar = 0.16; +Rf=Vt/If + +Rfc=Rf-Rfw + +Prot=Ea*5 + +Eanl=Vt-(Ia*Ra) + +Eafl=Vt-(Iarated*Ra) + +Wfl=(Eafl/Eanl)*N + +Wm=(Wfl/60)*2*%pi + +T=(Eafl*Iarated)/Wm + +Pout=(Eafl*Iarated)-(Prot) + +Pin=(Vt)*(Iarated+If) + +Eff=(Pout/Pin)*100 + +Wfl1=(Eafl/Eanl)*(1/Afl)*N + +Wm1=(Wfl1/60)*(2*%pi) + +T=(Eafl*Iarated)/(Wm1) + +Eff1=(Pout/Pin)*100 + +Wm=(1000/60)*(2*%pi) + +Ka=Eanl/Wm + +Ia=1.5*120 + +Tstart=(Ka*Ia) + +Ifeff=If-Ifar + +Ea1=93.5 + +Ka1=(Ea1/Wm) + +Tstart1=(Ka1*Ia)
\ No newline at end of file diff --git a/10/CH4/EX9/cha4_9.sce b/10/CH4/EX9/cha4_9.sce index b7a64d7a0..265470a21 100755 --- a/10/CH4/EX9/cha4_9.sce +++ b/10/CH4/EX9/cha4_9.sce @@ -1,29 +1,29 @@ -Iarated=100;Vt=100;
-Ra=0.1;
-Ia1=200;
-
-Iastart=Vt/Ra
-
-Rae=(Vt-20)/(200)
-
-Ea2=Vt-Iarated*(Ra+Rae)
-
-Rae2=(Vt-Ea2-20)/(200)
-
-Ea3=Vt-Ia*(Ra+Rae2)
-
-Ea3=Vt-Iarated*(Ra+Rae2)
-
-Rae3=(Vt-Ea3-20)/200
-
-Ea4=Vt-Iarated*(Ra+Rae3)
-
-Rae4=(Vt-Ea4-20)/200
-
-Ia=(Vt-Ea4)/Ra
-
-R1=Rae-Rae2
-
-R2=Rae2-Rae3
-
-R3=Rae3-Rae4
+Iarated=100;Vt=100; +Ra=0.1; +Ia1=200; + Ia = 25; +Iastart=Vt/Ra + +Rae=(Vt-20)/(200) + +Ea2=Vt-Iarated*(Ra+Rae) + +Rae2=(Vt-Ea2-20)/(200) + +Ea3=Vt-Ia*(Ra+Rae2) + +Ea3=Vt-Iarated*(Ra+Rae2) + +Rae3=(Vt-Ea3-20)/200 + +Ea4=Vt-Iarated*(Ra+Rae3) + +Rae4=(Vt-Ea4-20)/200 + +Ia=(Vt-Ea4)/Ra + +R1=Rae-Rae2 + +R2=Rae2-Rae3 + +R3=Rae3-Rae4
\ No newline at end of file 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 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 diff --git a/10/CH8/EX3/cha8_3.sce b/10/CH8/EX3/cha8_3.sce index 2fa6468cc..417113c27 100755 --- a/10/CH8/EX3/cha8_3.sce +++ b/10/CH8/EX3/cha8_3.sce @@ -1,25 +1,25 @@ -Rw=1;Lw=30;I=3;TimeOn=2;RF=0.0675;
-StepRate=300;Turns=100;TimeOff=1;
-PeakI=3;
-
-R=Lw/TimeOn
-
-Rext=R-TimeOff
-
-Prext=(I^2*Rext)
-
-Vs=I*R
-
-Rext=R-Rw
-
-R1=Lw/TimeOff
-
-Rf=R1-R
-
-Energy=(1/2*Lw*I^2)
-
-Power=Turns*Rf
-
-Power=Turns*RF
-
-Vc=V+(PeakI*R)
+Rw=1;Lw=30;I=3;TimeOn=2;RF=0.0675; +StepRate=300;Turns=100;TimeOff=1; +PeakI=3; + +R=Lw/TimeOn + +Rext=R-TimeOff + +Prext=(I^2*Rext) + +Vs=I*R + +Rext=R-Rw + +R1=Lw/TimeOff + +Rf=R1-R + +Energy=(1/2*Lw*I^2) + +Power=Turns*Rf + +Power=Turns*RF + +Vc=Vs+(PeakI*R)
\ No newline at end of file |