6 files changed, 91 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=')
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
diff --git a/1094/CH2/EX2.2.3/EX2_2_3.sce b/1094/CH2/EX2.2.3/EX2_2_3.sce
new file mode 100644
index 000000000..2b67dcd36
--- /dev/null
+++ b/1094/CH2/EX2.2.3/EX2_2_3.sce
@@ -0,0 +1,16 @@
+//Exa:2.2.3
+clc;
+clear;
+close;
+V_s=400 //3 phase supply voltage (in volts)
+Z_ph=8+%i*6 //impedance per phase(in ohms)
+V_AN=V_s/sqrt(3)
+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=abs(I_ph)
+disp(I_L,'line current(in A)=')
+pf=cosd(atand(imag(I_ph)/real(I_ph)))
+disp(pf,'power factor=')
+kW=sqrt(3)*V_s*I_L*pf*10^-3
+disp(kW,'power(in kW)=')
+\ No newline at end of file
diff --git a/1094/CH2/EX2.3.1/EX2_3_1.sce b/1094/CH2/EX2.3.1/EX2_3_1.sce
new file mode 100644
index 000000000..0c95af852
--- /dev/null
+++ b/1094/CH2/EX2.3.1/EX2_3_1.sce
@@ -0,0 +1,17 @@
+//Exa:2.3.1
+clc;
+clear;
+close;
+V_AB=100*sqrt(3) //phase voltage of AB(in volts)
+V_AN=100*(cosd(-30)+%i*sind(-30)) //line voltage of A(in volts)
+V_BC=100*sqrt(3)*(cosd(-120)+%i*sind(-120)) //phase voltage of BC(in volts)
+V_CN=100*(cosd(90)+%i*sind(90)) //line voltage of C(in volts)
+Z_ph=10+%i*10 //impedence per phase(in ohms)
+I_A=V_AN/Z_ph
+I_C=V_CN/Z_ph
+W_A=V_AB*abs(I_A)*cosd(atand(imag(I_A)/real(I_A)))
+disp(W_A,'W_A(in W)=')
+W_C=abs(V_BC)*abs(I_C)*cosd((atand(imag(I_C)/real(I_C)))-atand(imag(V_BC)/real(V_BC)))
+disp(W_C,'W_B(in W)=')
+P=W_A+W_C
+disp(P,'total power(in W)=')
+\ No newline at end of file
diff --git a/1094/CH2/EX2.3.2/EX2_3_2.sce b/1094/CH2/EX2.3.2/EX2_3_2.sce
new file mode 100644
index 000000000..3c59ebb74
--- /dev/null
+++ b/1094/CH2/EX2.3.2/EX2_3_2.sce
@@ -0,0 +1,13 @@
+//Exa:2.3.2
+clc;
+clear;
+close;
+V_L=400 //supply voltage(in volts)
+W_1=750 //power (in W)
+W_2=250 //power (in W)
+P_i=W_1+W_2
+disp(P_i,'input power (in W)=')
+pf=cosd(atand(sqrt(3)*(W_1-W_2)/(W_1+W_2)))
+disp(pf,'power factor=')
+I_L=P_i/(sqrt(3)*V_L*pf)
+disp(I_L,'line current(in A)=')
+\ No newline at end of file
diff --git a/1094/CH2/EX2.3.3/EX2_3_3.sce b/1094/CH2/EX2.3.3/EX2_3_3.sce
new file mode 100644
index 000000000..acf4c03a1
--- /dev/null
+++ b/1094/CH2/EX2.3.3/EX2_3_3.sce
@@ -0,0 +1,12 @@
+//Exa:2.3.3
+clc;
+clear;
+close;
+P=10000;//in watts
+I=60;//in amperes
+V=400;//in volts
+//When the coil is connected between phase A and Neutral;
+theta=acosd(P/(V*I/sqrt(3)));//in degrees
+alpha=90-theta;//in degrees
+W=V*I*cosd(alpha)/1000;
+disp(W,'Wattmeter Reading (in watts)=')
+\ No newline at end of file