diff options
Diffstat (limited to '3871/CH7/EX7.16/Ex7_16.sce')
| -rw-r--r-- | 3871/CH7/EX7.16/Ex7_16.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/3871/CH7/EX7.16/Ex7_16.sce b/3871/CH7/EX7.16/Ex7_16.sce new file mode 100644 index 000000000..750409d15 --- /dev/null +++ b/3871/CH7/EX7.16/Ex7_16.sce @@ -0,0 +1,18 @@ +//===========================================================================
+//chapter 7 example 16
+
+clc;clear all;
+
+//variable declaration
+W1 = 20; //wattmeter reading in kW
+W2 = -5; //wattmeter reading in kW
+
+//calculations
+P = W1+W2; //input power in kW
+phi = atan(((W1-W2)/(W1+W2))*sqrt(3)); //phase angle in °
+pf =cos(phi); //power factor lagging
+
+//result
+mprintf("input power = %3.2f kW",P);
+mprintf("\npower factor = %3.4f lagging",pf);
+
|