diff options
Diffstat (limited to '1445/CH3/EX3.8/Ex3_8.sce')
| -rw-r--r-- | 1445/CH3/EX3.8/Ex3_8.sce | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/1445/CH3/EX3.8/Ex3_8.sce b/1445/CH3/EX3.8/Ex3_8.sce index bfc910b2f..450ea5b3e 100644 --- a/1445/CH3/EX3.8/Ex3_8.sce +++ b/1445/CH3/EX3.8/Ex3_8.sce @@ -1,6 +1,7 @@ //CHAPTER 3- THREE-PHASE A.C. CIRCUITS //Example 8 +clc; disp("CHAPTER 3"); disp("EXAMPLE 8"); @@ -15,20 +16,20 @@ phi=atan(imag(z)/real(z)); //atan() gives output in radians I_ph=v_ph/z_mag; I_l=sqrt(3)*I_ph; -disp(sprintf("The line current is %.2f A",I_l)); +disp(sprintf("The line current is %f A",I_l)); pow_fact=cos(phi); -disp(sprintf("The power factor is %.2f",pow_fact)); +disp(sprintf("The power factor is %f",pow_fact)); p=sqrt(3)*v_ph*I_l*pow_fact; //phase volt=line volt in delta connection(v_l=v_ph) -disp(sprintf("The power is %.2f W",p)); +disp(sprintf("The power is %f W",p)); var=sqrt(3)*v_ph*I_l*sin(phi); var=var/1000; //from VAR to kVAR -disp(sprintf("The reactive power is %.2f kVAR",var)); +disp(sprintf("The reactive power is %f kVAR",var)); va=sqrt(3)*v_ph*I_l; va=va/1000; //from VA to kVA -disp(sprintf("The total volt amperes is %.2f kVA",va)); +disp(sprintf("The total volt amperes is %f kVA",va)); //END |