1 files changed, 19 insertions, 0 deletions
diff --git a/1964/CH4/EX4.20/ex4_20.sce b/1964/CH4/EX4.20/ex4_20.sce
new file mode 100755
index 000000000..07604d82b
--- /dev/null
+++ b/1964/CH4/EX4.20/ex4_20.sce
@@ -0,0 +1,19 @@
+//Chapter-4, Example 4.20, Page 147
+//=============================================================================
+clc
+clear
+//CALCULATIONS
+//given voltage eqn is v=100+(100*sqrt(2))*sin(314*t) volts
+W=314;//freq in rad/sec
+R=5;//resistance in ohms
+X=12;//reactance in ohms
+Z=R+((%i)*(X));//impedance in ohms
+Idc=100/R;//dc current in A
+Iac=(100)/(sqrt((R)^2+(X)^2));//rms value of ac component of current
+Pt=(R*(Idc^2))+(R*(Iac^2));//total power in Watts
+V1=sqrt((100)^2+(100)^2);//supplied voltage in Rms in volts
+I1=sqrt((20)^2+(7.69)^2);//current in Rms in Amps
+Z1=V1/I1;//circuit impedance in ohms
+Pf=Pt/(V1*I1);//Power factor
+mprintf("thus circuit impedance,Power expended and Power factors are %1.1f Ohms ,%1.0f W and %1.3f respectively",Z1,Pt,Pf);
+//=================================END OF PROGRAM==============================