1 files changed, 15 insertions, 0 deletions
diff --git a/1994/CH7/EX7.29/Example7_29.sce b/1994/CH7/EX7.29/Example7_29.sce
new file mode 100755
index 000000000..3ec0c5259
--- /dev/null
+++ b/1994/CH7/EX7.29/Example7_29.sce
@@ -0,0 +1,15 @@
+//Chapter-7,Example7_29,pg 7-88
+Im=90
+Ic=40
+delta=28*(%pi/180)//in radians
+Is=5
+Ns=400
+Np=1
+n=Ns/Np
+Kn=n
+R=n+((Im*sin(delta)+Ic*cos(delta))/Is)
+Ip=R*Is//actual primary current
+err=(Kn-R)/R
+err=err*100
+printf("percentage ratio error\n")
+printf("err=%.2f ",err)