1 files changed, 16 insertions, 0 deletions
diff --git a/Working_Examples/215/CH12/EX12.3/ex12_3.sce b/Working_Examples/215/CH12/EX12.3/ex12_3.sce
new file mode 100755
index 0000000..2f4a0a3
--- /dev/null
+++ b/Working_Examples/215/CH12/EX12.3/ex12_3.sce
@@ -0,0 +1,16 @@
+clc
+//Example 12.3
+//Calculate the line current and phase impedance
+disp('Given')
+disp('Line voltage = 300V, Power factor=0.8(lead), Phase power = 1200W')
+Vline=300;pf=0.8;PW=1200;
+Vp=Vline/sqrt(3)
+PerPhpower=PW/3;
+//Line current can be found as
+IL=PerPhpower/(pf*Vp)
+printf("Line current= %3.2f A \n",IL)
+//Let Zp be the phase impedance
+Zpmag=Vp/IL
+//Sice power factor is 'leading'
+Zpang=-(acos(0.8)*180)/%pi
+printf("Phase impedance = %d/_%3.2f deg ohm",Zpmag,Zpang);
+\ No newline at end of file