diff options
Diffstat (limited to '1118/CH26/EX26.9/eg26_9.sce')
| -rwxr-xr-x | 1118/CH26/EX26.9/eg26_9.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/1118/CH26/EX26.9/eg26_9.sce b/1118/CH26/EX26.9/eg26_9.sce new file mode 100755 index 000000000..39ee43ebe --- /dev/null +++ b/1118/CH26/EX26.9/eg26_9.sce @@ -0,0 +1,23 @@ +clear;
+//clc();
+s=15;
+sa=complex(s,0);
+
+s1=40;
+sb1=complex(s1*0.6,s1*0.8);
+sb=conj(sb1);
+
+s2=25;
+sc1=complex(s2*0.8,s2*0.6);
+sc=conj(sc1);
+
+st=sa + sb + sc;
+
+t_kvar=sqrt((real(st)^2) + (imag(st)^2));
+printf("The kVA is:%.2f kVA\n",t_kvar);
+
+pf=real(st)/t_kvar;
+printf("The power factor is:%.4f lagging\n",pf);
+
+cap=-imag(st);
+printf("The capacitance is:%.0f kVAr leading\n",cap);
|