1 files changed, 22 insertions, 0 deletions
diff --git a/3836/CH16/EX16.2/Ex16_2.sce b/3836/CH16/EX16.2/Ex16_2.sce
new file mode 100644
index 000000000..d0bd68319
--- /dev/null
+++ b/3836/CH16/EX16.2/Ex16_2.sce
@@ -0,0 +1,22 @@
+clear
+//
+
+//Initialisation
+pf=0.75                          //power factor
+S=2000                           //apparent power in VA
+V=240                             //Voltage in volts
+
+//Calculation 
+apf=S*pf                          //active power
+sin1=sqrt(1-(pf**2)) 
+Q=S*sin1                         //Reactive Power
+I=S*V**-1                          //Current
+//Result
+printf("\n  Apparent Power, P = %d W",S)
+
+printf("\n  Active Power, P = %d W",apf)
+
+printf("\n  Reactive Power, Q = %d var",Q)
+
+printf("\n  Current I = %.2f A",I)
+