1 files changed, 29 insertions, 0 deletions
diff --git a/3850/CH38/EX38.5/Ex38_5.sce b/3850/CH38/EX38.5/Ex38_5.sce
new file mode 100644
index 000000000..0f754603d
--- /dev/null
+++ b/3850/CH38/EX38.5/Ex38_5.sce
@@ -0,0 +1,29 @@
+
+//To find the Time Constant Maximum Current and Time
+
+//Example 38.5
+
+clear;
+
+clc;
+
+L=20*10^-3;//Seld Inductance of Inductor
+
+R=100;//Resistance of the Resistor in ohms
+
+tau=L/R;//Time Constant of L-R circuit
+
+printf("(a) Time Constant =%.2f ms",tau*10^3);
+
+E=10;//EMF of Battery in Volts
+
+I=E/R;//Maximum Current in Amperes
+
+printf("\n (b) Maximum current = %.2f A",I);
+
+iper=0.99;//Current reaches 99% of the Maximum Value
+
+t=tau*-log(1-iper);//Time elapsed befor the current reaches 99% of the maxium value
+
+printf("\n (c) Time elapsed before the current reaches 99 percent of the maximum value = %.2f ms",t*10^3);
+