6 files changed, 93 insertions, 0 deletions
diff --git a/3710/CH5/EX5.1/Ex5_1.sce b/3710/CH5/EX5.1/Ex5_1.sce
new file mode 100644
index 000000000..60bc96751
--- /dev/null
+++ b/3710/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,11 @@
+//Example 5.1, Page Number 173
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+clc;
+T=2000 // In Kelvin
+v=5*(10**14) //Frequency In Hertz
+h=6.6*(10**-34) //Plancks Constant
+k=1.38*(10**-23) //Boltzman Constant
+
+R=exp((h*v)/(k*T))-1 
+R=fpround(R,2)
+mprintf("The Ratio of rates of spontaneous & stimulated emission is %0.2e",R);
diff --git a/3710/CH5/EX5.2/Ex5_2.sce b/3710/CH5/EX5.2/Ex5_2.sce
new file mode 100644
index 000000000..6b5cf48af
--- /dev/null
+++ b/3710/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,19 @@
+//Example 5.2, Page Number 176
+//Relative Populations of energy levels
+clc;
+T=300 //Given Room Temperature in Kelvin
+l=550*(10**-9) //Average Wavelength of Visible Radiation in meter
+h=6.6*(10**-34) //Planck's Constant in meter square kilogram per second
+c=3*(10**8) //Speed Of Light in meters per second
+k=1.38*(10**-23) //Boltzman Constant in meter square kilogram per second square Kelvin 
+e=1.6*(10**-19) //Charge of an Electron in Coulombs
+
+E=(h*c)/l //E is the given Energy Difference
+E1=E/e
+
+N=exp((-1*E)/(k*T)) //N is the ratio of N2 and N1
+
+mprintf("\tThe Given Energy Difference of the Two Levels is %.2f eV\n",E1);
+
+mprintf("\tThe Relative Population of the Energy Levels is %.2e\n",N);
+//The minor difference arising is due to a round off error
diff --git a/3710/CH5/EX5.3/Ex5_3.sce b/3710/CH5/EX5.3/Ex5_3.sce
new file mode 100644
index 000000000..8351bae2f
--- /dev/null
+++ b/3710/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,17 @@
+//Example 5.3, Page Number 184
+//Small signal gain coefficient
+clc;
+//For Nd:YAG
+t=230*(10**-6) //Spontaneous Lifetime in seconds
+l=1.06*(10**-6) //Wavelength in meter
+n=1.82 //Refractive Index
+w=3*(10**12) //Linewidth in Hertz
+h=6.6*(10**-34) //Plancks Constant in meter square kilogram per second
+
+B21=(l**3)/(8*%pi*h*t*(n**3)) //B21 is the Einstein Coefficient in metre cube per W second cube
+
+k=1
+
+kvs=(k*l*w)/(B21*h*n) //Small Signal Gain Coefficient per meter cube
+
+mprintf("Small Signal Gain Coefficient is %0.2e /meter cube",kvs);
diff --git a/3710/CH5/EX5.4/Ex5_4.sce b/3710/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..dadcd54b7
--- /dev/null
+++ b/3710/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,11 @@
+//Example 5.4, Page Number 205
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+clc;
+n2=3.6 //Refractive Index for GaAs
+n1=1 //Refractive Index for Air
+//From Fresnels Equation
+
+R=((n2-n1)/(n2+n1))**2
+R=fpround(R,2)
+
+mprintf("The Reflectance at a GaAs/Air Interface is %0.2f",R);
diff --git a/3710/CH5/EX5.5/Ex5_5.sce b/3710/CH5/EX5.5/Ex5_5.sce
new file mode 100644
index 000000000..77ce0a2a5
--- /dev/null
+++ b/3710/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,24 @@
+//Example 5.5, Page Number 209
+//Threshold Current Density
+clc;
+//For GaAs Junction
+l=0.84*(10**-6) //Wavelength in meter
+w=1.45*(10**13) //Linewidth in Hertz
+y=3.5*(10**3) //Loss Coefficient per meter
+n=3.6 //Refractive Index for GaAs
+q=1 //Quantam Efficiency
+le=300*(10**-6)//Length in meter
+d=2*(10**-6) //in metres
+R=0.32 //Reflectance
+c=3*(10**8) //Speed of light in m/s
+e=1.6*(10**-19) //Charge of electron in Coulombs
+
+v=c/l //Frequency
+
+k=y+((1/(2*le))*log1p(1/(R*R)))//k is the threshold gain 
+k=fpround(k,0)
+
+J=(8*%pi*w*e*(n**2)*d*k*(v**2))/(c**2)
+J=J*(10**-6)
+mprintf("\tThe Threshold Gain is %d /m\n",k)
+mprintf("\tThe Threshold Current Density is %.2f A/mm square\n",J)
diff --git a/3710/CH5/EX5.6/Ex5_6.sce b/3710/CH5/EX5.6/Ex5_6.sce
new file mode 100644
index 000000000..c8e68adeb
--- /dev/null
+++ b/3710/CH5/EX5.6/Ex5_6.sce
@@ -0,0 +1,11 @@
+//Example 5.6, Page Number 225
+//Efficiency of He-Ne Laser
+clc;
+i=1*(10**-2) //Current in Ampere
+V=2500 //in volts
+P=5*(10**-3) //Optical Output in Watt
+
+E=P/(i*V) //E is the overall Power Efficiency
+E=E*100
+mprintf("The Overall Power Efficiency is %0.2f percent ",E);
+