1 files changed, 12 insertions, 0 deletions
diff --git a/620/CH26/EX26.6/example26_6.sce b/620/CH26/EX26.6/example26_6.sce
new file mode 100644
index 000000000..c7e0ba859
--- /dev/null
+++ b/620/CH26/EX26.6/example26_6.sce
@@ -0,0 +1,12 @@
+r=300;
+x_l=400;
+i=2.6;
+disp("Part a");
+p=i^2*r;
+disp("the true power (in W) is"); disp(p);
+disp("Part b");
+q=i^2*x_l;
+disp("the inductive reactive power (in VAr) is"); disp(q);
+disp("Part c");
+s=sqrt(p^2+q^2);
+disp("the apparent power (in kVA) is"); disp(s*10^(-3));