1 files changed, 20 insertions, 0 deletions
diff --git a/3745/CH1/EX1.71/Ex1_71.sce b/3745/CH1/EX1.71/Ex1_71.sce
new file mode 100644
index 000000000..e514e15cc
--- /dev/null
+++ b/3745/CH1/EX1.71/Ex1_71.sce
@@ -0,0 +1,20 @@
+// Ex 71 Page 411
+
+clc;clear;close;
+// Given
+f=50;//Hz
+Vm=500;//V
+R=20;//ohm
+L=0.2;//H
+t=0.02;//sec
+XL=2*%pi*f*L;//ohm
+Z=R+%i*XL;//ohm
+Im=Vm/abs(Z);//A
+fi=atan(XL/R);//degree
+lambda=L/R;//sec
+printf("expression for current:")
+printf("\n i = %.1f*sin(314*t-%.3f)+0.95*e**(-100*t)",Im,fi)
+i = Im*sin(314*t-fi)+0.95*%e**(-100*t);//A
+printf("\n current after 0.02 sec is : %0.1f A",-i)
+i2=Im*(0.95*%e**(-100*t));//A
+printf("\n transient component is : %0.2f A",i2)