5 files changed, 81 insertions, 0 deletions
diff --git a/3753/CH4/EX4.1/Ex4_1.sce b/3753/CH4/EX4.1/Ex4_1.sce
new file mode 100644
index 000000000..e6676bdef
--- /dev/null
+++ b/3753/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,15 @@
+//Example 4.1, Page number 4.32
+
+clc;clear;close
+
+// variable declaration
+r1 = 2;                // in radians
+r2 = 3;                // in radians
+d1 = 4;                // Converting from mm to radians
+d2 = 6;                // Converting from mm to radians
+
+// calculations
+D = (r2-r1)/(d2*10**3-d1*10**3)   // Divergence
+
+// Result
+printf("Divergence = %0.1e radian",D)
diff --git a/3753/CH4/EX4.2/Ex4_2.sce b/3753/CH4/EX4.2/Ex4_2.sce
new file mode 100644
index 000000000..b145e6ccc
--- /dev/null
+++ b/3753/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,19 @@
+//Example 4.2, Page number 4.32
+
+clc;clear;close
+
+// variable declaration
+C=3*10**8                    // The speed of light
+Lamda=6943                   // Wavelength
+T=300                        // Temperature in Kelvin
+h=6.626*10**-34              // Planck constant 
+k=1.38*10**-23               // Boltzmann's constant
+
+// Calculations
+
+V=(C)/(Lamda*10**-10)       // Frequency
+R=exp(h*V/(k*T))       // Relative population
+
+// Result
+printf("Frequency (V) = %0.2e Hz",V)
+printf("\nRelative Population = %.3e",R)
diff --git a/3753/CH4/EX4.3/Ex4_3.sce b/3753/CH4/EX4.3/Ex4_3.sce
new file mode 100644
index 000000000..39f301bb5
--- /dev/null
+++ b/3753/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,21 @@
+//Example 4.3, Page number 4.32
+
+clc;clear;close
+
+// variable declaration
+C=3*10**8                     // Velocity of light m/s
+W=632.8*10**-9                // wavelength in m
+P=2.3 
+t=1
+h=6.626*10**-34              // Planck constant 
+S=1*10**-6
+
+// Calculations
+V=C/W                        // Frequency
+n=((P*10**-3)*t)/(h*V)       // no.of photons emitted
+PD=P*10**-3/S                // Power density
+
+// Result
+printf("Frequency = %0.2e Hz",V)
+printf("\nno.of photons emitted = %0.2e photons/sec",n)
+printf("\nPower density = %0.1f kWm^-2",(PD/1000))
diff --git a/3753/CH4/EX4.4/Ex4_4.sce b/3753/CH4/EX4.4/Ex4_4.sce
new file mode 100644
index 000000000..9f88698ef
--- /dev/null
+++ b/3753/CH4/EX4.4/Ex4_4.sce
@@ -0,0 +1,14 @@
+//Example 4.4, Page number 4.33
+
+clc;clear;close
+
+// variable declaration
+h=6.626*10**-34              // Planck constant 
+C=3*10**8                    // Velocity of light
+E_g=1.44                     // bandgap 
+
+// calculations
+lamda=(h*C)*10**10/(E_g*1.6*10**-19)       // Wavelenght
+
+// Result
+printf("Wavelength = %.f Angstrom",(lamda))
diff --git a/3753/CH4/EX4.5/Ex4_5.sce b/3753/CH4/EX4.5/Ex4_5.sce
new file mode 100644
index 000000000..b9833acdf
--- /dev/null
+++ b/3753/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,12 @@
+//Example 4.5, Page number 4.33
+
+clc;clear;close
+
+// variable declaration
+W=1.55                       // wavelength
+
+// Calculations
+E_g=(1.24)/W                 // Bandgap in eV           
+
+// Result
+printf("Band gap = %0.1f eV",E_g)