1 files changed, 18 insertions, 0 deletions
diff --git a/1094/CH2/EX2.2.1/EX2_2_1.sce b/1094/CH2/EX2.2.1/EX2_2_1.sce
new file mode 100644
index 000000000..c61a9990d
--- /dev/null
+++ b/1094/CH2/EX2.2.1/EX2_2_1.sce
@@ -0,0 +1,18 @@
+//Exa:2.2.1
+clc;
+clear;
+close;
+I_L=10//line current (in amp)
+V_s=20*10^3//supply voltage(in volts)
+pf=0.8//lagging
+theta=acosd(pf)
+V_LN=V_s/sqrt(3)
+disp(V_LN*10^-3,'(a)line to neutral voltage(in kv)=')
+V_L=V_LN
+disp(V_L*10^-3,'(b)output line to line voltage(in kv)=')
+kVA=sqrt(3)*V_s*10^-3*I_L
+disp(kVA,'(c)kVA=')
+kW=kVA*pf
+disp(kW,'kW=')
+kVAR=kVA*sind(theta)
+disp(kVAR,'kVAR=')