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

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

diff --git a/3871/CH7/EX7.21/Ex7_21.sce b/3871/CH7/EX7.21/Ex7_21.sce
new file mode 100644
index 000000000..121a5b0e3
--- /dev/null
+++ b/3871/CH7/EX7.21/Ex7_21.sce
@@ -0,0 +1,27 @@
+//===========================================================================
+//chapter 7 example 21
+
+clc;
+clear all;
+
+//variable declaration
+R	= 10;	//resistance in Ω
+XL	= 10;	//reactance  in Ω
+VL	= 440;	//load voltage in V
+
+//calculations
+Z	= sqrt((R^2)+(XL^2));		//impedance of each choking coil in Ω
+VP	= VL/sqrt(3);		//phase voltage in V
+IP	= VP/Z;		//phase current in A
+IL	= IP;		//line current in A
+phi 	= atan(XL/R);	//phase angle in  °
+phi1       = phi*180/%pi;
+
+W1	= VL*IL*cos((30*%pi/180)-(phi1*%pi/180));		//wattmeter reading in W
+W2	= VL*IL*cos((30*%pi/180)+(phi1*%pi/180));		//wattmeter reading in W
+
+//result
+mprintf("line current = %3.2f A",IL);
+mprintf("\nwattmeter reading = %3.2f W",W1);
+mprintf("\nwattmeter reading = %3.2f W",W2);
+
-- 
cgit