1 files changed, 22 insertions, 0 deletions
diff --git a/620/CH26/EX26.9/example26_9.sce b/620/CH26/EX26.9/example26_9.sce
new file mode 100644
index 000000000..a469c4cc8
--- /dev/null
+++ b/620/CH26/EX26.9/example26_9.sce
@@ -0,0 +1,22 @@
+c=12*10^(-6);
+v=240;
+f=60;
+l=0.25;
+r=75;
+disp("Part a");
+x_l=2*%pi*f*l;
+z=sqrt(r^2+x_l^2);
+i=v/z;
+p=i^2*r;
+disp("the true power (in W)is"); disp(p);
+disp("Part b");
+x_c=1/(2*%pi*f*c);
+q_c=v^2/x_c;
+q_l=i^2*x_l;
+q=q_l-q_c;
+disp("the reactive power (in VAr) is");disp(q);
+disp("Part c");
+s=sqrt(p^2+q^2);
+disp("the apparent power (in VA) is"); disp(s);
+i1=s/v;
+disp("the total line current (in A) is"); disp(i1);
+\ No newline at end of file