1 files changed, 35 insertions, 0 deletions
diff --git a/1319/CH3/EX3.8/3_8.sce b/1319/CH3/EX3.8/3_8.sce
new file mode 100644
index 000000000..90cf4aec1
--- /dev/null
+++ b/1319/CH3/EX3.8/3_8.sce
@@ -0,0 +1,35 @@
+//To measure power by two wattmeter method
+
+clc;
+clear;
+
+pf=0.85 // Power Factor
+
+Po=37.3*(10^3); // Power Output
+
+eff=90/100; // Efficiency
+
+V=500; // Rated Voltage
+
+Pi=Po/eff; // Power Input
+
+phi=acosd(pf); // Power Factor angle
+
+printf('W1 + W2 = %g kW \n',Pi/1000)
+printf('tan(phi) = square root (3)*(W2-W1)/(W2+W1) = %g \n',tand(phi))
+
+x=Pi; // Let x = W1+W2
+
+y= tand(phi)*x/(sqrt(3)); // Let y = W2-W1
+
+printf('W1 + W2 = %g kW \n',x/1000)
+printf('W2 - W1 = %g kW \n',y/1000)
+printf('W2 = %g kW \n',(x+y)/(2*1000))
+printf('W1 = %g kW \n',(x-y)/(2*1000))
+
+
+
+
+
+
+