summaryrefslogtreecommitdiff
path: root/10/CH7
diff options
context:
space:
mode:
Diffstat (limited to '10/CH7')
-rwxr-xr-x10/CH7/EX2/cha7_2.sce60
-rwxr-xr-x10/CH7/EX4/cha7_4.sce202
-rwxr-xr-x10/CH7/EX5/cha7_5.sce119
-rwxr-xr-x10/CH7/EX6/cha7_6.sce20
4 files changed, 401 insertions, 0 deletions
diff --git a/10/CH7/EX2/cha7_2.sce b/10/CH7/EX2/cha7_2.sce
new file mode 100755
index 000000000..b40336a79
--- /dev/null
+++ b/10/CH7/EX2/cha7_2.sce
@@ -0,0 +1,60 @@
+F=60;P=4;N=1730;Zb=27.86;
+R=1.35;X=1.63;R1=2.9;X1=3.26;
+V=120;Prot=81.2;
+
+Ns=(120*F)/P
+
+S=(Ns-N)/N
+
+a=%i*Zb*((R/S)+%i*X)
+
+b=(R/S)+%i*(Zb+X)
+
+Zf=a/b
+
+Rf=13.06;
+
+Xf=16.31;
+
+a=%i*Zb*(R/(2-S)+%i*X)
+
+b=R/(2-S)+%i*(Zb+X)
+
+Zb=a/b
+
+Rb=0.61;
+
+Xb=1.55;
+
+Zinput=(R1+Rf+Rb)+%i*(X1+Xf+Xb)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[a,b]=rect2polar(16.57,21.12)
+
+Iinput=V/a
+
+cos(%pi*b/180)
+
+Pinput=V*Iinput*ans
+
+Wsy=Ns*2*(%pi/F)
+
+T=Iinput^2*(Rf-Rb)/Wsy
+
+Pmech=T*Wsy*(1-S)
+
+OutputPower=Pmech-Prot
+
+Eff=OutputPower/Pinput*100
+
+Pgf=Iinput^2*Rf
+
+Pgb=Iinput^2*Rb
+
+airgap=Pgf+Pgb
+
+P2=S*Pgf+(2-S)*Pgb
diff --git a/10/CH7/EX4/cha7_4.sce b/10/CH7/EX4/cha7_4.sce
new file mode 100755
index 000000000..c3eb9203e
--- /dev/null
+++ b/10/CH7/EX4/cha7_4.sce
@@ -0,0 +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)
diff --git a/10/CH7/EX5/cha7_5.sce b/10/CH7/EX5/cha7_5.sce
new file mode 100755
index 000000000..0e148eb67
--- /dev/null
+++ b/10/CH7/EX5/cha7_5.sce
@@ -0,0 +1,119 @@
+V=120;F=60;X1m=2;R1m=1.5;R2=1.5;
+X1a=2;R1a=1.5;X2=2;Xmag=48;C=30;a=1;
+Z1m=1.5;Zb=0.69+%i*0.98;Z1a=2.5;
+Xc=%i*2-%i*88.4;Ra=2.5;
+
+Xc=10^6/(2*%pi*F*C)
+
+Zb
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[x,y]=rect2polar(0.69,0.98)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[a,b]=polar2rect(V,0)
+
+X=a+%i*b
+
+z=(Z1m+%i*2+2*(Zb))
+
+Im=X/z
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is,Angle]=rect2polar(14.41,-19.81)
+
+y=(Z1a+Xc+2*(Zb))
+
+Ia=X/y
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is1,Angle1]=rect2polar(0.065,1.41)
+
+Wsy=(1800*2*%pi)/F
+
+Ts=2*(Is)*(Is1)*2*0.69*sin(%pi*141.1/180)/Wsy
+
+Zm=Z1m+%i*2+2*(Zb)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ip1,Angle1]=rect2polar(2.88,3.96)
+
+Za=Ra+%i*2+2*(Zb)
+
+R=3.88;Im=3.96;
+Xc=Im-((Im*R-4.9*sqrt(26.22))/2.88)
+
+c=10^6/(2767.34)
+
+Cs=c-C
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[v,a]=polar2rect(V,0)
+
+X=v+%i*a
+
+R=3.88;Im=3.96;Xc=7.34;
+
+a=R+(%i*Im-%i*Xc)
+
+z=X/a
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Is1,Angle1]=rect2polar(17.5,15.3)
+
+Is=24.4;Angle=-53.4;
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[a,b]=polar2rect(Is,Angle)
+
+X1=a+%i*b
+
+[c,d]=polar2rect(Is1,Angle1)
+
+X2=c+%i*d
+
+X=X1+X2
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[z,y]=rect2polar(32.04,-4.28)
+
+a=sin(%pi*95/180)
+
+Ts=2*(Is1)*(Is)*2*0.69*a/Wsy
+
+T=Ts/z
diff --git a/10/CH7/EX6/cha7_6.sce b/10/CH7/EX6/cha7_6.sce
new file mode 100755
index 000000000..22f5e7534
--- /dev/null
+++ b/10/CH7/EX6/cha7_6.sce
@@ -0,0 +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
generated by cgit (git 2.34.1) at 2025-03-12 11:28:53 +0000