1 files changed, 36 insertions, 0 deletions
diff --git a/620/CH26/EX26.14/example26_14.sce b/620/CH26/EX26.14/example26_14.sce
new file mode 100644
index 000000000..1f046eded
--- /dev/null
+++ b/620/CH26/EX26.14/example26_14.sce
@@ -0,0 +1,36 @@
+p=15;
+rl=200;
+rb=80;
+l=0.9;
+v=120;
+f=60;
+disp("Part a");
+r=rb+rl;
+x_l=2*%pi*f*l;
+z=sqrt(x_l^2+r^2);
+i=v/z;
+disp("current drawn (in A) by the lamp is"); disp(i);
+disp("Part b");
+s=v*i;
+disp("apparent power (in VA) is"); disp(s);
+disp("Part c");
+pl=i^2*rl;
+disp("power (in W) in the fluorescent lamp is"); disp(pl);
+disp("Part d");
+pb=i^2*rb;
+disp("power (in W) in the ballast is");disp(pb);
+disp("Part e");
+pf=p/s;
+disp("overall power factor is"); disp(pf);
+disp("Part f");
+deg=acos(pf);
+q=v*i*sin(deg);
+disp("the reactive power (in VAr) is"); disp(q);
+disp("Part g");
+x_c=v^2/q;
+c=1/(2*%pi*f*x_c);
+disp("the size of the capacitor (in μF) is"); disp(c*10^6);
+disp("Part h");
+p1=pl+pb;
+i1=p1/v;
+disp("current drawn (in A) after power factor correction is"); disp(i1);
+\ No newline at end of file