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/CH6/EX6.24/Ex6_24.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 3871/CH6/EX6.24/Ex6_24.sce

(limited to '3871/CH6/EX6.24')

diff --git a/3871/CH6/EX6.24/Ex6_24.sce b/3871/CH6/EX6.24/Ex6_24.sce
new file mode 100644
index 000000000..a02c192fd
--- /dev/null
+++ b/3871/CH6/EX6.24/Ex6_24.sce
@@ -0,0 +1,26 @@
+//===========================================================================
+//chapter 6 example 24
+clc;
+clear all;
+
+//variable declaration
+KT	= 201;		//turn ration
+Is	= 5;		//secondary current in A
+Im	= 7;		//magnetising component of exciting current in A
+Ie	= 3;		//cross-loss component of exciting current in A
+delta	=0;
+
+//calculations
+Kn      = 1000/5;      //nominal ratio
+alpha	=atan(Ie/Im);	//angle in ° 
+alpha1  = (alpha*180)/%pi;      
+theta	= delta-(((acos(0.8))*180)/%pi);       //from figure taken the value of gamma
+z   = cos((theta*%pi)/180);
+z1  = sin(((theta)*%pi)/180);
+Kc	= KT+(((Ie*z)+(Im*z1))/Is);      //actual current in A
+e	= ((Kn-Kc)/Kc)*100;//ratio error
+b	=(180/%pi)*(((Im*z)-(Ie*z1))/(KT*Is));
+
+//result
+mprintf("ratio error = %3.3f percentage",e);
+mprintf("\nphase angle error = %3.3f °",b);
-- 
cgit