diff options
Diffstat (limited to '3871/CH6/EX6.19/Ex6_19.sce')
| -rw-r--r-- | 3871/CH6/EX6.19/Ex6_19.sce | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/3871/CH6/EX6.19/Ex6_19.sce b/3871/CH6/EX6.19/Ex6_19.sce new file mode 100644 index 000000000..f63da90ef --- /dev/null +++ b/3871/CH6/EX6.19/Ex6_19.sce @@ -0,0 +1,34 @@ +//===========================================================================
+//chapter 6 example 19
+clc;
+clear all;
+
+//variable declraration
+Ts = 200; //number of turns in secondary winding
+Tp = 1; //number of turns in primary winding
+Is = 5; //current in A
+Zs = (1.2+0.2)+(%i*(0.5+0.3)); //secondary impedance Ω
+MMF = 100;
+Pi = 1.2; //iron loss in watts
+Ie = 50; //energy component of eddy current in A
+
+
+
+//calculations
+KT =Ts/Tp //turn ratio
+//Es = Is*Zs //secondary voltage in volts
+Im =MMF/Tp //magnetising current in A
+I0 = Im+%i*Ie //exciting current on primary side in A
+I01 =sqrt(((real(I0))^2)+((imag(I0))^2))
+alpha = atan(Ie/Im)
+alpha1 = (alpha*180)/%pi
+
+theta = atan(imag(Zs)/real(Zs))
+theta1 = (theta*180)/%pi
+Ip = (KT*Is)+(I01*sin(theta+alpha)) //primary current in A
+e = ((-I01*sin(((theta1+alpha1)*%pi)/180))/Ip)*100 //ratio error
+N = (I01*sin(((theta1+alpha1)*%pi)/180))/Is //number of secondary turns to be reduced
+
+//result
+mprintf("ratio error = %3.1f percentage",e);
+mprintf("\nnumber of secondary turns to be reduced = %3.0f ",N);
|