summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.11/Ex2_11.sce
diff options
context:
space:
mode:
Diffstat (limited to '1445/CH2/EX2.11/Ex2_11.sce')
-rw-r--r--1445/CH2/EX2.11/Ex2_11.sce31
1 files changed, 10 insertions, 21 deletions
diff --git a/1445/CH2/EX2.11/Ex2_11.sce b/1445/CH2/EX2.11/Ex2_11.sce
index ba0618572..2ac6e7fd2 100644
--- a/1445/CH2/EX2.11/Ex2_11.sce
+++ b/1445/CH2/EX2.11/Ex2_11.sce
@@ -1,6 +1,7 @@
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 11
+clc;
disp("CHAPTER 2");
disp("EXAMPLE 11");
@@ -8,29 +9,17 @@ disp("EXAMPLE 11");
vdc=100; //DC voltage in Volts
vac=100; //AC voltage in Volts
f=50; //in Hertz
-Idc=10; //dc current in Amperes
-Iac=5; //ac current in Amperes
-
-// coil means a unit of resistence and inductance both
-//Impedence Z=R+jXl
-//when DC supply is connected to coil, it behaves like a short circuit
-//Xl=2.pi.f.L
-//since f=0 in DC, Xl=0 ohms
-//Therefore, R=Vdc/I
-
-//Equation to be used
-//Z^2=R^2+Xl^2
+I1=10; //in Amperes
+I2=5; //in Amperes
//SOLUTION
-r=vdc/Idc; //resistance of the coil in dc circuit
-z=vac/Iac; //impedance of the coil in Ac supply
-xl=sqrt((z^2)-(r^2)); // inductive reactance of coil
-L=xl/(2*%pi*f); //inductance of the coil
-pf=r/z; // power factor pf=R/Z
-//
-disp(sprintf("The inductive reactance of the coil is %5.2f Ohm",xl));
-disp(sprintf("The inductance of the coil is %4.2f H",L));//text book answer is 0.05 H
-disp(sprintf("The power factor of the coil is %3.1f (lagging)",pf));
+r=vdc/I1;
+z=vac/I2;
+xl=sqrt((z^2)-(r^2));
+L=xl/(2*%pi*f);
+pf=r/z;
+disp(sprintf("The inductance of the coil is %f H",L));
+disp(sprintf("The power factor of the coil is %f (lagging)",pf));
//END