1 files changed, 41 insertions, 0 deletions
diff --git a/671/CH12/EX12.15/12_15.sce b/671/CH12/EX12.15/12_15.sce
new file mode 100755
index 000000000..e87691d2c
--- /dev/null
+++ b/671/CH12/EX12.15/12_15.sce
@@ -0,0 +1,41 @@
+V1=400
+R1=2.28*3/2
+R1ac=1.1*3.42
+
+Y0=3.5/sqrt(3)/V1
+Gi=(445/3)/V1/V1
+Bm=sqrt(Y0^2-Gi^2)
+Ri=1/Gi
+Xm=1/Bm
+
+V2=200
+Z=V2/16.7*sqrt(3)
+R=2220/16.7/16.7
+X=sqrt(Z*Z-R*R)
+R2=R-R1ac
+
+n=935
+ns=1000
+s=1-n/ns
+Z=R1ac+R2/s+%i*X
+I2=V1/Z
+Ii=V1/Ri-%i*V1/Xm
+I1=I2+Ii
+Iline=norm(I1)*sqrt(3)
+pf=real(I1)/norm(I1)
+ws=2*%pi*ns/60
+T=norm(3*I2*I2*R2/s/ws)
+disp(T)
+disp(Iline)
+
+Pm=norm(3*I2*I2*R2*(1-s)/s)
+Pin=sqrt(3)*V1*Iline*pf
+effi=Pm/Pin
+disp(effi)
+
+V=400
+s=1
+Z=R1ac+R2/s+%i*X
+I2=V/sqrt(3)/Z      ////calculation mistake in the book at this step
+Ts=norm(3*I2*I2*R2/ws)
+disp(Ts)