1 files changed, 26 insertions, 0 deletions
diff --git a/1964/CH5/EX5.5/ex5_5.sce b/1964/CH5/EX5.5/ex5_5.sce
new file mode 100755
index 000000000..f7b1459b9
--- /dev/null
+++ b/1964/CH5/EX5.5/ex5_5.sce
@@ -0,0 +1,26 @@
+//Chapter-5, Example 5.5, Page 162
+//=============================================================================
+clc
+clear
+//INPUT DATA
+V=250;//supply voltage in volts
+f=50;//frequency in hz
+Vr=125;//voltage across resistance in volts
+Vc=200;//voltage across coil in volts
+I=5;//current in A
+//CALCULATIONS
+R=Vr/I;//resistance in ohms
+Z1=Vc/I;//impedance of coil in ohms
+//Z1=sqrt((R1)^2+(Xl)^2)------eqn(1)
+Z=V/I;//total impedance in ohms
+//Z=sqrt((R+R1)^2+(Xl)^2)-----eqn(2)
+//solving eqn(1)and eqn(2) we get R1 as follows
+R1=(((Z)^2-(Z1)^2)-(R)^2)/(2*R);//in ohms
+Xl=sqrt((Z1)^2-(R1)^2);//reactance of coil in ohms
+P=((I)^2*R1);//power absorbed by the coil in Watts
+Pt=((I)^2)*(R+R1);//total power in Watts
+mprintf("thus impedance,resistance,reactance are %d ohms,%d ohms,%2.2f ohms respectively\n",Z1,R,Xl);
+mprintf("power absorbed and total power are %3.1f W and %3.1f W respectively",P,Pt)
+
+//=================================END OF PROGRAM======================================================================================================
+