1 files changed, 36 insertions, 0 deletions
diff --git a/3802/CH3/EX3.20/Ex3_20.sce b/3802/CH3/EX3.20/Ex3_20.sce
new file mode 100644
index 000000000..abea7902a
--- /dev/null
+++ b/3802/CH3/EX3.20/Ex3_20.sce
@@ -0,0 +1,36 @@
+//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex3_20.sce.
+
+clc;
+clear;
+
+Vm=16*sqrt(2);   //Maximum voltage value in volt
+Vrms=Vm/sqrt(2);   //RMS voltage in volt
+R=1;    //resistance in ohm
+C=-%i;  //capacitance in ohm
+R1=2;    //resistance in ohm
+R2=3;    //resistance in ohm
+C1=-%i;  //capacitance in ohm
+//After simplication of the network by star-delta transformation
+Za=complex(2,-10)/26;
+Zb=complex(3,-15)/26;
+Zc=complex(30,6)/26;
+Voc=(Vrms*(Zc+C))/(R+Za+Zc+C);
+Zs=(1/((1/(Za+R))+(1/(Zc+C))))+Zb;
+
+printf("\n (a)")
+Zl=Zs;
+Zl_mag=sqrt(real(Zl)^2+imag(Zl)^2);
+Zl_ang=atand(imag(Zl)/real(Zl));
+printf("\n     Z_L=%1.2f angle:%2.2f degree \n",Zl_mag,Zl_ang)
+
+printf("\n (b)")
+Voc_mag=sqrt(real(Voc)^2+imag(Voc)^2);
+Pmax=Voc_mag^2/(2*real(Zl));
+printf("\n     Maximum power=%2.2f watt \n",Pmax)
+//There is a mistake in Zs calculation .Zs=0.7555-0.8539i is wrong  .the correct value of Zs=0.6829-0.8536i
+//So the answer vary