7 files changed, 78 insertions, 0 deletions
diff --git a/374/CH5/EX5.1.b/51b.sci b/374/CH5/EX5.1.b/51b.sci
new file mode 100644
index 000000000..149c1f005
--- /dev/null
+++ b/374/CH5/EX5.1.b/51b.sci
@@ -0,0 +1,9 @@
+//chapter 5 example 1//
+clc
+clear
+//band gap energy=Eg,voltage applied=V,total effeciency of an injection laser=nT//
+Eg=1.43;//in ev//
+V=2.5;//in volts//
+nT=0.18;
+ne=((nT*Eg)/V)*100;
+printf("\n external power efficiency=%f percent\n",ne)
+\ No newline at end of file
diff --git a/374/CH5/EX5.1/51.sci b/374/CH5/EX5.1/51.sci
new file mode 100644
index 000000000..2e18db8fb
--- /dev/null
+++ b/374/CH5/EX5.1/51.sci
@@ -0,0 +1,15 @@
+//chapter 5 example 1//
+clc
+clear
+//length of optical cavity=l,widt=w,refractive index=n,gain factor=B,loss coeffcient=A,threshold current density=Jth,threshold current required=Ith,refractive index of Ga As-air interface=R1//
+n=3.8;//refractive index//
+R1=((n-1)^2)/((n+1)^2);
+B=20*(10^-3);//in area by centimeter cube//
+A=10;//per cm//
+l=200*(10^-4);//in cm//
+w=100*(10^-4);//in cm//
+k=1/R1;
+Jth=(A+(log(k))/l)/B;
+printf("\n threshold current density=%f A cm-2\n",Jth);
+Ith=Jth*l*w;
+printf("\n threshold current required=%f mA\n",Ith);
+\ No newline at end of file
diff --git a/374/CH5/EX5.2.a/52a.sci b/374/CH5/EX5.2.a/52a.sci
new file mode 100644
index 000000000..1518fabd3
--- /dev/null
+++ b/374/CH5/EX5.2.a/52a.sci
@@ -0,0 +1,9 @@
+//chapter 5 example 2//
+clc
+clear
+//band gap energy=Eg,total efficiency=nT,voltage applied=V,external efficiency=ne//
+Eg=1.43;//in ev//
+V=2.5;//in volts//
+nT=0.20;
+ne=((nT*Eg)/V)*100;//external efficiency//
+printf("\n external efficiency=%f percent\n",ne)
diff --git a/374/CH5/EX5.2/52.sci b/374/CH5/EX5.2/52.sci
new file mode 100644
index 000000000..29732231d
--- /dev/null
+++ b/374/CH5/EX5.2/52.sci
@@ -0,0 +1,9 @@
+//chapter 5 example 2//
+clc
+clear
+//hole concentration=Pn,minority carrier life time=Tr//
+Br=7.21*(10^-10);
+Pn=10^18;//in per cm cube//
+Tr=((Br*Pn)^-1)*(10^9);//minority carrier life time//
+printf("\n minority carrier life time=%f *(10^-9) sec \n",Tr);
+
diff --git a/374/CH5/EX5.3.a/53a.sci b/374/CH5/EX5.3.a/53a.sci
new file mode 100644
index 000000000..1d555b353
--- /dev/null
+++ b/374/CH5/EX5.3.a/53a.sci
@@ -0,0 +1,16 @@
+//chapter 5 example 3a//
+clc
+clear
+//threshold temperature=To,ratio of current densities=R,current density=Jth,curren density at 20 deg =J1,current density at 80deg=J2//
+//J1=Jth*(exp((273+20)/160))//
+//J2=Jth*(exp((273+80)/160))//
+K1=(exp((273+20)/160));
+K2=(exp((273+80)/160));
+R=K2/K1;//for AlGaAs//
+printf("\n ratio of current densities for AlGaAs=%f\n",R)
+//J1=Jth0*exp(273+20)/55/
+//J2=Jtho(exp((273+80)/55//
+K1a=(exp((273+20)/55));
+K2a=(exp((273+80)/55));
+R1=K2a/K1a;//for AlGaAsp//
+printf("\n ratio of current densities for AlGaAsp=%f\n",R1)
+\ No newline at end of file
diff --git a/374/CH5/EX5.4.a/54a.sci b/374/CH5/EX5.4.a/54a.sci
new file mode 100644
index 000000000..85612bfc9
--- /dev/null
+++ b/374/CH5/EX5.4.a/54a.sci
@@ -0,0 +1,11 @@
+//chapter 5 exmaple 4a//
+clc
+clear
+//number of longitudnal modes=K,refractive index=n1,length of the cavity in the laser=L,wavelength of the device=l,seperation wavelength between two modes=dl//
+K=1700;
+n1=3.6;
+l=0.85*(10^-6);//in mts//
+L=((K*l)/(2*n1))*(10^6);
+printf("\n length of the cavity in the laser=%f micro meters\n",L)
+dl=((l^2)/(2*n1*L))*(10^15);//seperation wavelength between modes//
+printf("\n seperation wavelength between modes=%f micro meters\n",dl)
+\ No newline at end of file
diff --git a/374/CH5/EX5.4/54.sci b/374/CH5/EX5.4/54.sci
new file mode 100644
index 000000000..bd73fa4b8
--- /dev/null
+++ b/374/CH5/EX5.4/54.sci
@@ -0,0 +1,9 @@
+//chapter 5 example 4//
+clc
+clear
+//length of cavity=L,refractive index of GaAs=n1,wavelength=l,seperation wavelength between two mode=dl//
+n1=3.6;//refractive index//
+l=0.85*(10^-6);//wavelength//
+L=200*(10^-6);//length of cavity//
+dl=(l^2)/(2*n1*L)*(10^9);//seperation wavelength between two mode//
+printf("\n seperation wavelength between two mode=%f nm\n",dl)
+\ No newline at end of file