1 files changed, 28 insertions, 0 deletions
diff --git a/3745/CH1/EX1.65/Ex1_65.sce b/3745/CH1/EX1.65/Ex1_65.sce
new file mode 100644
index 000000000..f20c460f8
--- /dev/null
+++ b/3745/CH1/EX1.65/Ex1_65.sce
@@ -0,0 +1,28 @@
+// Ex 65 Page 406
+
+clc;clear;close;
+// Given
+C=6*10**-6;//F
+L=2.5;//H
+R=300;//ohm
+
+
+a=R/2/L
+omega = sqrt(1/L/C-R^2/4/L^2);//rad/s
+//i=Im*%e**(-a*t)*sin(omega*t+fi)
+//at t=0 sec
+i0=0;//A
+vc=10;//V
+fi=asin(i0);//degree
+//L*di/dt=vc at t=0
+Im=poly([0],'Im')
+function i=current(t)
+    i=Im*expm(-a*t)*sin(omega*t+fi)
+endfunction
+//i=Im*expm(-a*t)*sin(omega*t+fi)
+LdiBYdt=L*numderivative(current,0)
+temp = coeff(LdiBYdt)
+Im=vc/temp(2)
+Rn=2*sqrt(L/C);//ohm
+Rad=Rn-R;//ohm
+printf("Additional resistance required = %d ohm",Rad)