1 files changed, 27 insertions, 0 deletions
diff --git a/1118/CH26/EX26.8/eg26_8.sce b/1118/CH26/EX26.8/eg26_8.sce
new file mode 100755
index 000000000..4e7849668
--- /dev/null
+++ b/1118/CH26/EX26.8/eg26_8.sce
@@ -0,0 +1,27 @@
+clear;
+//clc();
+vl=400;
+il=36;
+pf=0.8;
+
+p1=sqrt(3)*vl*il*pf;
+op=15*746;
+eff=0.85;
+p2=op/eff;
+
+//as per ques 26.7
+p1=19.953;
+p2=12.979;
+q1=acosd(0.8);
+q2=acosd(0.92);
+qm=((p1*tand(q1)) - (p1+p2)*tand(q2))/p2;
+pf=cosd(atand(qm));
+printf("The power factor is:%.4f leading\n",pf);
+
+
+lkvar=p2*(qm);
+printf("The kVAr is:%.3f kVAr\n",lkvar);
+
+
+kva=sqrt(p2*p2 + lkvar*lkvar);
+printf("The kVA is:%.0f kVA\n",kva);