From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3871/CH7/EX7.25/Ex7_25.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 3871/CH7/EX7.25/Ex7_25.sce

(limited to '3871/CH7/EX7.25')

diff --git a/3871/CH7/EX7.25/Ex7_25.sce b/3871/CH7/EX7.25/Ex7_25.sce
new file mode 100644
index 000000000..9f1a39531
--- /dev/null
+++ b/3871/CH7/EX7.25/Ex7_25.sce
@@ -0,0 +1,25 @@
+//===========================================================================
+//chapter 7 example 25
+clc;
+clear all;
+
+//variable declaration
+VL	= 415;		//voltage in V
+IL	= 20;		//current in A
+pf	= 0.8;		//phase angle
+
+//calculations
+phi	=acos(pf)		//phase angle in °
+phi1    = (phi*180)/%pi
+x   = cos((30-phi1)*%pi/180)
+W1	= VL*IL*x		//wattmeter reading in W
+W2	= VL*IL*cos((30+phi1)*%pi/180)	//wattmeter reading in W
+//total KVAR = sqrt(3))*(W1-W2)
+// W	= totalKVAR/sqrt(3)
+//W	= (sqrt(3))*(W1-W2))/sqrt(3);		//wattmeter reading
+W	= W1-W2				//wattmeter reading
+
+//result
+mprintf("reading on wattmeter 1 = %3.2d  W",W1);
+mprintf("\nreading on wattmeter 2 = %3.2d  W",W2);
+mprintf("\nreading on wattmeter = %3.2f W",W);
-- 
cgit