1 files changed, 23 insertions, 0 deletions
diff --git a/2384/CH5/EX5.3/ex5_3.sce b/2384/CH5/EX5.3/ex5_3.sce
new file mode 100755
index 000000000..9c9133673
--- /dev/null
+++ b/2384/CH5/EX5.3/ex5_3.sce
@@ -0,0 +1,23 @@
+// Exa 5.3
+clc;
+clear;
+close;
+format('v',7)
+// Given data
+P = 1.5;// in kW
+P = P * 10^3;// in W
+pf = 0.2;// in lag
+phi= acosd(pf);
+V_L = 400;// in V
+f = 50;// in Hz
+V_Ph = V_L/sqrt(3);// in V
+//P = sqrt(3)*V_L*I_L*cos(phi);
+I_L = P/(sqrt(3)*V_L*cosd(phi));// in A
+I_Ph = I_L;// in A
+Z_Ph = V_Ph/I_Ph;// in ohm
+R_Ph = Z_Ph*cosd(phi);// in ohm
+disp(R_Ph,"The Resistance in Ω is");
+X_Ph = sqrt( (Z_Ph^2) - (R_Ph^2) );// in  ohm
+L_Ph = X_Ph/(2*%pi*f);// in H
+disp(L_Ph,"The inductance in H is");
+