1 files changed, 39 insertions, 0 deletions
diff --git a/3802/CH3/EX3.21/Ex3_21.sce b/3802/CH3/EX3.21/Ex3_21.sce
new file mode 100644
index 000000000..8197ec8fa
--- /dev/null
+++ b/3802/CH3/EX3.21/Ex3_21.sce
@@ -0,0 +1,39 @@
+//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex3_21.sce
+
+clc;
+clear;
+P1=7e3;   //supplied power in watt
+pf1=0.8;  //lagging power factor 
+//below values are taken from the given circuit (fig.3.39)
+Z1=complex(0.8,1);
+Z2=complex(1.4,1.6);
+V1=440;    //terminal voltage in volt
+PL=10e3;    //power required by the load in watt
+pf2=0.8;    //lagging power factor
+
+I1=P1/(V1*pf1);
+Pr1=P1-(I1^2*real(Z1));
+Q1=P1*tand(acosd(pf1));
+Qr1=Q1-(I1^2*imag(Z1));
+VA=sqrt(Pr1^2+Qr1^2);
+VL=VA/I1;
+printf("\n V_L=%3.1f V \n",VL)
+
+QL=PL*tand(acosd(pf2));
+Pr2=PL-Pr1;
+Qr2=QL-Qr1;
+VA_load=sqrt(Pr2^2+Qr2^2);
+I2=VA_load/VL;
+
+P2=Pr2+(I2^2*real(Z2));
+Q2=Qr2+(I2^2*imag(Z2));
+V2=sqrt(P2^2+Q2^2)/I2;
+printf("\n V2=%3.1f V \n",V2)
+printf("\n Reactive power:P2=%4.1f W \t Q2=%4.1f Var \n",P2,Q2)
+
+