summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.11/ch2_ex_11.sce
diff options
context:
space:
mode:
Diffstat (limited to '1445/CH2/EX2.11/ch2_ex_11.sce')
-rw-r--r--1445/CH2/EX2.11/ch2_ex_11.sce26
1 files changed, 26 insertions, 0 deletions
diff --git a/1445/CH2/EX2.11/ch2_ex_11.sce b/1445/CH2/EX2.11/ch2_ex_11.sce
new file mode 100644
index 000000000..fc8e0b84c
--- /dev/null
+++ b/1445/CH2/EX2.11/ch2_ex_11.sce
@@ -0,0 +1,26 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 11
+
+disp("CHAPTER 2");
+disp("EXAMPLE 11");
+
+//VARIABLE INITIALIZATION
+vdc=100; //DC voltage in Volts
+vac=100; //AC voltage in Volts
+f=50; //in Hertz
+I1=10; //in Amperes
+I2=5; //in Amperes
+
+//SOLUTION
+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
+
+
+