1 files changed, 24 insertions, 0 deletions
diff --git a/3802/CH13/EX13.7/Ex13_7.sce b/3802/CH13/EX13.7/Ex13_7.sce
new file mode 100644
index 000000000..29e07d27e
--- /dev/null
+++ b/3802/CH13/EX13.7/Ex13_7.sce
@@ -0,0 +1,24 @@
+//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex13_7.sce
+
+clc;
+clear;
+R=10;
+L=0.1;
+t1=0.01;
+omega=100*%pi;
+phi=omega*t1;
+t=(asin(1)+atan((omega*L)/R))/omega;
+Imax=((-omega*L*exp(-R*t/L))/(R^2+(omega*L)^2))-(sin((100*%pi*t)-(atan(omega*L/R)))/sqrt(R^2+(omega*L)^2));
+t=0;
+Iss=((-omega*L*exp(-R*t/L))/(R^2+(omega*L)^2))-(sind((100*%pi*t)-(atan(omega*L/R)))/sqrt(R^2+(omega*L)^2));
+a=Imax/Iss;
+printf("\n Ratio of maximum value of current to steady state value of current=%1.2f \n",a)
+//Answer vary dueto round off error in 't' calculation
+
+
+