1 files changed, 15 insertions, 0 deletions
diff --git a/147/CH3/EX3.18/Example3_18.sce b/147/CH3/EX3.18/Example3_18.sce
new file mode 100644
index 000000000..ae7d91ad8
--- /dev/null
+++ b/147/CH3/EX3.18/Example3_18.sce
@@ -0,0 +1,15 @@
+//Phase voltage Vp, Impedance Z
+close();
+clear;
+clc;
+Vp = 120;//V
+Z = 36 + %i*48;//ohm
+//Line Voltage 'Vl'
+Vl = 3^(1/2)*Vp;
+Ip = Vp/polar(Z);
+Il = Ip;
+R = real(Z);
+//Power factor 'Pf'
+Pf = R/polar(Z);
+P = 3^(1/2)*Vl*Il*Pf;
+mprintf('Line voltage Vl = %0.1f V\nLine current Il = %0.0f A\nPower factor = %0.1f lagging \nPower P = %0.0f W',Vl,Il,Pf,P);
+\ No newline at end of file