1 files changed, 18 insertions, 0 deletions
diff --git a/671/CH8/EX8.18/8_18.sce b/671/CH8/EX8.18/8_18.sce
new file mode 100755
index 000000000..5e8e27aba
--- /dev/null
+++ b/671/CH8/EX8.18/8_18.sce
@@ -0,0 +1,18 @@
+f=50
+N1=500
+
+Pin=60
+Io=0.4
+Vin=220
+r=0.8
+
+Pci=Io*Io*r
+Pi=Pin-Pci
+disp(Pi)
+theta=acos(Pin/Vin/Io)
+Im=Io*sin(theta)
+Xm=Vin/Im
+disp(Xm)
+Iio=Io*cos(theta)
+Ri=Vin/Iio
+disp(Ri)