diff options
Diffstat (limited to '1445/CH7/EX7.6/ch7_ex_6.sce')
| -rw-r--r-- | 1445/CH7/EX7.6/ch7_ex_6.sce | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/1445/CH7/EX7.6/ch7_ex_6.sce b/1445/CH7/EX7.6/ch7_ex_6.sce new file mode 100644 index 000000000..c6d3cb9af --- /dev/null +++ b/1445/CH7/EX7.6/ch7_ex_6.sce @@ -0,0 +1,34 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 6 + +disp("CHAPTER 7"); +disp("EXAMPLE 6"); + +//VARIABLE INITIALIZATION +v1=2200; //primary voltage in Volts +v2=220; //secondary voltage in Volts +I=0.6; //exciting current in Amperes +p_c=361; //core loss in Watts +I2=60; //load current in Amperes +pf=0.8; //power factor + +//SOLUTION + +//solution (a) +I1=p_c/v1; //vertical component of I0 +I_phi=sqrt((I^2)-(I1^2)); //horizontal component of I0 +disp(sprintf("(a) The core loss component is %f A",I1)); +disp(sprintf("And the magnetising component is %f A",I_phi)); + +//solution (b) +I1_dash=(v2/v1)*I2; +theta=acos(pf); +I1_x=I1_dash*sin(theta)+I_phi; //horizontal component of I0 +I1_y=I1_dash*pf+I1; //vertical component of I0 +I1_res=sqrt((I1_x^2)+(I1_y^2)); //primary current +pf_p=I1_y/I1_res; //primary power factor +disp(sprintf("(b) The primary current is %f A",I1_res)); +disp(sprintf("And the power factor is %f A",pf_p)); + +//END + |