diff options
Diffstat (limited to '3871/CH6/EX6.23/Ex6_23.sce')
| -rw-r--r-- | 3871/CH6/EX6.23/Ex6_23.sce | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/3871/CH6/EX6.23/Ex6_23.sce b/3871/CH6/EX6.23/Ex6_23.sce new file mode 100644 index 000000000..e562b68d5 --- /dev/null +++ b/3871/CH6/EX6.23/Ex6_23.sce @@ -0,0 +1,31 @@ +//===========================================================================
+//chapter 6 example 23
+
+clc;
+clear all;
+
+//variable declaration
+KT = 8; //turn ratio
+Ie = 0; //current in A
+I0 = 0.08;
+R1 = 1.5; //resistance in Ω
+R2 = 0.4; //resistance in Ω
+L1 =60*10^-3; //inductance in H
+L2 =0.7*10^-3; //inductance in H
+f = 50; //frequency in Hz
+phi = 0; //angle in °
+
+//calculations
+Im = 0.01*KT; //Im = 1% of primary current = 0.01*Ip = 0.01*KT*Is
+alpha =atan(Ie/Im); //phase angle in radians
+R = R1+R2; //resistance of burden Ω
+L = L1+L2; //inductance in H
+theta = (atan((2*%pi*f*L)/R)*%pi/180); //phase angle in °
+KC = KT+((I0*sin(theta+alpha))/Is);
+KC = KT+((0.08*Is*sin(theta+alpha))/Is);
+KC = KT+(0.08*sin(theta+alpha)); //actual current ratio
+b = (I0*cos(theta+phi))/(KT*Is);
+
+//result
+mprintf("actual current ratio = %3.1f ",KC);
+mprintf("\nphase angle error = %3.2d ",b);
|