initial commit / add all books

26 files changed, 598 insertions, 0 deletions

diff --git a/3802/CH12/EX12.1/Ex12_1.jpg b/3802/CH12/EX12.1/Ex12_1.jpg
new file mode 100644
index 000000000..9b2756c85
--- /dev/null
+++ b/3802/CH12/EX12.1/Ex12_1.jpg
diff --git a/3802/CH12/EX12.1/Ex12_1.sce b/3802/CH12/EX12.1/Ex12_1.sce
new file mode 100644
index 000000000..e84bfca9f
--- /dev/null
+++ b/3802/CH12/EX12.1/Ex12_1.sce
@@ -0,0 +1,39 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_1.sce

+

+clc;

+clear;

+z=complex(3,4);

+Vl=120;

+printf("\n  Line current of load:  Magnitude \t Angle(deg) \n")

+I_R=complex(Vl*cosd(0),Vl*sind(0))/(sqrt(3)*z);

+I_Y=complex(Vl*cosd(-120),Vl*sind(-120))/(sqrt(3)*z);

+I_B=complex(Vl*cosd(120),Vl*sind(120))/(sqrt(3)*z);

+I_R_mag=sqrt(real(I_R)^2+imag(I_R)^2);

+I_Y_mag=sqrt(real(I_Y)^2+imag(I_Y)^2);

+I_B_mag=sqrt(real(I_B)^2+imag(I_B)^2);

+I_R_angle=atand(imag(I_R)/real(I_R));

+I_Y_angle=atand(imag(I_Y)/real(I_Y))-180;

+I_B_angle=atand(imag(I_B)/real(I_B));

+printf("\n\t Ir in A:\t %2.2f  \t  %2.2f",I_R_mag,I_R_angle)

+printf("\n\t Iy in A:\t %2.2f  \t  %2.2f",I_Y_mag,I_Y_angle)

+printf("\n\t Ib in A:\t %2.2f  \t  %2.2f",I_B_mag,I_B_angle)

+//The line current of alternator  is same as the line or phase current of load 

+

+printf("\n  Line current of alternator:  Magnitude  Angle(deg) \n")

+I_R=complex(Vl*cosd(0),Vl*sind(0))/(sqrt(3)*z);

+I_Y=complex(Vl*cosd(-120),Vl*sind(-120))/(sqrt(3)*z);

+I_B=complex(Vl*cosd(120),Vl*sind(120))/(sqrt(3)*z);

+I_R_mag=sqrt(real(I_R)^2+imag(I_R)^2);

+I_Y_mag=sqrt(real(I_Y)^2+imag(I_Y)^2);

+I_B_mag=sqrt(real(I_B)^2+imag(I_B)^2);

+I_R_angle=atand(imag(I_R)/real(I_R));

+I_Y_angle=atand(imag(I_Y)/real(I_Y))-180;

+I_B_angle=atand(imag(I_B)/real(I_B));

+printf("\n\t Ir in A:        \t %2.2f \t %2.2f",I_R_mag,I_R_angle)

+printf("\n\t Iy in A:        \t %2.2f \t %2.2f",I_Y_mag,I_Y_angle)

+printf("\n\t Ib in A:       \t %2.2f \t %2.2f",I_B_mag,I_B_angle)

diff --git a/3802/CH12/EX12.10/Ex12_10.jpg b/3802/CH12/EX12.10/Ex12_10.jpg
new file mode 100644
index 000000000..a7a9c9627
--- /dev/null
+++ b/3802/CH12/EX12.10/Ex12_10.jpg
diff --git a/3802/CH12/EX12.10/Ex12_10.sce b/3802/CH12/EX12.10/Ex12_10.sce
new file mode 100644
index 000000000..4396af82b
--- /dev/null
+++ b/3802/CH12/EX12.10/Ex12_10.sce
@@ -0,0 +1,62 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_10.sce

+

+clc;

+clear;

+Z_R=complex(8,6);

+Z_Y=complex(8,-6);

+Z_B=complex(5,0);

+Z_N=complex(0.5,1);

+Y_R=1/Z_R;

+Y_Y=1/Z_Y;

+Y_B=1/Z_B;

+Y_N=1/Z_N;

+E_R=220;

+E_Y=220;

+E_B=220;

+theta1=0;

+theta2=-120;

+theta3=120;

+V_R=complex(E_R*cosd(theta1),E_R*sind(theta1));

+V_Y=complex(E_Y*cosd(theta2),E_Y*sind(theta2));

+V_B=complex(E_B*cosd(theta3),E_B*sind(theta3));

+V_NN_dash=((V_R*Y_R)+(V_Y*Y_Y)+(V_B*Y_B))/(Y_R+Y_Y+Y_B+Y_N);

+

+V_R_dash=V_R-V_NN_dash;

+V_Y_dash=V_Y-V_NN_dash;

+V_B_dash=V_B-V_NN_dash;

+V_R_dash_mag=sqrt(real(V_R_dash)^2+imag(V_R_dash)^2);

+V_Y_dash_mag=sqrt(real(V_Y_dash)^2+imag(V_Y_dash)^2);

+V_B_dash_mag=sqrt(real(V_B_dash)^2+imag(V_B_dash)^2);

+V_R_dash_angle=atand(imag(V_R_dash)/real(V_R_dash));

+V_Y_dash_angle=atand(imag(V_Y_dash)/real(V_Y_dash))+180;

+V_B_dash_angle=atand(imag(V_B_dash)/real(V_B_dash))+180;

+printf("\n Load phase voltages: Magnitude\tAngle(deg)")

+printf("\n     For R phase\t%3.2f\t%0.3f",V_R_dash_mag,V_R_dash_angle)

+printf("\n     For Y phase\t%3.2f\t%3.2f",V_Y_dash_mag,V_Y_dash_angle)

+printf("\n     For B phase\t%3.2f\t%3.2f",V_B_dash_mag,V_B_dash_angle)

+//For V_NN_dash value , the answer given in the book is wrong.So load phase voltage vary from the book answer.

+//Also V_R_dash angle is not 0.168. It is negative angle that is -0.193

+I_R=V_R_dash*Y_R;

+I_Y=V_Y_dash*Y_Y;

+I_B=V_B_dash*Y_B;

+I_N=V_NN_dash*Y_N;

+I_R_mag=sqrt(real(I_R)^2+imag(I_R)^2);

+I_Y_mag=sqrt(real(I_Y)^2+imag(I_Y)^2);

+I_B_mag=sqrt(real(I_B)^2+imag(I_B)^2);

+I_N_mag=sqrt(real(I_N)^2+imag(I_N)^2);

+I_R_angle=atand(imag(I_R)/real(I_R));

+I_Y_angle=atand(imag(I_Y)/real(I_Y))+360;

+I_B_angle=atand(imag(I_B)/real(I_B))+180;

+I_N_angle=atand(imag(I_N)/real(I_N))+180;

+printf("\n\n Load phase current: Magnitude\tAngle(deg)")

+printf("\n      For R phase\t%3.2f\t%0.3f",I_R_mag,I_R_angle)

+printf("\n      For Y phase\t%3.2f\t%3.2f",I_Y_mag,I_Y_angle)

+printf("\n      For B phase\t%3.2f\t%3.2f",I_B_mag,I_B_angle)

+printf("\n      For Neutral\t%3.2f\t%3.2f",I_N_mag,I_N_angle)

+

+

diff --git a/3802/CH12/EX12.11/Ex12_11.jpg b/3802/CH12/EX12.11/Ex12_11.jpg
new file mode 100644
index 000000000..fe84ee2e7
--- /dev/null
+++ b/3802/CH12/EX12.11/Ex12_11.jpg
diff --git a/3802/CH12/EX12.11/Ex12_11.sce b/3802/CH12/EX12.11/Ex12_11.sce
new file mode 100644
index 000000000..4b20258ac
--- /dev/null
+++ b/3802/CH12/EX12.11/Ex12_11.sce
@@ -0,0 +1,56 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_11.sce

+

+clc;

+clear;

+Vl=400;

+V=Vl/sqrt(3);

+Z_R=complex(20*cosd(30),20*sind(30));

+Z_Y=complex(40*cosd(60),40*sind(60));

+Z_B=complex(10*cosd(-90),10*sind(-90));

+Y_R=1/Z_R;

+Y_Y=1/Z_Y;

+Y_B=1/Z_B;

+theta1=0;

+theta2=-120;

+theta3=120;

+V_R=complex(V*cosd(theta1),V*sind(theta1));

+V_Y=complex(V*cosd(theta2),V*sind(theta2));

+V_B=complex(V*cosd(theta3),V*sind(theta3));

+V_NN_dash=((V_R*Y_R)+(V_Y*Y_Y)+(V_B*Y_B))/(Y_R+Y_Y+Y_B);

+V_R_dash=V_R-V_NN_dash;

+V_Y_dash=V_Y-V_NN_dash;

+V_B_dash=V_B-V_NN_dash;

+V_R_dash_mag=sqrt(real(V_R_dash)^2+imag(V_R_dash)^2);

+V_Y_dash_mag=sqrt(real(V_Y_dash)^2+imag(V_Y_dash)^2);

+V_B_dash_mag=sqrt(real(V_B_dash)^2+imag(V_B_dash)^2);

+V_R_dash_angle=atand(imag(V_R_dash)/real(V_R_dash));

+V_Y_dash_angle=atand(imag(V_Y_dash)/real(V_Y_dash));

+V_B_dash_angle=atand(imag(V_B_dash)/real(V_B_dash));

+printf("\n\n     Phase voltages: Magnitude\tAngle(deg)")

+printf("\n     For R phase\t%3.2f\t%0.3f",V_R_dash_mag,V_R_dash_angle)

+printf("\n     For Y phase\t%3.2f\t%3.2f",V_Y_dash_mag,V_Y_dash_angle)

+printf("\n     For B phase\t%3.0f\t%3.2f",V_B_dash_mag,V_B_dash_angle)

+

+I_R=V_R_dash*Y_R;

+I_Y=V_Y_dash*Y_Y;

+I_B=V_B_dash*Y_B;

+I_R_mag=sqrt(real(I_R)^2+imag(I_R)^2);

+I_Y_mag=sqrt(real(I_Y)^2+imag(I_Y)^2);

+I_B_mag=sqrt(real(I_B)^2+imag(I_B)^2);

+I_R_angle=atand(imag(I_R)/real(I_R));

+I_Y_angle=atand(imag(I_Y)/real(I_Y))-180;

+I_B_angle=atand(imag(I_B)/real(I_B))+180;

+printf("\n     Phase current: Magnitude\tAngle(deg)")

+printf("\n      For R phase\t%2.2f\t%0.3f",I_R_mag,I_R_angle)

+printf("\n      For Y phase\t%1.2f\t%3.2f",I_Y_mag,I_Y_angle)

+printf("\n      For B phase\t%2.0f\t%3.2f",I_B_mag,I_B_angle)

+

+//Answer vary due to roundoff error

+

+

+

diff --git a/3802/CH12/EX12.12/Ex12_12.jpg b/3802/CH12/EX12.12/Ex12_12.jpg
new file mode 100644
index 000000000..1575d2d3a
--- /dev/null
+++ b/3802/CH12/EX12.12/Ex12_12.jpg
diff --git a/3802/CH12/EX12.12/Ex12_12.sce b/3802/CH12/EX12.12/Ex12_12.sce
new file mode 100644
index 000000000..20cc8070c
--- /dev/null
+++ b/3802/CH12/EX12.12/Ex12_12.sce
@@ -0,0 +1,36 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_12.sce

+

+//The input data taken from Example:12.11

+clc;

+clear;

+Vl=400;

+V=Vl/sqrt(3);

+Z_R=complex(20*cosd(30),20*sind(30));

+Z_Y=complex(40*cosd(60),40*sind(60));

+Z_B=complex(10*cosd(-90),10*sind(-90));

+Z_YR=((Z_R*Z_Y)+(Z_Y*Z_B)+(Z_B*Z_R))/Z_B;

+Z_BY=((Z_R*Z_Y)+(Z_Y*Z_B)+(Z_B*Z_R))/Z_R;

+Z_RB=((Z_R*Z_Y)+(Z_Y*Z_B)+(Z_B*Z_R))/Z_Y;

+theta1=30;

+theta2=-90;

+theta3=150;

+V_YR=complex(Vl*cosd(theta1),Vl*sind(theta1));

+V_BY=complex(Vl*cosd(theta2),Vl*sind(theta2));

+V_RB=complex(Vl*cosd(theta3),Vl*sind(theta3));

+I_YR=V_YR/Z_YR;

+I_BY=V_BY/Z_BY;

+I_RB=V_RB/Z_RB;

+I_R=I_YR-I_RB;

+I_Y=I_BY-I_YR;

+I_B=I_RB-I_BY;

+printf("\n Line current I_R,I_Y,I_B values are,\n")

+disp(I_R)

+disp(I_Y)

+disp(I_B)

+

+

diff --git a/3802/CH12/EX12.13/Ex12_13.jpg b/3802/CH12/EX12.13/Ex12_13.jpg
new file mode 100644
index 000000000..d7ea434c2
--- /dev/null
+++ b/3802/CH12/EX12.13/Ex12_13.jpg
diff --git a/3802/CH12/EX12.13/Ex12_13.sce b/3802/CH12/EX12.13/Ex12_13.sce
new file mode 100644
index 000000000..10affb757
--- /dev/null
+++ b/3802/CH12/EX12.13/Ex12_13.sce
@@ -0,0 +1,29 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_13.sce

+

+//The input data taken from Example:12.11

+clc;

+clear;

+Vl=400;

+V=Vl/sqrt(3);

+Z_R=complex(20*cosd(30),20*sind(30));

+Z_Y=complex(40*cosd(60),40*sind(60));

+Z_B=complex(10*cosd(-90),10*sind(-90));

+theta1=30;

+theta2=-90;

+theta3=150;

+V_YR=complex(Vl*cosd(theta1),Vl*sind(theta1));

+V_BY=complex(Vl*cosd(theta2),Vl*sind(theta2));

+V_RB=complex(Vl*cosd(theta3),Vl*sind(theta3));

+

+I_R=((V_YR*Z_B)-(V_RB*Z_Y))/((Z_R*Z_Y)+(Z_Y*Z_B)+(Z_B*Z_R));

+I_Y=((V_BY*Z_R)-(V_YR*Z_B))/((Z_R*Z_Y)+(Z_Y*Z_B)+(Z_B*Z_R));

+I_B=((V_RB*Z_Y)-(V_BY*Z_R))/((Z_R*Z_Y)+(Z_Y*Z_B)+(Z_B*Z_R));

+printf("\n Line current I_R , I_Y , I_B values are,\n")

+disp(I_R)

+disp(I_Y)

+disp(I_B)

diff --git a/3802/CH12/EX12.2/Ex12_2.jpg b/3802/CH12/EX12.2/Ex12_2.jpg
new file mode 100644
index 000000000..91dd630d3
--- /dev/null
+++ b/3802/CH12/EX12.2/Ex12_2.jpg
diff --git a/3802/CH12/EX12.2/Ex12_2.sce b/3802/CH12/EX12.2/Ex12_2.sce
new file mode 100644
index 000000000..37709dba3
--- /dev/null
+++ b/3802/CH12/EX12.2/Ex12_2.sce
@@ -0,0 +1,36 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_2.sce

+

+clc;

+clear;

+z=complex(6,8);

+Vl=110;

+printf("\nPhase current of the load:   Magnitude \t Angle(deg) \n")

+I_YR=complex(Vl*cosd(0),Vl*sind(0))/(z);

+I_BY=complex(Vl*cosd(-120),Vl*sind(-120))/(z);

+I_RB=complex(Vl*cosd(120),Vl*sind(120))/(z);

+I_YR_mag=sqrt(real(I_YR)^2+imag(I_YR)^2);

+I_BY_mag=sqrt(real(I_BY)^2+imag(I_BY)^2);

+I_RB_mag=sqrt(real(I_RB)^2+imag(I_RB)^2);

+I_YR_angle=atand(imag(I_YR)/real(I_YR));

+I_BY_angle=atand(imag(I_BY)/real(I_BY))-180;

+I_RB_angle=atand(imag(I_RB)/real(I_RB));

+printf("\n\t\t Iyr in A \t %d \t %2.2f",I_YR_mag,I_YR_angle)

+printf("\n\t\t Iby in A \t %d \t %2.2f",I_BY_mag,I_BY_angle)

+printf("\n\t\t Irb in A \t %d \t %2.2f",I_RB_mag,I_RB_angle)

+

+printf("\nLine current of the load:    Magnitude \t Angle(deg) \n")

+I_LR_mag=sqrt(3)*I_YR_mag;

+I_LY_mag=sqrt(3)*I_BY_mag;

+I_LB_mag=sqrt(3)*I_RB_mag;

+I_LR_angle=I_YR_angle-30;

+I_LY_angle=I_BY_angle-30;

+I_LB_angle=I_RB_angle-30;

+printf("\n\t\t Ilr in A \t %2.2f \t %2.2f",I_LR_mag,I_LR_angle)

+printf("\n\t\t Ily in A \t %2.2f \t %2.2f",I_LY_mag,I_LY_angle)

+printf("\n\t\t Ilb in A \t %2.2f \t %2.2f",I_LB_mag,I_LB_angle)

+

diff --git a/3802/CH12/EX12.3/Ex12_3.jpg b/3802/CH12/EX12.3/Ex12_3.jpg
new file mode 100644
index 000000000..d6e35bb90
--- /dev/null
+++ b/3802/CH12/EX12.3/Ex12_3.jpg
diff --git a/3802/CH12/EX12.3/Ex12_3.sce b/3802/CH12/EX12.3/Ex12_3.sce
new file mode 100644
index 000000000..500460b64
--- /dev/null
+++ b/3802/CH12/EX12.3/Ex12_3.sce
@@ -0,0 +1,33 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_3.sce

+

+clc;

+clear;

+P=36;   //power in kilowatt

+Vl=440;

+f=50;

+efficiency=0.89;

+pf1=0.85;

+pf2=0.95;

+P_not=P/3;

+P_input=P_not/efficiency;

+Q1=P_input*tand(acosd(pf1));

+Q2=P_input*tand(acosd(pf2));

+Qc=Q1-Q2;

+kVA=3*Qc;

+printf("\n Total kVA of the capacitors for raising power factor to 0.95 is %2.2f kVAR \n",kVA)

+V=Vl/sqrt(3);

+Xc=V^2/(Qc*1e3);

+

+printf("\n(a)")

+C_star=1/(2*%pi*f*Xc);

+printf("\n Required capacitance per phase for star connected capacitors=%3.3f micro-farad \n",C_star/1e-6)

+

+printf("\n(b)")

+C_delta=C_star/3;

+printf("\n Required capacitance per phase for delta connected capacitors=%2.2f micro-farad \n",C_delta/1e-6)

+//Answer vary dueto round off error

diff --git a/3802/CH12/EX12.4/Ex12_4.jpg b/3802/CH12/EX12.4/Ex12_4.jpg
new file mode 100644
index 000000000..4c468f63f
--- /dev/null
+++ b/3802/CH12/EX12.4/Ex12_4.jpg
diff --git a/3802/CH12/EX12.4/Ex12_4.sce b/3802/CH12/EX12.4/Ex12_4.sce
new file mode 100644
index 000000000..da897f589
--- /dev/null
+++ b/3802/CH12/EX12.4/Ex12_4.sce
@@ -0,0 +1,37 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_4.sce

+

+

+//The input data taken from Example:12.3

+clc;

+clear;

+P=36;

+Vl=440;

+f=50;

+efficiency=0.89;

+pf1=0.85;

+pf2=0.95;

+Pm=P/efficiency;

+Qm=Pm*tand(acosd(pf1));

+Qs=Pm*tand(acosd(pf2));

+Qc=Qm-Qs;

+Qc_phase=Qc/3;

+kVA=Qc_phase;

+printf("\n Total kVA of the capacitors for raising power factor to 0.95 is %2.2f kVAR \n",Qc)

+

+printf("\n(a)")

+Vph=Vl/sqrt(3);

+Iph=kVA*1e3/Vph;

+C=Iph/(2*%pi*f*Vph);

+printf("\n Required capacitance per phase for star connected capacitors=%3.3f micro-farad \n",C/1e-6)

+

+printf("\n(b)")

+Vph=Vl;

+Iph=kVA*1e3/Vph;

+C=Iph/(2*%pi*f*Vph);

+printf("\n Required capacitance per phase for delta connected capacitors=%3.3f micro-farad \n",C/1e-6)

+//Answer vary dueto round off error

diff --git a/3802/CH12/EX12.5/Ex12_5.jpg b/3802/CH12/EX12.5/Ex12_5.jpg
new file mode 100644
index 000000000..900f566e1
--- /dev/null
+++ b/3802/CH12/EX12.5/Ex12_5.jpg
diff --git a/3802/CH12/EX12.5/Ex12_5.sce b/3802/CH12/EX12.5/Ex12_5.sce
new file mode 100644
index 000000000..b1fc30050
--- /dev/null
+++ b/3802/CH12/EX12.5/Ex12_5.sce
@@ -0,0 +1,35 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_5.sce

+

+clc;

+clear;

+Vl=440;

+z_mag=40;

+z_angle=-30;

+z=complex(z_mag*cosd(z_angle),z_mag*sind(z_angle));

+Iph=Vl/z;

+Iph_mag=sqrt(real(Iph)^2+imag(Iph)^2);

+Iph_angle=atand(imag(Iph)/real(Iph));

+

+printf("\nLine current of load:\t    Magnitude \t Angle(deg) \n")

+I_R_mag=Iph_mag;

+I_Y_mag=Iph_mag;

+I_B_mag=Iph_mag;

+I_R_angle=Iph_angle-0;

+I_Y_angle=Iph_angle-120;

+I_B_angle=Iph_angle+120;

+printf("\n\t\t Ir in A \t%d \t %2.2f",I_R_mag,I_R_angle)

+printf("\n\t\t Iy in A \t%d \t %2.2f",I_Y_mag,I_Y_angle)

+printf("\n\t\t Ib in A \t%d \t %2.2f",I_B_mag,I_B_angle)

+

+I_R=complex(I_R_mag*cosd(I_R_angle),I_R_mag*sind(I_R_angle))

+I_Y=complex(I_Y_mag*cosd(I_Y_angle),I_Y_mag*sind(I_Y_angle))

+I_B=complex(I_B_mag*cosd(I_B_angle),I_B_mag*sind(I_B_angle))

+I_N=I_R+I_Y+I_B;

+printf("\n The neutral current is %d A",I_N)

+

+

diff --git a/3802/CH12/EX12.6/Ex12_6.jpg b/3802/CH12/EX12.6/Ex12_6.jpg
new file mode 100644
index 000000000..e343cfe5f
--- /dev/null
+++ b/3802/CH12/EX12.6/Ex12_6.jpg
diff --git a/3802/CH12/EX12.6/Ex12_6.sce b/3802/CH12/EX12.6/Ex12_6.sce
new file mode 100644
index 000000000..9a852cfdd
--- /dev/null
+++ b/3802/CH12/EX12.6/Ex12_6.sce
@@ -0,0 +1,29 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_6.sce

+

+clc;

+clear;

+printf("\n   (a)")

+Pi=8; //power in kilowatt

+pf=0.8;

+Vl=440;

+Qi=Pi*tand(acosd(pf));

+P=complex(Pi,Qi);

+P_mag=sqrt(real(P)^2+imag(P)^2);

+P_angle=atand(imag(P)/real(P));

+Il=(P_mag*1e3)/(sqrt(3)*Vl);

+printf("\n Complex power=  magnitude\tangle(deg) \n\t\t     %1.0f \t %2.2f",P_mag,P_angle)

+printf("\n Line current=%2.2f A \n",Il)

+

+printf("\n   (b)")

+Pl=7.5;

+pf=0.6;

+P=Pi+(Pl*pf);

+Q=Qi-(P*sind(acosd(pf)));

+kVA=P;

+Il=(kVA*1e3)/(sqrt(3)*Vl);

+printf("\n Total line current=%2.1f A \n",Il)

diff --git a/3802/CH12/EX12.7/Ex12_7.jpg b/3802/CH12/EX12.7/Ex12_7.jpg
new file mode 100644
index 000000000..a740043be
--- /dev/null
+++ b/3802/CH12/EX12.7/Ex12_7.jpg
diff --git a/3802/CH12/EX12.7/Ex12_7.sce b/3802/CH12/EX12.7/Ex12_7.sce
new file mode 100644
index 000000000..7549c79cd
--- /dev/null
+++ b/3802/CH12/EX12.7/Ex12_7.sce
@@ -0,0 +1,103 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_7.sce

+

+clc;

+clear;

+z1=complex(8,6);

+z2=complex(6,8);

+z3=complex(4,-3);

+R_YR=z1;

+R_BY=z2;

+R_RB=z3;

+Vl=440;

+

+printf("\n(a)Delta connected load of phase sequence RYB:")

+theta1=0;

+theta2=-120;

+theta3=120;

+V_YR=complex(Vl*cosd(theta1),Vl*sind(theta1));

+V_BY=complex(Vl*cosd(theta2),Vl*sind(theta2));

+V_RB=complex(Vl*cosd(theta3),Vl*sind(theta3));

+I_YR=V_YR/z1;

+I_BY=V_BY/z2;

+I_RB=V_RB/z3;

+I_YR_mag=sqrt(real(I_YR)^2+imag(I_YR)^2);

+I_BY_mag=sqrt(real(I_BY)^2+imag(I_BY)^2);

+I_RB_mag=sqrt(real(I_RB)^2+imag(I_RB)^2);

+I_YR_angle=atand(imag(I_YR)/real(I_YR));

+I_BY_angle=atand(imag(I_BY)/real(I_BY))-180;

+I_RB_angle=atand(imag(I_RB)/real(I_RB))+180;

+printf("\nPhase current=     \tMagnitude\tAngle(deg) \n")

+printf("\n\t Iyr in A \t %d \t     %2.2f",I_YR_mag,I_YR_angle)

+printf("\n\t Iby in A \t %d \t     %2.2f",I_BY_mag,I_BY_angle)

+printf("\n\t Irb in A \t %d \t     %2.2f",I_RB_mag,I_RB_angle)

+

+I_R=I_YR-I_RB;

+I_Y=I_BY-I_YR;

+I_B=I_RB-I_BY;

+I_R_mag=sqrt(real(I_R)^2+imag(I_R)^2);

+I_Y_mag=sqrt(real(I_Y)^2+imag(I_Y)^2);

+I_B_mag=sqrt(real(I_B)^2+imag(I_B)^2);

+I_R_angle=atand(imag(I_R)/real(I_R));

+I_Y_angle=atand(imag(I_Y)/real(I_Y))+180;

+I_B_angle=atand(imag(I_B)/real(I_B))+180;

+printf("\nLine current=      \tMagnitude\tAngle(deg) ")

+printf("\n\t Ir in A \t %2.2f     %2.2f",I_R_mag,I_R_angle)

+printf("\n\t Iy in A \t %2.2f \t    %2.2f",I_Y_mag,I_Y_angle)

+printf("\n\t Ib in A \t %2.2f \t    %2.2f",I_B_mag,I_B_angle)

+

+W_YR=(I_YR_mag)^2*real(z1);

+W_BY=(I_BY_mag)^2*real(z2);

+W_RB=(I_RB_mag)^2*real(z3);

+printf("\n Toatal power dissipated:\n")

+printf("\n\t W_YR=%d W",W_YR)

+printf("\n\t W_BY=%d W",W_BY)

+printf("\n\t W_RB=%d W",W_RB)

+

+

+printf("\n\n(b)Delta connected load of phase sequence RBY:")

+theta1=0;

+theta2=120;

+theta3=-120;

+V_YR=complex(Vl*cosd(theta1),Vl*sind(theta1));

+V_BY=complex(Vl*cosd(theta2),Vl*sind(theta2));

+V_RB=complex(Vl*cosd(theta3),Vl*sind(theta3));

+I_YR=V_YR/z1;

+I_BY=V_BY/z2;

+I_RB=V_RB/z3;

+I_YR_mag=sqrt(real(I_YR)^2+imag(I_YR)^2);

+I_BY_mag=sqrt(real(I_BY)^2+imag(I_BY)^2);

+I_RB_mag=sqrt(real(I_RB)^2+imag(I_RB)^2);

+I_YR_angle=atand(imag(I_YR)/real(I_YR));

+I_BY_angle=atand(imag(I_BY)/real(I_BY));

+I_RB_angle=atand(imag(I_RB)/real(I_RB));

+printf("\nPhase current=     \tMagnitude\tAngle(deg) \n")

+printf("\n\t Iyr in A \t %d \t     %2.2f",I_YR_mag,I_YR_angle)

+printf("\n\t Iby in A \t %d \t     %2.2f",I_BY_mag,I_BY_angle)

+printf("\n\t Irb in A \t %d \t     %2.2f",I_RB_mag,I_RB_angle)

+

+I_R=I_YR-I_RB;

+I_Y=I_BY-I_YR;

+I_B=I_RB-I_BY;

+I_R_mag=sqrt(real(I_R)^2+imag(I_R)^2);

+I_Y_mag=sqrt(real(I_Y)^2+imag(I_Y)^2);

+I_B_mag=sqrt(real(I_B)^2+imag(I_B)^2);

+I_R_angle=atand(imag(I_R)/real(I_R));

+I_Y_angle=atand(imag(I_Y)/real(I_Y))+180;

+I_B_angle=atand(imag(I_B)/real(I_B))-180;

+printf("\nLine current=      \tMagnitude\tAngle(deg) ")

+printf("\n\t Ir in A \t %2.2f      %2.2f",I_R_mag,I_R_angle)

+printf("\n\t Iy in A \t %2.2f \t    %2.2f",I_Y_mag,I_Y_angle)

+printf("\n\t Ib in A \t %2.2f    %2.2f",I_B_mag,I_B_angle)

+

+W_YR=(I_YR_mag)^2*real(z1);

+W_BY=(I_BY_mag)^2*real(z2);

+W_RB=(I_RB_mag)^2*real(z3);

+printf("\n Toatal power dissipated:\n")

+printf("\n\t W_YR=%d W",W_YR)

+printf("\n\t W_BY=%d W",W_BY)

+printf("\n\t W_RB=%d W",W_RB)

diff --git a/3802/CH12/EX12.8/Ex12_8.jpg b/3802/CH12/EX12.8/Ex12_8.jpg
new file mode 100644
index 000000000..7e7c6e668
--- /dev/null
+++ b/3802/CH12/EX12.8/Ex12_8.jpg
diff --git a/3802/CH12/EX12.8/Ex12_8.sce b/3802/CH12/EX12.8/Ex12_8.sce
new file mode 100644
index 000000000..fb136ed66
--- /dev/null
+++ b/3802/CH12/EX12.8/Ex12_8.sce
@@ -0,0 +1,31 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_8.sce

+

+clc;

+clear;

+Vl=110;

+f=50;

+

+printf("\n (a)")

+R_YR=0;

+R_BY=100;

+R_RB=200;

+W_YR=0; //since R_YR value is zero

+W_BY=Vl^2/R_BY;

+W_RB=Vl^2/R_RB;

+printf("\n  Phase power=%3.1f W \n",W_YR+W_BY+W_RB)

+

+

+printf("\n (b)")

+X_YR=95;

+X_BY=0;

+X_RB=0;

+W_YR=Vl^2/X_YR;

+W_BY=0; //since X_BY value is zero

+W_RB=0; //since X_RB value is zero

+printf("\n  Reactive  power=%3.2f VAR",W_YR+W_BY+W_RB)

+

diff --git a/3802/CH12/EX12.9/Ex12_9.jpg b/3802/CH12/EX12.9/Ex12_9.jpg
new file mode 100644
index 000000000..106771358
--- /dev/null
+++ b/3802/CH12/EX12.9/Ex12_9.jpg
diff --git a/3802/CH12/EX12.9/Ex12_9.sce b/3802/CH12/EX12.9/Ex12_9.sce
new file mode 100644
index 000000000..e8f84ce8a
--- /dev/null
+++ b/3802/CH12/EX12.9/Ex12_9.sce
@@ -0,0 +1,72 @@
+//Book Name:Fundamentals of Electrical Engineering

+//Author:Rajendra Prasad

+//Publisher: PHI Learning Private Limited

+//Edition:Third ,2014

+

+//Ex12_9.sce

+

+clc;

+clear;

+z=10;

+ang1=0;

+ang2=37;

+ang3=-53;

+Zr=complex(z*cosd(ang1),z*sind(ang1));

+Zy=complex(z*cosd(ang2),z*sind(ang2));

+Zb=complex(z*cosd(ang3),z*sind(ang3));

+

+printf("\n (a)For phase sequence RYB:\n")

+V=220;

+theta1=0;

+theta2=-120;

+theta3=120;

+Vr=complex(V*cosd(theta1),V*sind(theta1));

+Vy=complex(V*cosd(theta2),V*sind(theta2));

+Vb=complex(V*cosd(theta3),V*sind(theta3));

+

+Ir=Vr/Zr;

+Iy=Vy/Zy;

+Ib=Vb/Zb;

+In=Ir+Iy+Ib;

+In_mag=sqrt(real(In)^2+imag(In)^2);

+In_angle=atand(imag(In)/real(In));

+printf("\n  The current through the neutral wire,\n  -In=\tMagnitude\tAngle(deg) \n\t %2.2f  \t %2.2f \n",In_mag,In_angle)

+

+Ir_mag=sqrt(real(Ir)^2+imag(Ir)^2);

+Iy_mag=sqrt(real(Iy)^2+imag(Iy)^2);

+Ib_mag=sqrt(real(Ib)^2+imag(Ib)^2);

+Pr=(Ir_mag)^2*real(Zr);

+Py=(Iy_mag)^2*real(Zy);

+Pb=(Ib_mag)^2*real(Zb);

+printf("\n  Power taken by each load:\n\t Pr=%d W \n\t Py=%4.1f W \n\t Pb=%4.1f W \n", Pr, Py, Pb)

+

+

+

+printf("\n\n (b)For phase sequence RBY:\n")

+V=220;

+theta1=0;

+theta2=120;

+theta3=-120;

+Vr=complex(V*cosd(theta1),V*sind(theta1));

+Vy=complex(V*cosd(theta2),V*sind(theta2));

+Vb=complex(V*cosd(theta3),V*sind(theta3));

+

+Ir=Vr/Zr;

+Iy=Vy/Zy;

+Ib=Vb/Zb;

+In=Ir+Iy+Ib;

+In_mag=sqrt(real(In)^2+imag(In)^2);

+In_angle=atand(imag(In)/real(In));

+printf("\n  The current through the neutral wire,\n  In=\tMagnitude\tAngle(deg) \n\t %2.2f  \t %2.2f \n",In_mag,In_angle)

+

+Ir_mag=sqrt(real(Ir)^2+imag(Ir)^2);

+Iy_mag=sqrt(real(Iy)^2+imag(Iy)^2);

+Ib_mag=sqrt(real(Ib)^2+imag(Ib)^2);

+Pr=(Ir_mag)^2*real(Zr);

+Py=(Iy_mag)^2*real(Zy);

+Pb=(Ib_mag)^2*real(Zb);

+printf("\n  Power taken by each load:\n\t Pr=%d W \n\t Py=%4.1f W \n\t Pb=%4.1f W \n", Pr, Py, Pb)

+

+

+

+