diff options
Diffstat (limited to '1445/CH3/EX3.2/Ex3_2.sce')
| -rw-r--r-- | 1445/CH3/EX3.2/Ex3_2.sce | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/1445/CH3/EX3.2/Ex3_2.sce b/1445/CH3/EX3.2/Ex3_2.sce index c5a2d35e0..c3ef9143f 100644 --- a/1445/CH3/EX3.2/Ex3_2.sce +++ b/1445/CH3/EX3.2/Ex3_2.sce @@ -1,6 +1,7 @@ //CHAPTER 3- THREE-PHASE A.C. CIRCUITS //Example 2 +clc; disp("CHAPTER 3"); disp("EXAMPLE 2"); @@ -14,9 +15,9 @@ v_ph=v_l/sqrt(3); //phase voltage = (line voltage)/sqrt(3) z_ph=v_ph/I_l; //phase current = line current for star connection pow_fact=p/(sqrt(3)*v_l*I_l); //three-phase power = sqrt(3)*v_l*I_l*pow_fact r_ph=z_ph*pow_fact; //from impedance tringle -disp(sprintf("The resisatnce of each impedance is %.2f Ω",r_ph)); +disp(sprintf("The resisatnce of each impedance is %f Ω",r_ph)); x_ph=sqrt((z_ph^2)-(r_ph^2)); -disp(sprintf("The ractance of each impedance is %.2f Ω",x_ph)); +disp(sprintf("The ractance of each impedance is %f Ω",x_ph)); //END |