1 files changed, 46 insertions, 0 deletions
diff --git a/1319/CH5/EX5.8/5_8.sce b/1319/CH5/EX5.8/5_8.sce
new file mode 100644
index 000000000..40f7123df
--- /dev/null
+++ b/1319/CH5/EX5.8/5_8.sce
@@ -0,0 +1,46 @@
+// To calculate terminal voltage and current and efficiency
+
+clc;
+clear;
+
+n=10; // Transformation ratio
+
+E1=200;
+
+R0=400;
+X0=251*%i;
+
+R1=0.16;
+X1=0.7*%i;
+
+R2=5.96; // As referred to the primary side
+X2=4.44*%i; // As referred to the primary side
+
+I1=E1/(R1+R2+X1+X2);
+
+t1=atand(imag(I1)/real(I1));// Angle for primary current
+
+Iw=E1/R0;
+Im=E1/X0;
+
+Ip=Iw+Im+I1;
+
+Zl=R2+X2;
+
+V2p=I1*Zl;// Secondary terminal voltage referred to primary side
+
+V2=n*V2p;
+
+t2=atand(imag(V2)/real(V2)); // Angle for V2
+
+Po= (abs(I1)^2)*R2; // Output power
+
+Pc=(abs(I1)^2)*R1;// Copper Loss
+
+Pil=(abs(Iw)^2)*R0;// Iron Loss
+
+eff= Po*100/(Po+Pc+Pil)// Efficiency
+
+printf('a) The secondary terminal voltage = %f /_%f V \n',abs(V2),t2)
+printf('b) The primary current = %f /_%f A \n',abs(I1),t1)
+printf('c) The efficiency is %f percent \n',eff)