summaryrefslogtreecommitdiff
path: root/1445/CH3/EX3.1/Ex3_1.sce
diff options
context:
space:
mode:
Diffstat (limited to '1445/CH3/EX3.1/Ex3_1.sce')
-rw-r--r--1445/CH3/EX3.1/Ex3_1.sce15
1 files changed, 8 insertions, 7 deletions
diff --git a/1445/CH3/EX3.1/Ex3_1.sce b/1445/CH3/EX3.1/Ex3_1.sce
index f9883c955..697de879a 100644
--- a/1445/CH3/EX3.1/Ex3_1.sce
+++ b/1445/CH3/EX3.1/Ex3_1.sce
@@ -1,6 +1,7 @@
//CHAPTER 3- THREE-PHASE A.C. CIRCUITS
//Example 1
+clc;
disp("CHAPTER 3");
disp("EXAMPLE 1");
@@ -13,29 +14,29 @@ xc=10; //capacitive reactance in Ohms
//solution (i)
v_ph=v_l/sqrt(3); //phase voltage=(line voltage)/sqrt(3) for star connection
-disp(sprintf("(i) The phase voltage is %.2f V",v_ph));
+disp(sprintf("(i) The phase voltage is %f V",v_ph));
//solution (ii)
z_ph=sqrt((r^2)+(xc^2));
I_l=v_ph/z_ph; //phase current = line current for star connection
-disp(sprintf("(ii) The line current is %.2f A",I_l));
+disp(sprintf("(ii) The line current is %f A",I_l));
//solution (iii)
-disp(sprintf("(iii) The phase current is %.2f A",I_l));
+disp(sprintf("(iii) The phase current is %f A",I_l));
//solution (iv)
pow_fact=r/z_ph;
-disp(sprintf("(iv) The power factor of the circuit is %.2f (leading)",pow_fact));
+disp(sprintf("(iv) The power factor of the circuit is %f (leading)",pow_fact));
//solution (v)
p=sqrt(3)*v_l*I_l*pow_fact;
-disp(sprintf("(v) The total power absorbed is %.0f W",p));
+disp(sprintf("(v) The total power absorbed is %f W",p));
//solution (vi)
va=sqrt(3)*v_l*I_l;
-disp(sprintf("(vi) The apparent power is %.0f VA",va));
+disp(sprintf("(vi) The apparent power is %f VA",va));
var=sqrt((va^2)-(p^2));
-disp(sprintf("The reactive power is %.0f VAR",var));
+disp(sprintf("The reactive power is %f VAR",var));
//Answers (v) and (vi) are different due to precision of floating point numbers