1 files changed, 18 insertions, 0 deletions
diff --git a/1964/CH5/EX5.4/ex5_4.sce b/1964/CH5/EX5.4/ex5_4.sce
new file mode 100755
index 000000000..9714271b0
--- /dev/null
+++ b/1964/CH5/EX5.4/ex5_4.sce
@@ -0,0 +1,18 @@
+//Chapter-5, Example 5.4, Page 161
+//=============================================================================
+clc
+clear
+//INPUT DATA
+I=10;//given current in A
+P=1000;//power in Watts
+V=250;//voltage in volts
+f=25;//frequency in Hz
+//CALCULATIONS
+R=P/((I)^2);//resistance in ohms
+Z=V/I;//impedance in ohms
+Xl=sqrt((Z)^2-(R)^2);//reactance in ohms
+L=Xl/(2*%pi*f);//inductance in Henry
+Pf=R/Z;//power factor,lagging,pf=cos(phi)
+mprintf("thus impedance,resistance,inductance,reactance and powerfactor are %d ohms,%d ohms,%1.3f H,%2.2f ohms and %1.1f respectively",Z,R,L,Xl,Pf);
+//=================================END OF PROGRAM======================================================================================================
+