1 files changed, 9 insertions, 0 deletions
diff --git a/1376/CH16/EX16.13/16_13.sci b/1376/CH16/EX16.13/16_13.sci
new file mode 100755
index 000000000..1b3d74abe
--- /dev/null
+++ b/1376/CH16/EX16.13/16_13.sci
@@ -0,0 +1,9 @@
+//16.13
+clc;
+W1=10;
+W2=-1.2;
+P_absorbed=W1+W2;
+printf("\nPower=%.2f kW",P_absorbed)
+phi=atand((3^0.5)*(W1-W2)/(W1+W2));
+pf=cosd(phi);
+printf("\nPower Factor=%.2f ",pf)
+\ No newline at end of file