8 files changed, 101 insertions, 0 deletions
diff --git a/3850/CH38/EX38.3/Ex38_3.sce b/3850/CH38/EX38.3/Ex38_3.sce
new file mode 100644
index 000000000..fd3b9860d
--- /dev/null
+++ b/3850/CH38/EX38.3/Ex38_3.sce
@@ -0,0 +1,22 @@
+
+//To Calculate the Self Inductance of Coil
+
+//Example 38.3
+
+clear;
+
+clc;
+
+If=-5.0;//Final Current flowing through coil in opposite direction in Amperes
+
+Ii=5.0;//Initial Current flowing through coil in Amperes
+
+t=0.20;//Time Required for current to Change from -5 A to 5 A in seconds
+
+di=(If-Ii)/t;//Change in Current through the coil in Amperes
+
+E=0.2;//Average Induced EMF in Volts
+
+L=-E/di;//Self Inductance of the Coil
+
+printf("Self Inductance of the coil (L) = %.1f mH",L*10^3);
diff --git a/3850/CH38/EX38.3/Ex38_3.txt b/3850/CH38/EX38.3/Ex38_3.txt
new file mode 100644
index 000000000..f4f42c59f
--- /dev/null
+++ b/3850/CH38/EX38.3/Ex38_3.txt
@@ -0,0 +1,2 @@
+
+ Self Inductance of the coil(L) = 4.0 mH
+\ No newline at end of file
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);
+
diff --git a/3850/CH38/EX38.5/Ex38_5.txt b/3850/CH38/EX38.5/Ex38_5.txt
new file mode 100644
index 000000000..fcd5c6f1a
--- /dev/null
+++ b/3850/CH38/EX38.5/Ex38_5.txt
@@ -0,0 +1,4 @@
+
+ (a) Time Constant =0.20 ms
+ (b) Maximum current = 0.10 A
+ (c) Time elapsed before the current reaches 99 percent of the maximum value = 0.92 ms
+\ No newline at end of file
diff --git a/3850/CH38/EX38.6/Ex38_6.sce b/3850/CH38/EX38.6/Ex38_6.sce
new file mode 100644
index 000000000..96202af12
--- /dev/null
+++ b/3850/CH38/EX38.6/Ex38_6.sce
@@ -0,0 +1,24 @@
+
+//To Calculate the Current in Circuit
+
+//Example 38.6
+
+clear;
+
+clc;
+
+E=10;//EMF of Battery in Volts
+
+R=100;//Resistance in ohms
+
+i0=E/R;//Initial Current in Amperes
+
+L=20*10^-3;//Self Inductance of Inductor in Henry
+
+tau=L/R;//Time Constant of L-R Circuit
+
+t=1*10^-3;//Time after Short-Circuiting in seconds
+
+i=i0*exp(-t/tau);//Current in the circuit 1 ms after short circuiting
+
+printf("Current in the circuit 1 ms after Short Circuiting = %.1f*10^-4 A",i*10^4);
diff --git a/3850/CH38/EX38.6/Ex38_6.txt b/3850/CH38/EX38.6/Ex38_6.txt
new file mode 100644
index 000000000..fa9dbc23c
--- /dev/null
+++ b/3850/CH38/EX38.6/Ex38_6.txt
@@ -0,0 +1,2 @@
+
+ Current in the circuit 1 ms after Short Circuiting = 6.7*10^-4 A
+\ No newline at end of file
diff --git a/3850/CH38/EX38.7/Ex38_7.sce b/3850/CH38/EX38.7/Ex38_7.sce
new file mode 100644
index 000000000..a67c23e4c
--- /dev/null
+++ b/3850/CH38/EX38.7/Ex38_7.sce
@@ -0,0 +1,16 @@
+
+//To Calculate the Energy Stored in the Inductor
+
+//Example 38.7
+
+clear;
+
+clc;
+
+L=50*10^-3;//Self Inductance of Inductor in Henry
+
+i=2;//Cuurent passed through inductor in Amperes
+
+U=0.5*L*i^2;//Energy stored in the Inductor
+
+printf("Energy stored in the inductor = %.2f J",U);
diff --git a/3850/CH38/EX38.7/Ex38_7.txt b/3850/CH38/EX38.7/Ex38_7.txt
new file mode 100644
index 000000000..2b33d768e
--- /dev/null
+++ b/3850/CH38/EX38.7/Ex38_7.txt
@@ -0,0 +1,2 @@
+
+ Energy stored in the inductor = 0.10 J
+\ No newline at end of file