initial commit / add all books

1 files changed, 28 insertions, 0 deletions

diff --git a/1964/CH5/EX5.24/ex5_24.sce b/1964/CH5/EX5.24/ex5_24.sce
new file mode 100755
index 000000000..6fdf9ecaf
--- /dev/null
+++ b/1964/CH5/EX5.24/ex5_24.sce
@@ -0,0 +1,28 @@
+//Chapter-5, Example 5.24, Page 184

+//=============================================================================

+clc

+clear

+//INPUT DATA

+L=0.05;//inductance in henry

+R2=20;//resistance in ohms

+R1=15;//resistance in ohms

+V=200;//supply voltage in volts

+f=50;//frequency in hz

+//CALCULATIONS

+//for branch 1

+Z1=(R1)+((%i)*(2*%pi*f*L));//impedance in ohms

+Y1=inv(Z1);//admittance in branch

+I1=V*(Y1);//current in branch

+disp(I1);

+i1=abs(I1);//magnitude of current

+//for branch 2

+Y2=1/R2;//admittance in branch

+I2=V*Y2;//current in branch

+i2=abs(I2);//magnitude of current

+I=I1+I2;//total current in A

+i=abs(I);//magnitude of total current

+theta=atan(imag(I)/real(I));//angle in radians

+theta=theta*(180)/(%pi);//angle in degrees

+mprintf("Thus current in branch1,branch2 abd total currents are %1.2f A,%d A,%2.2f A respectively\n",i1,i2,i);

+mprintf("phase angle of the combination is %2.1f degrees",theta);

+//=================================END OF PROGRAM======================================================================================================