diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /10 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '10')
64 files changed, 2061 insertions, 0 deletions
diff --git a/10/CH1/EX1/cha1_1.sce b/10/CH1/EX1/cha1_1.sce new file mode 100755 index 000000000..3439c01d1 --- /dev/null +++ b/10/CH1/EX1/cha1_1.sce @@ -0,0 +1,21 @@ +Bc=0.8;Hc=510;Bg=0.8;
+A=4*%pi*10^-7;lg=1.5*10^-3;
+lc=0.36;N=500;
+
+Fg=Bg/A*(2*lg)
+
+Fc=Hc*lc
+
+F=Fc+Fg
+
+i=F/N
+
+Pre=Bc/Hc
+
+RelPre=Pre/A
+
+F=Hc*lc
+
+i=F /N
+
+
\ No newline at end of file diff --git a/10/CH1/EX2/cha1_2.sce b/10/CH1/EX2/cha1_2.sce new file mode 100755 index 000000000..94af36de2 --- /dev/null +++ b/10/CH1/EX2/cha1_2.sce @@ -0,0 +1,8 @@ +A=4*%pi*10^-7;lc=360;
+N=500;i=4;lg=2*10^-3;
+
+m=-A*(lc/lg)
+
+c=(N*i*A)/(lg)
+
+Hc=(N*i)/(lc)
\ No newline at end of file diff --git a/10/CH1/EX3/cha1_3.sce b/10/CH1/EX3/cha1_3.sce new file mode 100755 index 000000000..44101e047 --- /dev/null +++ b/10/CH1/EX3/cha1_3.sce @@ -0,0 +1,22 @@ +N1=500;I1=10;N2=500;I2=10;
+Ibafe=3*52*10^-2;A=4*%pi*10^-7;
+b=1200;Ag=4*10^-4;Ac=4*10^-4;
+lg=5*10^-3;Ibecore=51.5*10^-2;c=2.067*10^-4;
+d=4.134*10^-4;
+
+F1=N1*I1
+
+F2=N2*I2
+
+Pre=1200*A
+
+Rbafe=(Ibafe)/(Pre*Ac)
+
+Rg=lg/(A*Ag)
+
+Rbecore=Ibecore/(Pre*Ac)
+
+Bg=d/(Ag)
+
+Hg=Bg/A
+
\ No newline at end of file diff --git a/10/CH1/EX4/cha1_4.sce b/10/CH1/EX4/cha1_4.sce new file mode 100755 index 000000000..a988674d8 --- /dev/null +++ b/10/CH1/EX4/cha1_4.sce @@ -0,0 +1,28 @@ +Irad=20;Orad=25;Dia=22.5
+N=250;i=2.5;
+l=2*%pi*Dia*10^-2;
+B=1.225;
+
+radius=1/2*(Irad+Orad)
+
+H=(N*i)/l
+
+A=%pi*((Orad-Irad)/2)^2*10^-4
+
+z=(1.225)*(%pi*6.25*10^-4)
+
+y=(N*z)
+
+L=(y/i)
+
+core=(B/H)
+
+l=(2*%pi*22.5*10^-2)
+
+Rcore=(l)/(core*A)
+
+L=(N^2)/(Rcore)
+
+
+
+
diff --git a/10/CH1/EX5/cha1_5.sce b/10/CH1/EX5/cha1_5.sce new file mode 100755 index 000000000..9c3562750 --- /dev/null +++ b/10/CH1/EX5/cha1_5.sce @@ -0,0 +1,8 @@ +n=500;E=100;A=0.001;b=1/120;
+f=1.2;
+
+max1=(E/1000)*(b)
+
+max2=(f*A)
+
+E=(120*n*max2*2)
diff --git a/10/CH1/EX6/cha1_6.sce b/10/CH1/EX6/cha1_6.sce new file mode 100755 index 000000000..67bbf093f --- /dev/null +++ b/10/CH1/EX6/cha1_6.sce @@ -0,0 +1,9 @@ +lg=0.4*10^-2;Bg=0.8;
+Hm=42*10^3;A=4*%pi*10^-7;Ag=2.5*10^-4;
+Bm=0.95;
+
+Hg=Bg/A
+
+lm=(lg/Hm)*Hg
+
+Am=(Bg*Ag)/(Bm)
diff --git a/10/CH10/EX1/cha10_1.sce b/10/CH10/EX1/cha10_1.sce new file mode 100755 index 000000000..13304f41f --- /dev/null +++ b/10/CH10/EX1/cha10_1.sce @@ -0,0 +1,37 @@ +Ka=0.09;N=1000;
+Ia=30;Ra=0.4;V=120;
+RevEa=-90;
+
+Ea=Ka*N
+
+Vo=Ea+(Ia*Ra)
+
+a=Vo*%pi
+
+b=2*sqrt(2)*V
+
+c=a/b
+
+angle=acosd(c)
+
+P=Vo*Ia
+
+S=V*Ia
+
+Pf=P/S
+
+Vo1=RevEa+(Ia*Ra)
+
+a=Vo1*%pi
+
+b=2*sqrt(2)*V
+
+c=a/b
+
+Angle=acosd(c)
+
+Pdc=Ea*Ia
+
+Pr=Ia^2*Ra
+
+Ps=Pdc-Pr
diff --git a/10/CH10/EX2/cha10_2.sce b/10/CH10/EX2/cha10_2.sce new file mode 100755 index 000000000..2bd67fa68 --- /dev/null +++ b/10/CH10/EX2/cha10_2.sce @@ -0,0 +1,9 @@ +Vp=120;Angle=60;
+
+t0=%pi/2
+
+t1=t0:0.01:(210/360*2*%pi);
+
+integrate('2^.5*120*sin(t)','t',t0,t1)
+
+Vo=((3*sqrt(6))/(2*%pi))*120*cos(%pi*Angle/180)
\ No newline at end of file diff --git a/10/CH10/EX3/cha10_3.sce b/10/CH10/EX3/cha10_3.sce new file mode 100755 index 000000000..f3abcc954 --- /dev/null +++ b/10/CH10/EX3/cha10_3.sce @@ -0,0 +1,42 @@ +V=480;Ka=0.3;N=1500;
+Ia=130;Ra=0.1;No=1000;
+
+Vp=V/sqrt(3)
+
+Ea=Ka*N
+
+Vo=Ea+(Ia*Ra)
+
+a=Vo*%pi
+
+b=3*sqrt(6)*Vp
+
+c=a/b
+
+Angle=acosd(c)
+
+IA=sqrt(2/3)*Ia
+
+S=3*Vp*IA
+
+Ps=Vo*Ia
+
+Pf=Ps/S
+
+Ea1=Ka*No
+
+Vo1=-300+(Ia*Ra)
+
+a=Vo1*%pi
+
+b=3*sqrt(6)*Vp
+
+c=a/b
+
+Angle=acosd(c)
+
+Pdc=Ea1*Ia
+
+Pr=Ia^2*Ra
+
+Ps=Pdc-Pr
diff --git a/10/CH10/EX4/cha10_4.sce b/10/CH10/EX4/cha10_4.sce new file mode 100755 index 000000000..610a802fc --- /dev/null +++ b/10/CH10/EX4/cha10_4.sce @@ -0,0 +1,14 @@ +OutP=100*0.746;Eff=0.8;
+Pf=0.85;V=460;
+
+S=OutP/(Eff*Pf)
+
+Il=S/(sqrt(3)*V)
+
+Ip=Il/sqrt(3)
+
+Is=Ip/sqrt(2)
+
+Vs=sqrt(2)*V
+
+Angle=acosd(Pf)
diff --git a/10/CH10/EX5/cha10_5.sce b/10/CH10/EX5/cha10_5.sce new file mode 100755 index 000000000..97d64d092 --- /dev/null +++ b/10/CH10/EX5/cha10_5.sce @@ -0,0 +1,23 @@ +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
diff --git a/10/CH10/EX6/cha10_6.sce b/10/CH10/EX6/cha10_6.sce new file mode 100755 index 000000000..30685c066 --- /dev/null +++ b/10/CH10/EX6/cha10_6.sce @@ -0,0 +1,15 @@ +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)
+
diff --git a/10/CH10/EX7/cha10_7.sce b/10/CH10/EX7/cha10_7.sce new file mode 100755 index 000000000..857bc5e17 --- /dev/null +++ b/10/CH10/EX7/cha10_7.sce @@ -0,0 +1,5 @@ +V=600;Phase=3;
+
+Vl=sqrt(2/3)*V
+
+Vp=V*sqrt(2)/Phase
diff --git a/10/CH10/EX8/cha10_8.sce b/10/CH10/EX8/cha10_8.sce new file mode 100755 index 000000000..b7fa7df02 --- /dev/null +++ b/10/CH10/EX8/cha10_8.sce @@ -0,0 +1,7 @@ +V=120;Vo=50;Vo1=100;
+
+Angleshift=(Vo^2/V^2)*180
+
+Angleshift=(Vo1^2/V^2)*180
+
+
\ No newline at end of file diff --git a/10/CH10/EX9/cha10_9.sce b/10/CH10/EX9/cha10_9.sce new file mode 100755 index 000000000..6d4bc6f31 --- /dev/null +++ b/10/CH10/EX9/cha10_9.sce @@ -0,0 +1,11 @@ +I=100;
+PulseScr=sqrt(1/3);
+PulseOut=sqrt(2/3);
+
+a=PulseScr
+
+msScr=a*I
+
+b=PulseOut
+
+RmsOut=b*I
diff --git a/10/CH2/EX1/cha2_1.sce b/10/CH2/EX1/cha2_1.sce new file mode 100755 index 000000000..af2555b7a --- /dev/null +++ b/10/CH2/EX1/cha2_1.sce @@ -0,0 +1,11 @@ +resimp=9;inte=1;V=10;A=1/3;
+
+I=V/(inte+resimp)
+
+P=I^2*resimp
+
+R=(A^2)*(resimp)
+
+I1=V/(inte+I)
+
+P1=I1^2*inte
diff --git a/10/CH2/EX2/cha2_2.sce b/10/CH2/EX2/cha2_2.sce new file mode 100755 index 000000000..73346ed7c --- /dev/null +++ b/10/CH2/EX2/cha2_2.sce @@ -0,0 +1,41 @@ +Vh=220;Ih=4.55;Wl=100;
+Vl=150;Il=2.5;Wh=215;
+Vhrated=2200;Vlrated=220;
+Ihrated=4.55;Ilrated=45.5;
+
+Rcl=Vlrated^2/Wl
+
+Poc=(Vlrated^2/Rcl)
+
+Icl=Vlrated/Rcl
+
+Iml=(Il^2-Icl^2)^(1/2)
+
+Xml=Vlrated/Iml
+
+A=Vhrated/Vlrated
+
+Rch=A^2*Rcl
+
+Xmh=A^2*Xml
+
+Reqh=215/Ihrated^2
+
+Psc=Ihrated^2*Reqh
+
+Zeqh=Vl/Ihrated
+
+Xeqh=(Zeqh^2-Reqh^2)^(1/2)
+
+Reql=Reqh/A^2
+
+Xeql=Xeqh/A^2
+
+P=(Poc/(Vlrated*Il))
+
+Psh=(Psc/(Vl*Ihrated))
+
+
+
+
+
\ No newline at end of file diff --git a/10/CH2/EX3/cha2_3.sce b/10/CH2/EX3/cha2_3.sce new file mode 100755 index 000000000..eaf960888 --- /dev/null +++ b/10/CH2/EX3/cha2_3.sce @@ -0,0 +1,60 @@ +Fullload=75;Ia=4.55;Vl=2200;
+
+Fulload=Fullload/100
+
+Ih=Fullload*Ia
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[x1,y1]=polar2rect(Vl,0)
+
+[x2,y2]=polar2rect(35.46,-53.13)
+
+[x3,y3]=polar2rect(106.73,36.87)
+
+X1=x1+%i*y1
+
+X2=x2+%i*y2
+
+X3=x3+%i*y3
+
+X=X1+X2+X3
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[V,Angle]=rect2polar(2306.5,35.67)
+
+VolReg=(V-Vl)/Vl*100
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+[x1,y1]=polar2rect(Vl,0)
+
+[x2,y2]=polar2rect(35.46,53.13)
+
+[x3,y3]=polar2rect(106.73,143.13)
+
+X1=x1+%i*y1
+
+X2=x2+%i*y2
+
+X3=x3+%i*y3
+
+X=X1+X2+X3
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[V1,Angle1]=rect2polar(2135.89,92.4)
+
+VolReg=(V1-Vl)/Vl*100
diff --git a/10/CH2/EX4/cha2_4.sce b/10/CH2/EX4/cha2_4.sce new file mode 100755 index 000000000..30de8b570 --- /dev/null +++ b/10/CH2/EX4/cha2_4.sce @@ -0,0 +1,19 @@ +V=0.75;I=10000;A=0.6;
+Pc=100;Reqh=10.4;Ih=(0.75*4.55)^2;
+Reql=0.104;V2=220;B=1;
+
+Pout=V*I*A
+
+Pcu=(Ih*Reqh)
+
+Eff=Pout/(Pout+Pc+Pcu)
+
+Eff=Pout/(Pout+Pc+Pcu)*100
+
+I2=(100/0.104)^(1/2)
+
+Pout1=V2*I2*B
+
+Eff1=Pout1/(Pout1+Pc+Pcu)
+
+Eff1=Pout1/(Pout1+Pc+Pcu)*100
diff --git a/10/CH2/EX5/cha2_5.sce b/10/CH2/EX5/cha2_5.sce new file mode 100755 index 000000000..6b13ce18f --- /dev/null +++ b/10/CH2/EX5/cha2_5.sce @@ -0,0 +1,21 @@ +Power=50;Lo1=0.5;
+Lo2=0.75;Lo3=1;Lo4=1.1;
+Pf1=1;Pf2=0.8;Pf3=0.9;
+Pf4=1;Ho1=6;Ho2=6;Ho3=3;Ho4=3;Ho=6;Pc=200;
+Pcu=500;
+
+EngOut=(Lo1*Power*Ho1*Pf1)+(Lo2*Power*Ho2*Pf2)+(Lo3*Power*Ho3*Pf3)+(Lo4*Power*Ho4*Pf4)
+
+A=Pc/1000
+
+TotalHour=Ho+Ho1+Ho2+Ho3+Ho4
+
+Coreloss=A*TotalHour
+
+B=Pcu/1000
+
+Copperloss=(Lo1^2*B*Ho1)+(Lo2^2*B*Ho2)+(Lo3^2*B*Ho3)+(Lo4^2*B*Ho4)
+
+Totalloss=Coreloss+Copperloss
+
+Eff=EngOut/(EngOut+Totalloss)*100
diff --git a/10/CH2/EX6/cha2_6.sce b/10/CH2/EX6/cha2_6.sce new file mode 100755 index 000000000..04eba4e4b --- /dev/null +++ b/10/CH2/EX6/cha2_6.sce @@ -0,0 +1,14 @@ +P=100000;Vs=2000;Vp=200;Ih=500;
+Vl=2000;
+
+Iab=P/Vp
+
+Ibc=P/Vs
+
+Il=Ih+50
+
+Vh=Vl+200
+
+Kva1=(Vl*Il)/(1000)
+
+Kva2=(Vh*Ih)/(1000)
diff --git a/10/CH2/EX7/cha2_7.sce b/10/CH2/EX7/cha2_7.sce new file mode 100755 index 000000000..30014d37d --- /dev/null +++ b/10/CH2/EX7/cha2_7.sce @@ -0,0 +1,44 @@ +Power=120000;;Phase=3;
+V=230;Pri=2300;Sec=230;Z=0.012+%i*0.016;Pf=0.85;
+
+Is=Power/(sqrt(Phase)*V)
+
+I2=Is/sqrt(Phase)
+
+a=Pri/V
+
+I1=I2/a
+
+ Zeq=(Z)*10^2
+
+ a=acos(Pf)
+
+ Deg=(a*180)/%pi
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[a,b]=polar2rect(Pri,0)
+
+A=a+%i*b
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[c,d]=polar2rect(I1,-Deg)
+
+A1=c+%i*d
+
+A2=A1*(Zeq)
+
+A3=A2+A
+
+V1=2332.4;
+
+PriVol=sqrt(Phase)*V1
+
+VR=(V1-Pri)/Pri*100
diff --git a/10/CH2/EX8/cha2_8.sce b/10/CH2/EX8/cha2_8.sce new file mode 100755 index 000000000..c9e62670b --- /dev/null +++ b/10/CH2/EX8/cha2_8.sce @@ -0,0 +1,29 @@ +Pri=1330;Sec=230;Zl=0.12+%i*0.25;Phase=3;V=230;
+Z=0.8+%i*5;Power=27;
+Zz=0.003+%i*0.015;Pf=0.9
+
+A=(Pri/Sec)^2*(Zl)
+
+Req=4.01;
+
+Xeqh=8.36;
+
+a=(sqrt(Phase)*Pri)/V
+
+Reql=0.8;
+
+Xeql=5;
+Rr=0.003;
+
+Xx=0.015;
+
+R=(Reql+Req)*(1/10^2)+Rr
+
+X=(Xeql+Xeqh)*(1/10^2)+Xx
+
+Vl=V/sqrt(Phase)
+
+Il=(Power*10^3)/(Phase*133)
+
+Angle=-acos(%pi*Pf/180)
+
diff --git a/10/CH2/EX9/cha2_9.sce b/10/CH2/EX9/cha2_9.sce new file mode 100755 index 000000000..65eb086ca --- /dev/null +++ b/10/CH2/EX9/cha2_9.sce @@ -0,0 +1,22 @@ +Vh=2200;Vl=220;Pb=10000;
+I=0.25;a=10;Z=10.4+%i*31.3;
+
+Ib=Pb/Vh
+
+Il=Pb/Vl
+
+Zb=Vh/Ib
+
+Zl=Vl/Il
+
+Ih=I/Ib
+
+Zeq=Z/Zb
+
+Zeql=Z*(1/100)
+
+Zpu=Zeql/Zl
+
+Pcu=Ib^2*10.4
+
+Ppu=Pcu/Pb
diff --git a/10/CH3/EX1/cha3_1.sce b/10/CH3/EX1/cha3_1.sce new file mode 100755 index 000000000..072e5cbf3 --- /dev/null +++ b/10/CH3/EX1/cha3_1.sce @@ -0,0 +1,29 @@ +Hc=670;G=5;D=10;A=5;B=10;Bg=1;Z=4*%pi*10^-7;N=250;Area=700;
+
+Lc=2*(A+B)+2*(G+D)
+
+Hg=Bg/Z
+
+Lc=60/100
+
+Hg=Bg/Z
+
+Ni=(Hc*Lc)+(Hg*2*G*10^-3)
+
+I=Ni/N
+
+Vdc=I*G
+
+Wfc=Area/2
+
+Vc=2*(G*10^-2*D*10^-2*0.20)+2*(A*10^-2*B*10^-2*0.10)
+
+Wfc=Wfc*Vc
+
+Wfg=1.0/(2*Z)
+
+Vg=2*(G*10^-2*10*10^-2*0.005)
+
+Wfg=(Wfg*G*10^-2*10^-3)
+
+Wf=Wfc+Wfg
diff --git a/10/CH3/EX2/cha3_2.sce b/10/CH3/EX2/cha3_2.sce new file mode 100755 index 000000000..24099b520 --- /dev/null +++ b/10/CH3/EX2/cha3_2.sce @@ -0,0 +1,20 @@ +I=3;G=0.05;
+
+Lam=(0.09*I^(.5)/G)
+
+t1=0:0.1:3;
+
+t0=0;
+
+a=integrate('((0.09*2)/(G*I))*I^(0.5)','i',t0,t1)
+
+Wf=((0.09*2)/(G*I))*I^(1.5)
+
+Fm=-0.09*(2/3)*I^(1.5)*(1/G^2)
+
+Wf1=(G^2*Lam^3)/(0.09^2*I)
+
+Lam1=(0.09*I^(.5)/G)
+
+Fm=-((Lam1^3)*2*G)/(I*0.09^2)
+
\ No newline at end of file diff --git a/10/CH3/EX3/cha3_3.sce b/10/CH3/EX3/cha3_3.sce new file mode 100755 index 000000000..938194fb7 --- /dev/null +++ b/10/CH3/EX3/cha3_3.sce @@ -0,0 +1,25 @@ +A=4*%pi*10^-7;N=300;V=120;
+R=6;G=5*10^-3;Ag=6*6*10^-4;
+Lg=2*5*10^-3;
+Vo=2*6*6*5*10^-7;
+
+I=V/R
+
+Bg=(A*N*I)/(2*G)
+
+Wf=(Bg^2)/(2*A)*(Vo)
+
+Fm=(Bg^2)/(2*A)*(2*Ag)
+
+L=(N^2*A*Ag)/(Lg)
+
+Irms=V/(sqrt(6^2+15.34^2))
+
+Brms=(A*N*Irms)/(2*G)
+
+Fm=(Brms^2)/(2*A)*(2*Ag)
+
+
+
+
+
diff --git a/10/CH4/EX1.b/cha4_1_b.sce b/10/CH4/EX1.b/cha4_1_b.sce new file mode 100755 index 000000000..b5dfb14ef --- /dev/null +++ b/10/CH4/EX1.b/cha4_1_b.sce @@ -0,0 +1,17 @@ +P=4;A=2;Z=462;Wn=(1000/60)*(2*%pi);z=0.0276;
+Icoil=100;
+
+Ka=(Z*P)/(2*2*%pi)
+
+Wn
+
+Ea=(Ka*z*Wn)
+
+Icoil
+
+Ia=2*Icoil
+
+T=(Ka*z*Ia)
+
+Pa=Ea*Ia
+
\ No newline at end of file diff --git a/10/CH4/EX10/cha4_10.sce b/10/CH4/EX10/cha4_10.sce new file mode 100755 index 000000000..1298e4b08 --- /dev/null +++ b/10/CH4/EX10/cha4_10.sce @@ -0,0 +1,19 @@ +Ia=40;Ra=0.25;La=10;
+ACv=265;Angle=30;
+Ka=0.18;
+
+A=cos(%pi*Angle/180)
+
+Vt=(2*sqrt(2)*ACv*A)/(%pi)
+
+Ea=Vt-(Ia*Ra)
+
+N=Ea/Ka
+
+Sec=(Ka*60)/(2*%pi)
+
+T=Sec*Ia
+
+P=Vt*Ia
+
+P=(Ia^2*Ra)+Ea*Ia
diff --git a/10/CH4/EX11/cha4_11.sce b/10/CH4/EX11/cha4_11.sce new file mode 100755 index 000000000..80d85c2ca --- /dev/null +++ b/10/CH4/EX11/cha4_11.sce @@ -0,0 +1,36 @@ +V=480;RPM=1800;
+Ia=16.5;Ra=0.0874;
+Ka=0.33;
+Angle=30;N=1800;
+
+Vp=(V/sqrt(3))
+
+Vt=(3*sqrt(6)*Vp)/(%pi)
+
+Ea=Vt-(Ia*Ra)
+
+No=(Ea/Ka)
+
+A=cos(%pi*Angle/180)
+
+Vt1=Vt*A
+
+Ea1=Vt1-(Ia*Ra)
+
+No1=Ea1/Ka
+
+Eaf=Ka*N
+
+Vtf=Eaf+(Ia*Ra)
+
+ Angle=Vtf/Vt
+
+ a=acos(Angle)
+
+ Alfa=a*180/%pi
+
+Eas=Vtf-(Ia*Ra)
+
+Nos=Eas/Ka
+
+SpeedReg=(Nos-N)/N*100
diff --git a/10/CH4/EX12/cha4_12.sce b/10/CH4/EX12/cha4_12.sce new file mode 100755 index 000000000..36d189ff9 --- /dev/null +++ b/10/CH4/EX12/cha4_12.sce @@ -0,0 +1,10 @@ +Supv=120;Ia=20;Ra=0.5;
+Ka=0.05;
+
+Vt=Ia*Ra
+
+A=(Vt/Supv)
+
+Ea=Supv-(Ia*Ra)
+
+N=Ea/Ka
diff --git a/10/CH4/EX2/cha4_2.sce b/10/CH4/EX2/cha4_2.sce new file mode 100755 index 000000000..fbdae0ed8 --- /dev/null +++ b/10/CH4/EX2/cha4_2.sce @@ -0,0 +1,13 @@ +Ia=120;Vt=100;Ea=100;
+Ra=0.1;Ar=0.06;EA=98;
+Ifeff=1.4;
+
+Vt1=Ea-(Ia*Ra)
+
+Ifeff1=1-Ar
+
+V=EA-(Ia*Ra)
+
+Ea=(Vt)+(Ia*Ra)
+
+Ifactual=Ifeff+Ar
diff --git a/10/CH4/EX3/cha4_3.sce b/10/CH4/EX3/cha4_3.sce new file mode 100755 index 000000000..6e0cd45bc --- /dev/null +++ b/10/CH4/EX3/cha4_3.sce @@ -0,0 +1,13 @@ +Eaa=111;Ia=120;Ra=0.1;
+Rfw=80;Eac=85;If=0.5;
+v=100;
+
+Vt=Eaa-(Ia*Ra)
+
+Rf=v/1
+
+Rfc=Rf-Rfw
+
+Rfcrit=Eac/If
+
+Rfc=Rfcrit-Rfw
diff --git a/10/CH4/EX4/cha4_4.sce b/10/CH4/EX4/cha4_4.sce new file mode 100755 index 000000000..eb04c71f9 --- /dev/null +++ b/10/CH4/EX4/cha4_4.sce @@ -0,0 +1,7 @@ +Ia=120;Ra=0.1;Vt=80;Vt1=75;AB=17;Ea=6;
+
+V=Ia*Ra
+
+Ia=AB/Ra
+
+Ia1=Ea/Ra
diff --git a/10/CH4/EX5/cha4_5.sce b/10/CH4/EX5/cha4_5.sce new file mode 100755 index 000000000..3bce853cf --- /dev/null +++ b/10/CH4/EX5/cha4_5.sce @@ -0,0 +1,12 @@ +Ia=120;Vt=100;Rsr=0.01;
+Ra=0.1;Ia=120;Rf=100;
+Ifeff=1.45;If=1.01;
+Nf=1200;Ifar=0.06;
+
+It=Ia-If
+
+If=(Vt+It*Rsr)/Rf
+
+Ea=Vt+(It*Rsr)+(Ia*Ra)
+
+Nsr=(Ifeff-If+Ifar)*(1200)/(It)
diff --git a/10/CH4/EX6/cha4_6.sce b/10/CH4/EX6/cha4_6.sce new file mode 100755 index 000000000..e5766b3ed --- /dev/null +++ b/10/CH4/EX6/cha4_6.sce @@ -0,0 +1,57 @@ +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)
+
+
+
+
+
+
diff --git a/10/CH4/EX7/cha4_7.sce b/10/CH4/EX7/cha4_7.sce new file mode 100755 index 000000000..2c24890a5 --- /dev/null +++ b/10/CH4/EX7/cha4_7.sce @@ -0,0 +1,22 @@ +If=0.99;Vt=100;Ia=120;Ra=0.1;
+Rpm1=932;Rpm2=1000;
+Ifeff=0.86;Nf=1200;
+rpm1=1000;
+Ifeff1=1.32;Rpm3=800;
+EA=65;
+
+Ea=Vt-(Ia*Ra)
+
+Ea1=Rpm2/Rpm1*Ea
+
+Ifar=If-Ifeff
+
+At=Nf*Ifar
+
+Ea2=Rpm2/Rpm3*Ea
+
+Nsr=(Ifeff1-If+Ifar)*(Nf)/(Ia+If)
+
+Ifeff2=If-(Nsr*(Ia+If))/Nf-Ifar
+
+N=(Ea/EA)*Rpm2
diff --git a/10/CH4/EX8/cha4_8.sce b/10/CH4/EX8/cha4_8.sce new file mode 100755 index 000000000..c2ce4113f --- /dev/null +++ b/10/CH4/EX8/cha4_8.sce @@ -0,0 +1,30 @@ +Vt=220;Ia=25;Ra=0.6;
+Rsr=0.4;Rae=0;N=300;
+N1=200;Wm=(2*%pi/60);
+Hp=746;
+
+Ea=Vt-Ia*(Ra+Rsr+Rae)
+
+P=Ea*Ia
+
+a=P/Hp
+
+T=(Ea*Ia)/(N*Wm)
+
+Ksr=T/Ia^2
+
+T1=(N1/N)^2*T
+
+P=(T1*N1*Wm)
+
+a=T1/Ksr
+
+a=sqrt(Ia)
+
+Rae=(Vt-Ea-(Ia*Ra)+(Ia*Rsr))/Ia
+
+P=Ea*Ia
+
+
+
+
\ No newline at end of file diff --git a/10/CH4/EX9/cha4_9.sce b/10/CH4/EX9/cha4_9.sce new file mode 100755 index 000000000..b7a64d7a0 --- /dev/null +++ b/10/CH4/EX9/cha4_9.sce @@ -0,0 +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
diff --git a/10/CH5/EX1/cha5_1.sce b/10/CH5/EX1/cha5_1.sce new file mode 100755 index 000000000..b3d6b3110 --- /dev/null +++ b/10/CH5/EX1/cha5_1.sce @@ -0,0 +1,12 @@ +F=60;P=4;S=0.05;
+Ns=1800;V=460;Tr=0.5;
+
+Ns=(120*F)/(P)
+
+N=(1-S)*Ns
+
+F2=S*F
+
+Sliprpm=S*Ns
+
+A=S*Tr*V/sqrt(3)
diff --git a/10/CH5/EX10/cha5_10.sce b/10/CH5/EX10/cha5_10.sce new file mode 100755 index 000000000..6aa99c0f8 --- /dev/null +++ b/10/CH5/EX10/cha5_10.sce @@ -0,0 +1,60 @@ +F=60;P=4;N=1740;R1=0.5;
+R2=0.5;X1=1;X2=1;Xm=35;
+I=1.1;Peak=10;H=5;H1=7;
+Phase=3;
+
+Ns=120*F/P
+
+S1=(Ns-N)/Ns
+
+A=R2/S1
+
+Z1=(Xm*%i)*(A+X1*%i)/(A+X2*%i+Xm*%i)
+
+Rth=12.08;
+
+Pg1=Phase*((I*Peak)/sqrt(2))^2*Rth
+
+Wsyn=(Ns/60)*2*%pi
+
+T1=Pg1/Wsyn
+
+Ns1=-(120*H*F)/P
+
+S2=(Ns1-N)/Ns1
+
+B=R2/S2
+
+Xm1=H*Xm
+
+hX2=H*X2
+
+Z2=Xm1*%i*(B+hX2*%i)/(B+hX2*%i+Xm1*%i)
+
+Rth2=0.39;
+
+Pg2=Phase*((0.22*Peak)/sqrt(2))^2*Rth2
+
+Wsyn2=(Ns1/60)*2*%pi
+
+T2=Pg2/Wsyn2
+
+Ns3=(120*H1*F)/P
+
+S3=(Ns3-N)/Ns3
+
+C=R2/S3
+
+Xm3=H1*Xm
+
+hX3=H1*X2
+
+Z3=Xm3*%i*(C+hX3*%i)/(C+hX3*%i+Xm3*%i)
+
+Rth3=0.54;
+
+Pg3=Phase*((0.16*Peak)/sqrt(2))^2*Rth3
+
+Wsyn3=(Ns3/60)*2*%pi
+
+T3=Pg3/Wsyn3
diff --git a/10/CH5/EX11/cha5_11.sce b/10/CH5/EX11/cha5_11.sce new file mode 100755 index 000000000..9326949c3 --- /dev/null +++ b/10/CH5/EX11/cha5_11.sce @@ -0,0 +1,10 @@ +S=2;Pole=50;F=50;
+Slip=0.25;
+
+Pole=Pole*10^-2
+
+Vs=S*Pole*F
+
+Vs=Vs*3600/1000
+
+V=(1-Slip)*(Vs)
diff --git a/10/CH5/EX2/cha5_2.sce b/10/CH5/EX2/cha5_2.sce new file mode 100755 index 000000000..d218d6304 --- /dev/null +++ b/10/CH5/EX2/cha5_2.sce @@ -0,0 +1,12 @@ +Hp=15;Loss=750;
+F=60;P=4;N=1728;
+
+Mecp=P+Loss
+
+Ns=120*F/P
+
+S=(Ns-N)/Ns
+
+Pag=Mecp/(1-S)
+
+P2=S*Pag
diff --git a/10/CH5/EX3/cha5_3.sce b/10/CH5/EX3/cha5_3.sce new file mode 100755 index 000000000..1b479d46c --- /dev/null +++ b/10/CH5/EX3/cha5_3.sce @@ -0,0 +1,38 @@ +Nof=60;NoV=2200;
+NoI=4.5;NoP=1600;
+BF=15;BV=270;BI=25;
+BP=9000;
+R1=2.8;V=2200;F=60;
+Rbl=4.8;
+
+Pnl=1600
+
+Prot=Pnl-(3*NoI^2*R1)
+
+Vt=V/sqrt(3)
+
+Znl=(Vt/NoI)
+
+Rnl=(Pnl)/(3*NoI^2)
+
+Xnl=(Znl^2-Rnl^2)^(1/2)
+
+Rbl=BP/(3*BI^2)
+
+Zbl=(BV)/(sqrt(3)*BI)
+
+Xbl=(Zbl^2-Rbl^2)^(1/2)
+
+Xbl=Xbl*(F/BF)
+
+X1=Xbl/2
+
+Xm=(Xnl-X1)
+
+R=Rbl-R1
+
+R2=((X1+Xm)/(Xm))^2*2
+
+Vth=(Xm)/(X1+Xm)
+
+Rth=(Vth^2)*R1
diff --git a/10/CH5/EX4/cha5_4.sce b/10/CH5/EX4/cha5_4.sce new file mode 100755 index 000000000..82dc0ff63 --- /dev/null +++ b/10/CH5/EX4/cha5_4.sce @@ -0,0 +1,119 @@ +R1=0.25;X1=0.5;X2=0.5;
+R2=0.2;Xm=30;V=460;
+N=1740;F=60;P=4;Phase=3;No=1800;
+
+V1=V/sqrt(Phase)
+
+Z1=(R1+%i*X1)+(%i*Xm*(R2+%i*X2)/(R2+%i*30.5))
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Rth,Angle]=rect2polar(0.44,0.99)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[a,b]=polar2rect(Rth,Angle)
+
+X=a+%i*b
+
+Ist=(V1/X)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ist,Angle]=rect2polar(99.56,-224.0)
+
+Wsy=(1800/F)*2*%pi
+
+Vth=(V1*%i*Xm)/(R1+%i*30.5)
+
+Vth=265.3;
+
+Zth=%i*Xm*(%i*R1+%i*X1)/(R1+%i*30.5)
+
+Zth=(%i*Xm*(R1+%i*X1))/(R1+%i*30.5)
+
+Rth=0.24;
+
+Xth=0.49;
+
+a=Vth^2/((Rth+R2)^2+(Xth+X1)^2)
+
+Tst=((Phase/Wsy)*a*R2)
+
+S=(No-N)/No
+
+FL=R2/S
+
+Z1=(R2+%i*X2)+((%i*Xm)*(FL+%i*X2))/(FL+%i*30.5)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[c,d]=rect2polar(5.78,2.09)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[z,y]=polar2rect(c,d)
+
+X=z+%i*y
+
+Ifl=V1/X
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ifl,Ang]=rect2polar(40.63,-14.6)
+
+
+Ratio=Ist/Ifl
+
+Pf=cos(%pi*19.8/180)
+
+z=Vth^2/((Rth+FL)^2+(Xth+X2)^2)
+
+T=(Phase/Wsy)*z*FL
+
+Pag=T*Wsy
+
+P2=S*Pag
+
+Pmech=(1-S)*Pag
+
+Pout=Pmech-1700
+
+Pinp=Phase*V1*Ifl*Pf
+
+EFFMotor=Pout/Pinp*100
+
+ EFFint=(1-S)*100
+
+ Stmax=R2/(Rth^2+(Xth+X2)^2)^0.5
+
+ X=Rth+(Rth^2+(Xth+X2)^2)^0.5
+
+
+ Tmax=(Phase/2*Wsy)*X
+
+ T=Tmax/T
+
+
+
+
+
+
diff --git a/10/CH5/EX5/cha5_5.sce b/10/CH5/EX5/cha5_5.sce new file mode 100755 index 000000000..551579f4b --- /dev/null +++ b/10/CH5/EX5/cha5_5.sce @@ -0,0 +1,11 @@ +F=60;P=6;RPM=1140;
+RPM1=1000;R=0.2;
+
+Ns=(120*F/P)
+
+S1=(Ns-RPM)/(Ns)
+
+S2=(Ns-RPM1)/(Ns)
+
+Rext=(R/S1)*S2-(R)
+
diff --git a/10/CH5/EX6/cha5_6.sce b/10/CH5/EX6/cha5_6.sce new file mode 100755 index 000000000..86aef06a6 --- /dev/null +++ b/10/CH5/EX6/cha5_6.sce @@ -0,0 +1,13 @@ +F=60;P=4;N=1710;RI=6;
+
+Ns=(120*F)/P
+
+Sfl=(Ns-N)/Ns
+
+Tst=RI^2*Sfl
+
+Stmax=(0.0875/0.91)^(1/2)
+
+NMaxT=(1-Stmax)*Ns
+
+Tmax=(1+Stmax^2)/(2*Stmax)*Tst
diff --git a/10/CH5/EX7/cha5_7.sce b/10/CH5/EX7/cha5_7.sce new file mode 100755 index 000000000..d0845acf8 --- /dev/null +++ b/10/CH5/EX7/cha5_7.sce @@ -0,0 +1,33 @@ +F1=60;F2=15;F3=120;F=60;P=6;
+V=240;A=2;
+
+S=F2/F1
+
+Ns=(120*F)/P
+
+N=(1+S)*Ns
+
+N1=(1-S)*Ns
+
+S1=F3/F1
+
+n=(1+S1)*Ns
+
+n1=(1-S1)*Ns
+
+Pac=1/S
+
+Pac1=-1/S
+
+Pdc=-(1-(S))/S
+
+Pdc=-(1+(S))/-S
+
+Pac1=1/S1
+
+Pac1=1/-S1
+
+Pdc=-(1-S1)/S1
+
+Pdc=-(1+S1)/-S1
+
diff --git a/10/CH6/EX1/cha6_1.sce b/10/CH6/EX1/cha6_1.sce new file mode 100755 index 000000000..4a0d5ce83 --- /dev/null +++ b/10/CH6/EX1/cha6_1.sce @@ -0,0 +1,29 @@ +IMp=500;Pf=0.8;Pf1=0.6;
+SMp=300;Pfs=1;P1=400;
+P2=4;
+
+Power=IMp*Pf
+
+RecPower=IMp*Pf1
+
+SyPower=SMp*Pfs
+
+TotalPower=Power+SyPower
+
+RecPower
+
+ComplesPower=sqrt(TotalPower^2+RecPower^2)
+
+PowerFactor=(TotalPower/ComplesPower)
+
+Power1=sqrt(Power^2-RecPower^2)
+
+KVAR=RecPower-Power1
+
+NewKVA=sqrt(TotalPower^2+KVAR)
+
+PowerFactor1=(TotalPower/NewKVA)
+
+Ism=P1/(sqrt(3)*P2)
+
+PowerfactorSYS=SyPower/P1
diff --git a/10/CH6/EX2/cha6_2.sce b/10/CH6/EX2/cha6_2.sce new file mode 100755 index 000000000..6fd11e4fa --- /dev/null +++ b/10/CH6/EX2/cha6_2.sce @@ -0,0 +1,61 @@ +V=14000;Phase=3;Ra=0.07;V1=10;Is=490;Pf=0.8;
+If=200;Vl=18000;
+
+Vb=V/sqrt(Phase)
+
+Ib=(V1*10^6)/(sqrt(Phase)*V)
+
+Zb=Vb/Ib
+
+Zsun=(Vl/sqrt(3))/Is
+
+Xsun=sqrt(Zsun^2-Ra^2)
+
+Xsun=Xsun/Zb
+
+Zssa=(V/sqrt(3))/Is
+
+Xssa=Zssa/Zb
+
+a=cos(0.8)
+
+Deg=a*180/%pi
+
+Zs=Zssa/Ra
+
+Zs=atan(Zs)
+
+Angle=Zs*180/%pi
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[a,b]=polar2rect(1,0)
+
+X1=a+%i*b
+
+[c,d]=polar2rect(1,-Deg)
+
+X2=c+%i*d
+
+[e,f]=polar2rect(0.84,Angle)
+
+X3=e+%i*f
+
+X=X1+(X2*X3)
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[I,Angle]=rect2polar(1.54,0.64)
+
+Ef=I*V
+
+If=I*If
+
+
+
\ No newline at end of file diff --git a/10/CH6/EX3/cha6_3.sce b/10/CH6/EX3/cha6_3.sce new file mode 100755 index 000000000..2c6fbc4b6 --- /dev/null +++ b/10/CH6/EX3/cha6_3.sce @@ -0,0 +1,104 @@ +function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+V=208;Poles=4;F=60;Phase=3;Vol=5000;Xs=8;
+
+Vt=V/sqrt(Phase)
+
+Ia=Vol/(sqrt(Phase)*V)
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+[x1,y1]=polar2rect(Vt,0)
+
+[x2,y2]=polar2rect(Ia,-36.9)
+
+[x3,y3]=polar2rect(8,90)
+
+X1=x1+%i*0
+
+X2=x2+%i*0
+
+X2=x2+%i*y2
+
+X3=x3+%i*y3
+
+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(186.7,88.7)
+
+Newvol=1.2*Ef
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[x1,y1]=polar2rect(Newvol,21)
+
+[x2,y2]=polar2rect(Vt,0)
+
+[x3,y3]=polar2rect(Xs,90)
+
+X1=x1+%i*y1
+
+X1=x2+%i*y2
+
+X1=x3+%i*y3
+
+X=(X1-X2)/X3
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ia,Angle1]=rect2polar(11.11,-13.93)
+
+Pf=cos(%pi*51.5/180)
+
+a=sin(%pi*51.5/180)
+
+ReactiveKva=(Phase*Vt*Ia*a*10^-3)
+
+Pmax=(Phase*Ef*Vt)/Xs
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[x1,y1]=polar2rect(206.9,90)
+
+[x2,y2]=polar2rect(120,0)
+
+[x3,y3]=polar2rect(8,90)
+
+X1=x1+%i*y1
+
+X2=x2+%i*y2
+
+X3=x3+%i*y3
+
+X=(X1-X2)/X3
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Ia,Angle2]=rect2polar(25.8,15)
+
+tan=Vt/Ef
+
+Ang=tan*180/%pi
+
+Pf=cos(%pi*Ang/180)
+
\ No newline at end of file diff --git a/10/CH6/EX4/cha6_4.sce b/10/CH6/EX4/cha6_4.sce new file mode 100755 index 000000000..1c792025f --- /dev/null +++ b/10/CH6/EX4/cha6_4.sce @@ -0,0 +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
diff --git a/10/CH6/EX5/cha6_5.sce b/10/CH6/EX5/cha6_5.sce new file mode 100755 index 000000000..9e01b753f --- /dev/null +++ b/10/CH6/EX5/cha6_5.sce @@ -0,0 +1,60 @@ +V=460;Phase=3;N=1200;Hp=125;
+Ra=0.078;Xal=0.15;Xar=1.85;Nre=28.2;Nse=28.2;
+
+Ia=sqrt(Phase)*V
+
+Ia=121.4
+
+Vt=V/sqrt(Phase)
+
+Ea=Vt-(Ia*Ra)
+
+Xs=Xal+Xar
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[x1,y1]=polar2rect(Ea,0)
+
+[x2,y2]=polar2rect(Xs,90)
+
+X1=x1+%i*y1
+
+X2=x2+%i*y2
+
+Im=X1/X2
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[Im,Angle1]=rect2polar(7.84D-15,-128.0)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[x1,y1]=polar2rect(Im,Angle1)
+
+[x2,y2]=polar2rect(Ia,0)
+
+X1=x1+%i*y1
+
+X2=x2+%i*y2
+
+X=X1-X2
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[a,b]=rect2polar(-121.4,-128)
+
+n=sqrt(2)/Phase*Nre
+
+If=(a/n)*(Xs/Xar)
diff --git a/10/CH6/EX6/cha6_6.sce b/10/CH6/EX6/cha6_6.sce new file mode 100755 index 000000000..b8dd10c2a --- /dev/null +++ b/10/CH6/EX6/cha6_6.sce @@ -0,0 +1,42 @@ +V=11;Phase=3;F=60;IncExe=150;DecExe=50;Xs=10;
+Power=80000;
+
+Vt=V/sqrt(Phase)
+
+Vt=Vt*1000
+
+Ef=IncExe/100
+
+Ef1=DecExe/100
+
+Ia=(Vt-(Ef*Vt))/(Xs)
+
+Pf=cos(90/90*%pi/2)
+
+Ia1=(Vt-(Ef1*Vt))/(Xs)
+
+Pf1=cos(90/90*%pi/2)
+
+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(4.2,0)
+
+[x2,y2]=polar2rect(10,90)
+
+X1=x1+%i*y1
+
+X2=x2+%i*y2
+
+X=X1*X2
+
+function[r,theta]=rect2polar(x,y)
+r=sqrt(x^2+y^2);
+theta=atan(y/x)*180/%pi;
+endfunction
+
+[a,b]=rect2polar(Vt,42)
diff --git a/10/CH6/EX7/cha6_7.sce b/10/CH6/EX7/cha6_7.sce new file mode 100755 index 000000000..b95fc4382 --- /dev/null +++ b/10/CH6/EX7/cha6_7.sce @@ -0,0 +1,47 @@ +Vt=1;Ia=1;Xd=0.8;Xq=0.4;Loss=0.15;Angle=36.9;
+
+a=cos(%pi*Angle/180)
+
+b=sin(%pi*Angle/180)
+
+TanDeg=(Vt*Xq*a)/(Vt+(Ia*Xq*b))
+
+z=atan(TanDeg)
+
+Deg=(z*%pi/180)
+
+Deg=(z*180/%pi)
+
+Angl=Angle-Deg
+
+Id=Ia*sin(%pi*Angl/180)
+
+Iq=Ia*cos(%pi*Angl/180)
+
+Ef=(Vt*cos(%pi*Deg/180))-(Id*Xq)
+
+Pf=((Vt*Ef)/Xd)*sin(%pi*Deg/180)
+
+Pr=(Vt^2*(Xd-Xq)/(2*Xd*Xq))*sin(%pi*45.6/180)
+
+Pout=Vt*Ia*a
+
+Prmax=(Vt^2*(Xd-Xq))/(2*Xd*Xq)
+
+v=asin(Loss/Prmax)/2
+
+Deg1=(v*180/%pi)
+
+Id=Vt*cos(%pi*Deg1/180)/Xd
+
+Iq=Vt*sin(%pi*Deg1/180)/Xq
+
+Ia=(Id^2+Iq^2)^(1/2)
+
+ Ang=atan(Id/Iq)
+
+ Ang=(Ang*180/%pi)
+
+Phi=Ang+Deg1
+
+Pf=cos(%pi*Phi/180)
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
diff --git a/10/CH8/EX1/cha8_1.sce b/10/CH8/EX1/cha8_1.sce new file mode 100755 index 000000000..34fc0ac6b --- /dev/null +++ b/10/CH8/EX1/cha8_1.sce @@ -0,0 +1,16 @@ +T=0.2;V=115;N=3000;F=60;
+J=10^-5;
+
+Km=T/V
+
+Wm=(N*2*%pi/F)
+
+Fm=T/Wm
+
+Tm=J/Fm
+
+A=Km/Fm
+
+Kmv=A*V
+
+KmvT=A*Tm
diff --git a/10/CH8/EX3/cha8_3.sce b/10/CH8/EX3/cha8_3.sce new file mode 100755 index 000000000..2fa6468cc --- /dev/null +++ b/10/CH8/EX3/cha8_3.sce @@ -0,0 +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)
diff --git a/10/CH8/EX4/cha8_4.sce b/10/CH8/EX4/cha8_4.sce new file mode 100755 index 000000000..7986fd7af --- /dev/null +++ b/10/CH8/EX4/cha8_4.sce @@ -0,0 +1,15 @@ +Lw=30;R=15;Ia=3;V=45;
+
+Tow=Lw/R
+
+t1=0.7*Tow
+
+t0=0:0.1:t1;
+
+t=0;
+
+a=integrate('45*(-3+6*%e^(-x/2))','x',t,t0)
+
+ Energy=(1/2)*Lw*Ia^2
+
+ ProEnergy=(a/Energy)*100
\ No newline at end of file diff --git a/10/CH9/EX1/cha9_1.sce b/10/CH9/EX1/cha9_1.sce new file mode 100755 index 000000000..1a56f5873 --- /dev/null +++ b/10/CH9/EX1/cha9_1.sce @@ -0,0 +1,10 @@ +Rf=100;Lf=25;Ra=0.25;Laq=0.02;
+Kg=100;Ll=0.15;V=200;Rl=1;
+
+tow=Lf/Kg
+
+log(0.1)
+
+t=2.30/4
+
+Towat=(Ll+Laq)/(Rl+Ra)
\ No newline at end of file diff --git a/10/CH9/EX3/cha9_3.sce b/10/CH9/EX3/cha9_3.sce new file mode 100755 index 000000000..6597395f6 --- /dev/null +++ b/10/CH9/EX3/cha9_3.sce @@ -0,0 +1,54 @@ +Xd=0.9;Vt=1;Ia=1;Xd1=0.4;Xd2=0.2;Ta=0.2;
+Td1=4;Td2=0.6;t=0.1;
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[x,y]=polar2rect(Ia,-25.8)
+
+X=x+%i*y
+
+[x1,y1]=polar2rect(Xd,90)
+
+X1=x1+%i*y1
+
+A=Vt+(X*X1)
+
+function[x,y]=polar2rect(r,theta)
+x=r*cos(theta*%pi/180);
+y=r*sin(theta*%pi/180);
+endfunction
+
+[Ei,Angle]=rect2polar(1.39,0.81)
+
+[x,y]=polar2rect(Ia,-25.8)
+
+X=x+%i*y
+
+[x2,y2]=polar2rect(Xd1,90)
+
+X2=x2+%i*y2
+
+[Ei2,Angle1]=rect2polar(1.17,0.36)
+
+[x,y]=polar2rect(Ia,-25.8)
+
+X=x+%i*y
+
+[x3,y3]=polar2rect(Xd2,90)
+
+X3=x3+%i*y3
+
+[Ei2,Angle2]=rect2polar(1.08,0.10)
+
+Idc=sqrt(2)*(Ei2/Xd2)
+
+Td1=(Xd1/Xd)*Td1
+
+Td2=(Xd2/Xd1)*Td2
+
+Isc=sqrt(2)*(Td1+1.29*%e^(-0.562*0.1)+2.42*%e^(-3.3*0.1))+7.78*%e^(-5*0.1)
+
+
\ No newline at end of file |