summaryrefslogtreecommitdiff
path: root/3871/CH6/EX6.24/Ex6_24.sce
blob: a02c192fda2b98fd0edbc3513cd6680bb100b1c6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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);