1 files changed, 26 insertions, 0 deletions
diff --git a/1964/CH5/EX5.3/ex5_3.sce b/1964/CH5/EX5.3/ex5_3.sce
new file mode 100755
index 000000000..04a2064f2
--- /dev/null
+++ b/1964/CH5/EX5.3/ex5_3.sce
@@ -0,0 +1,26 @@
+//Chapter-5, Example 5.3, Page 160
+//=============================================================================
+clc
+clear
+//given i(t)=5*sin(314*t+(2*%pi/3))&& v(t)=20*sin(314*t+(5*%pi/6))
+//CALCULATIONS
+P1=2*(%pi/3);//phase angle of current in radians
+P1=P1*(180/%pi);//phase angle of current in degrees
+P2=5*(%pi/6);//phase angle of voltage in radians
+P2=P2*(180/%pi);//phase angle of voltage in degrees
+P3=P2-P1;//current lags voltage by P3 degrees
+P4=P3*%pi/180;
+pf=cos(P4);//lagging pf
+Vm=20;//peak voltage
+Im=5;//peak current
+Z=Vm/Im;//impedance in ohms
+R=(Z)*cos(P4);//resistance in ohms
+Xl=sqrt((Z)^2-(R)^2);//reactance 
+W=314;
+L=Xl/W;//inductance in henry
+V=Vm/sqrt(2);//average value of voltage
+I=Im/sqrt(2);//average value of current
+av=(V*I)*cos(P4);//average power in watts
+mprintf("thus impedance,resistance,inductance,powerfactor and average power are %d ohms,%1.2f ohms,%g H,%1.3f and %2.1f W respectively",Z,R,L,pf,av);
+//=================================END OF PROGRAM======================================================================================================
+