diff options
Diffstat (limited to '1964/CH5/EX5.47/ex5_47.sce')
| -rwxr-xr-x | 1964/CH5/EX5.47/ex5_47.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/1964/CH5/EX5.47/ex5_47.sce b/1964/CH5/EX5.47/ex5_47.sce new file mode 100755 index 000000000..79496eecc --- /dev/null +++ b/1964/CH5/EX5.47/ex5_47.sce @@ -0,0 +1,13 @@ +//Chapter-5, Example 5.47, Page 210
+//=============================================================================
+clc
+clear
+//INPUT DATA
+P1=6*10^3;//power in Kw
+P2=-1*10^3;//power in Kw
+//CALCULATIONS
+P=P1+P2;//total power in Kw
+a=atan(sqrt(3)*((P2-P1)/(P2+P1)));
+pf=cos(a);//power factor
+mprintf("Thus power and power factor are %d W and %1.2f respectively",P,pf);
+//=================================END OF PROGRAM======================================================================================================
|