initial commit / add all books

16 files changed, 212 insertions, 0 deletions

diff --git a/671/CH9/EX9.1/9_1.sce b/671/CH9/EX9.1/9_1.sce
new file mode 100755
index 000000000..1384f3236
--- /dev/null
+++ b/671/CH9/EX9.1/9_1.sce
@@ -0,0 +1,32 @@
+f=50

+flux=0.016

+S=36

+P=6

+N=10

+

+

+m=S/P

+gammaa=%pi/m

+Kb=sin(m*gammaa/2)/m/sin(gammaa/2)

+Nph=S*N*2/2

+Ep=4.44*Kb*f*Nph*flux

+kVA=Ep*N/1000

+disp(kVA)

+

+m=S/2/P

+gammaa=%pi/2/m

+Kb=sin(m*gammaa/2)/m/sin(gammaa/2)

+Nph=S*N*2/2/2

+Ep=4.44*Kb*f*Nph*flux

+Eline=Ep*sqrt(2)

+kVA=Ep*N*2/1000

+disp(kVA)

+

+m=S/3/P

+gammaa=%pi/3/m

+Kb=sin(m*gammaa/2)/m/sin(gammaa/2)

+Nph=S*N*2/2/3

+Ep=4.44*Kb*f*Nph*flux

+Eline=Ep*sqrt(3)

+kVA=Ep*N*3/1000

+disp(kVA)

diff --git a/671/CH9/EX9.10/9_10.sce b/671/CH9/EX9.10/9_10.sce
new file mode 100755
index 000000000..11f43153d
--- /dev/null
+++ b/671/CH9/EX9.10/9_10.sce
@@ -0,0 +1,13 @@
+f=50

+ns=1000

+P=120*f/ns

+disp(P)

+s=(ns-940)/ns

+disp(s*100)

+nrr=ns-940

+disp(nrr)

+nrs=1000

+disp(nrs)

+s=2*s

+n=1000*(1-s)

+disp(n)

diff --git a/671/CH9/EX9.11/9_11.sce b/671/CH9/EX9.11/9_11.sce
new file mode 100755
index 000000000..d8f91323f
--- /dev/null
+++ b/671/CH9/EX9.11/9_11.sce
@@ -0,0 +1,5 @@
+ns=1000

+s=(ns-940)/ns

+news=2*s

+n=1000*(1-news)

+disp(n)

diff --git a/671/CH9/EX9.12/9_12.sce b/671/CH9/EX9.12/9_12.sce
new file mode 100755
index 000000000..46365f8ae
--- /dev/null
+++ b/671/CH9/EX9.12/9_12.sce
@@ -0,0 +1,8 @@
+P=8

+f1=60

+f2=50

+If1=5

+If2=f1/f2*If1

+disp(If2)

+nA2=120*f2/P

+disp(nA2)

diff --git a/671/CH9/EX9.13/9_13.sce b/671/CH9/EX9.13/9_13.sce
new file mode 100755
index 000000000..e98c8d576
--- /dev/null
+++ b/671/CH9/EX9.13/9_13.sce
@@ -0,0 +1,7 @@
+f1=60

+f2=50

+P1=12

+P2=f2/f1*P1

+disp(P2)

+nset=120*f1/P1

+disp(nset)

diff --git a/671/CH9/EX9.14/9_14.sce b/671/CH9/EX9.14/9_14.sce
new file mode 100755
index 000000000..793b54420
--- /dev/null
+++ b/671/CH9/EX9.14/9_14.sce
@@ -0,0 +1,6 @@
+m=6

+gammaa=%pi/m

+Kb=sin(m*gammaa/2)/m/sin(gammaa/2)

+

+m=4

+Kb=sin(m*gammaa/2)/m/sin(gammaa/2)

diff --git a/671/CH9/EX9.15/9_15.sce b/671/CH9/EX9.15/9_15.sce
new file mode 100755
index 000000000..a3acdf3b8
--- /dev/null
+++ b/671/CH9/EX9.15/9_15.sce
@@ -0,0 +1,16 @@
+

+f=50

+n=965

+P=floor(120*f/n)

+disp(P)

+

+s=(1000-965)/1000

+disp(s)

+f2=s*f

+disp(f2)

+

+nsr=1000-965

+disp(nsr)

+nrr=120*f2/P

+nsrf=1000-965-nrr

+disp(nsrf)

diff --git a/671/CH9/EX9.16/9_16.sce b/671/CH9/EX9.16/9_16.sce
new file mode 100755
index 000000000..1966fa190
--- /dev/null
+++ b/671/CH9/EX9.16/9_16.sce
@@ -0,0 +1,15 @@
+f=50

+P=4

+a=2

+

+ns=120*f/P

+n=1440

+s=1-n/ns

+disp(s)

+f2=s*f

+disp(f2)

+E1p=400

+E2f=400/a

+E2f2=E2f*f2/f

+E2l=sqrt(3)*E2f2

+disp(E2l)

diff --git a/671/CH9/EX9.2/9_2.sce b/671/CH9/EX9.2/9_2.sce
new file mode 100755
index 000000000..0e3e62fc1
--- /dev/null
+++ b/671/CH9/EX9.2/9_2.sce
@@ -0,0 +1,12 @@
+S=54

+P=6

+m=S/3/P

+gammaa=%pi/3/m

+

+Kb1=sin(m*gammaa/2)/m/sin(gammaa/2)

+Kb3=sin(m*gammaa/2*3)/m/sin(gammaa/2*3)

+Kb5=sin(m*gammaa/2*5)/m/sin(gammaa/2*5)

+

+disp(Kb1)

+disp(Kb3)

+disp(Kb5)

diff --git a/671/CH9/EX9.3/9_3.sce b/671/CH9/EX9.3/9_3.sce
new file mode 100755
index 000000000..237e4a220
--- /dev/null
+++ b/671/CH9/EX9.3/9_3.sce
@@ -0,0 +1,20 @@
+f=50

+n=500

+m=5

+N=12

+flux=0.025

+

+P=120*f/n

+S=m*3*P

+Nph=S*N*2/2/3

+gammaa=%pi/3/m

+Kb=sin(m*gammaa/2)/m/sin(gammaa/2)

+polepitch=S/N

+coilpitch=13

+spa=(polepitch-coilpitch)*gammaa

+Kp=cos(spa/2)

+

+Ep=4.44*Kb*Kp*f*Nph*flux

+disp(Ep)

+Eline=sqrt(3)*Ep

+disp(Eline)

diff --git a/671/CH9/EX9.4/9_4.sce b/671/CH9/EX9.4/9_4.sce
new file mode 100755
index 000000000..9c462eaec
--- /dev/null
+++ b/671/CH9/EX9.4/9_4.sce
@@ -0,0 +1,6 @@
+f=50

+P=6

+ns=120*f/P

+disp(ns)

+wm=2*%pi/60*ns

+disp(wm)

diff --git a/671/CH9/EX9.5/9_5.sce b/671/CH9/EX9.5/9_5.sce
new file mode 100755
index 000000000..24de70fd0
--- /dev/null
+++ b/671/CH9/EX9.5/9_5.sce
@@ -0,0 +1,10 @@
+F2=850

+F1=400

+lambda=123.6/180*%pi

+ppp=1.408/1000

+

+theta=%pi-lambda

+Fr=sqrt(F1*F1+F2*F2-2*F1*F2*cos(theta))

+

+fluxr=2/%pi*ppp*Fr

+disp(fluxr)

diff --git a/671/CH9/EX9.6/9_6.sce b/671/CH9/EX9.6/9_6.sce
new file mode 100755
index 000000000..67952c6cb
--- /dev/null
+++ b/671/CH9/EX9.6/9_6.sce
@@ -0,0 +1,9 @@
+

+P=6

+N=1000

+

+f=P*N/120

+ns=120*f/4

+s=0.04

+n=(1-s)*ns

+disp(n)

diff --git a/671/CH9/EX9.7/9_7.sce b/671/CH9/EX9.7/9_7.sce
new file mode 100755
index 000000000..2ef96efd6
--- /dev/null
+++ b/671/CH9/EX9.7/9_7.sce
@@ -0,0 +1,17 @@
+

+P=4

+f=50

+

+

+ns=120*f/P

+n1=-1500

+s1=(ns-n1)/ns

+f2=s1*f

+SRV=s1*80

+disp(f2,SRV)

+

+n2=1000

+s2=(ns-n2)/ns

+f2=s2*f

+SRV=s2*80

+disp(f2,SRV)

diff --git a/671/CH9/EX9.8/9_8.sce b/671/CH9/EX9.8/9_8.sce
new file mode 100755
index 000000000..b1fed8da4
--- /dev/null
+++ b/671/CH9/EX9.8/9_8.sce
@@ -0,0 +1,17 @@
+

+betaa=acos(0)*2/5

+coilpitch=%pi-betaa

+disp(coilpitch/%pi*180)

+

+P=6

+S=72

+m=S/P

+gammaa=%pi/m

+cpis=150/180*%pi

+betaa=%pi-cpis

+Kp1=cos(betaa/2)

+Kp3=cos(5*betaa/2)

+Kp13=cos(13*betaa/2)

+disp(Kp1)

+disp(Kp3)

+disp(Kp13)

diff --git a/671/CH9/EX9.9/9_9.sce b/671/CH9/EX9.9/9_9.sce
new file mode 100755
index 000000000..c1afd007b
--- /dev/null
+++ b/671/CH9/EX9.9/9_9.sce
@@ -0,0 +1,19 @@
+

+P=2

+f=50

+S=42

+m=S/3/P

+gammaa=%pi/3/m

+Kb=sin(m*gammaa/2)/m/sin(gammaa/2)

+coilpitch=17

+polepitch=S/2

+spa=(polepitch-coilpitch)*gammaa

+Kp=cos(spa/2)

+

+N=S*2

+Nc=N/2

+Coilsperphase=Nc/3

+Nph=Coilsperphase/2

+Eline=2300

+flux=Eline/sqrt(3)/4.44/Kb/Kp/f/Nph

+disp(flux)