1 files changed, 15 insertions, 0 deletions
diff --git a/1094/CH2/EX2.2.2/EX2_2_2.sce b/1094/CH2/EX2.2.2/EX2_2_2.sce
new file mode 100644
index 000000000..09ca5c3ec
--- /dev/null
+++ b/1094/CH2/EX2.2.2/EX2_2_2.sce
@@ -0,0 +1,15 @@
+//Exa:2.2.2
+clc;
+clear;
+close;
+Z_ph=8+%i*6//impedance per phase (in ohms)
+V_AN=400//in volts
+I_ph=V_AN/Z_ph
+disp(abs(I_ph),'Phase current (in A)=')
+disp(atand(imag(I_ph)/real(I_ph)),'phase=')
+I_L=sqrt(3)*abs(I_ph)
+disp(I_L,'Line current (in A)=')
+pf=cosd(atand(imag(I_ph)/real(I_ph)))
+disp(pf,'power factor=')
+P=sqrt(3)*V_AN*I_L*pf*10^-3
+disp(P,'Power absorbed (in KW)=')
+\ No newline at end of file