1 files changed, 13 insertions, 0 deletions
diff --git a/3673/CH9/EX9.a.8/Example_a_9_8.sce b/3673/CH9/EX9.a.8/Example_a_9_8.sce
new file mode 100644
index 000000000..67788d014
--- /dev/null
+++ b/3673/CH9/EX9.a.8/Example_a_9_8.sce
@@ -0,0 +1,13 @@
+//Example_a_9_8 page no:408
+clc;
+Iph=10;
+Vl=440;
+pi=30;
+Il=sqrt(3)*Iph;
+Pac=sqrt(3)*Vl*Il*cosd(pi);
+Pac=Pac/1000;//converting to killo Watt
+Prc=sqrt(3)*Vl*Il*sind(pi);
+Prc=Prc/1000;//converting to killo VAR
+disp(Il,"the line current is (in A)");
+disp(Pac,"the total active power is (in KW)");
+disp(Prc,"the total reactive power is (in KVAR)");