1 files changed, 26 insertions, 0 deletions
diff --git a/3872/CH2/EX2.2/EX2_2.sce b/3872/CH2/EX2.2/EX2_2.sce
new file mode 100644
index 000000000..7a01ddca2
--- /dev/null
+++ b/3872/CH2/EX2.2/EX2_2.sce
@@ -0,0 +1,26 @@
+//Book - Power System: Analysis & Design 5th Edition
+//Authors - J. Duncan Glover, Mulukutla S. Sarma, and Thomas J. Overbye
+//Chapter - 2 ; Example 2.2
+//Scilab Version - 6.0.0 ; OS - Windows
+
+
+clc;
+clear;
+V=100*exp(%i*130*%pi/180);                          //Source Voltage in Volts
+I=10*exp(%i*10*%pi/180);                            //Source current in Amperes
+S=V*conj(I);                                        //Apparent power in VA
+P=real(S);                                          //Real power in Watts
+Q=imag(S);                                          //Reactive power in VAR
+printf('The values are P=%d Watts and Q=%d VAR. Hence,',P,Q);
+if P<0 then
+    P=-P
+    printf('\nThe source absorbs %d Watts',P);
+else 
+    printf('\nThe source delivers %d Watts',P);
+end
+if Q<0 then
+    Q=-Q;
+    printf('\nThe source absorbs %d VAR',Q);
+else
+    printf('\nThe source delivers %d VAR',Q);
+end