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.20/Ex7_20.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 3871/CH7/EX7.20/Ex7_20.sce

(limited to '3871/CH7/EX7.20/Ex7_20.sce')

diff --git a/3871/CH7/EX7.20/Ex7_20.sce b/3871/CH7/EX7.20/Ex7_20.sce
new file mode 100644
index 000000000..80a8cbd43
--- /dev/null
+++ b/3871/CH7/EX7.20/Ex7_20.sce
@@ -0,0 +1,25 @@
+//===========================================================================
+//chapter 7 example 20
+
+clc;
+clear all;
+
+//variable declaration
+IPR	= 8;	//current in line R in A
+IPY	= 10;	//current in line Y in A
+IPB	= 6;	//current in line B in A
+VP	=120;	//voltage in V
+pf	= 1;	//power factor
+
+//calculations
+W1	= VP*IPR*pf;	//wattage shown by wattmeter having current coil in line R in watts
+W2	= VP*IPY*pf;	//wattage shown by wattmeter having current coil in line Y in watts
+W3	= VP*IPB*pf;	//wattage shown by wattmeter having current coil in line B in watts
+p	= W1+W2+W3;	//power taken by lighting load in watts
+
+//result
+mprintf("wattage shown by wattmeter having current coil in line R = %3.2f watts",W1);
+mprintf("\nwattage shown by wattmeter having current coil in line Y = %3.2f watts",W2);
+mprintf("\nwattage shown by wattmeter having current coil in line B = %3.2f watts",W3);
+mprintf("\npower taken by lighting load = %3.2f watts",p);
+
-- 
cgit