1 files changed, 16 insertions, 0 deletions
diff --git a/1964/CH5/EX5.20/ex5_20.sce b/1964/CH5/EX5.20/ex5_20.sce
new file mode 100755
index 000000000..85bc38626
--- /dev/null
+++ b/1964/CH5/EX5.20/ex5_20.sce
@@ -0,0 +1,16 @@
+//Chapter-5, Example 5.20, Page 182
+//=============================================================================
+clc
+clear
+//INPUT DATA
+R=10;//resistance in ohms
+L=0.1;//inductance in henry
+f=50;//frequency in hz
+//CALCULATIONS
+Xl=(2*%pi*f*L);//inductive reactance in ohms
+Z=R+((%i)*(Xl));//impedance in ohms
+Y=inv(Z);//admittance in mho
+disp(Y);
+y=abs(Y);//admittance in mho
+mprintf("admittance is %1.5f mho",y);
+//=================================END OF PROGRAM======================================================================================================