1 files changed, 14 insertions, 0 deletions
diff --git a/1118/CH26/EX26.7/eg26_7.sce b/1118/CH26/EX26.7/eg26_7.sce
new file mode 100755
index 000000000..4ec9842cb
--- /dev/null
+++ b/1118/CH26/EX26.7/eg26_7.sce
@@ -0,0 +1,14 @@
+clear;
+//clc();
+p1=500;
+p2=100;
+q1=acosd(.707);
+q2=acosd(0.95);
+lkvar=(p1*tand(q1) - (p1+p2)*tand(q2));
+printf("The kVAr is:%.2f kVAr\n",lkvar);
+
+kva=sqrt(p2*p2 + lkvar*lkvar);
+printf("The kVA is:%.2f kVA\n",kva);
+
+pf=(p2/kva);
+printf("The power factor is:%.3f leading\n",pf);