5 files changed, 119 insertions, 0 deletions
diff --git a/3763/CH9/EX9.1/Ex9_1.sce b/3763/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..43b2d6347
--- /dev/null
+++ b/3763/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,23 @@
+clear
+//
+//
+//
+
+//Variable declaration
+ni1=2.5*10**19    //number of electron hole pairs
+T1=300     //temperature(K)
+Eg1=0.72*1.6*10**-19    //energy gap(J)
+k=1.38*10**-23     //boltzmann constant
+T2=310    //temperature(K)
+Eg2=1.12*1.6*10**-19    //energy gap(J)
+
+//Calculation
+x1=-Eg1/(2*k*T1)
+y1=(T1**(3/2))*exp(x1)
+x2=-Eg2/(2*k*T2)
+y2=(T2**(3/2))*exp(x2)
+ni=ni1*(y2/y1)          //number of electron hole pairs
+
+//Result
+printf("\n number of electron hole pairs is %0.2f  *10**16 per cubic metre",ni/10**16)
+printf("\n answer varies due to rounding off errors")
diff --git a/3763/CH9/EX9.2/Ex9_2.sce b/3763/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..4f653d3a7
--- /dev/null
+++ b/3763/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,32 @@
+clear
+//
+//
+//
+
+//Variable declaration
+w=72.6    //atomic weight
+d=5400    //density(kg/m**3)
+Na=6.025*10**26    //avagadro number
+mew_e=0.4    //mobility of electron(m**2/Vs)
+mew_h=0.2    //mobility of holes(m**2/Vs)
+e=1.6*10**-19
+m=9.108*10**-31    //mass(kg)
+ni=2.1*10**19      //number of electron hole pairs
+Eg=0.7    //band gap(eV)
+k=1.38*10**-23    //boltzmann constant
+h=6.625*10**-34    //plancks constant
+T=300     //temperature(K)
+
+//Calculation
+sigmab=ni*e*(mew_e+mew_h)    //intrinsic conductivity(ohm-1 m-1)
+rhob=1/sigmab     //resistivity(ohm m)
+n=Na*d/w     //number of germanium atoms per m**3
+p=n/10**5   //boron density
+sigma=p*e*mew_h
+rho=1/sigma
+
+//Result
+printf("\n intrinsic conductivity is %0.3f  *10**4 ohm-1 m-1",sigma/10**4)
+printf("\n intrinsic resistivity is %0.3f  *10**-4 ohm m",rho*10**4)
+printf("\n answer varies due to rounding off errors")
+printf("\n number of germanium atoms per m**3 is %0.1f  *10**28",n/10**28)
diff --git a/3763/CH9/EX9.3/Ex9_3.sce b/3763/CH9/EX9.3/Ex9_3.sce
new file mode 100644
index 000000000..5851ec34c
--- /dev/null
+++ b/3763/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.6*10**-19
+RH=3.66*10**-4    //hall coefficient(m**3/coulomb)
+sigma=112      //conductivity(ohm-1 m-1)
+
+//Calculation
+ne=3*%pi/(8*RH*e)    //charge carrier density(per m**3)
+mew_e=sigma/(e*ne)      //electron mobility(m**2/Vs)
+
+//Result
+printf("\n charge carrier density is %0.0f  *10**22 per m**3",ne/10**22)
+printf("\n electron mobility is %0.3f  m**2/Vs",mew_e)
diff --git a/3763/CH9/EX9.4/Ex9_4.sce b/3763/CH9/EX9.4/Ex9_4.sce
new file mode 100644
index 000000000..676f1888b
--- /dev/null
+++ b/3763/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,23 @@
+clear
+//
+//
+//
+
+//Variable declaration
+mew_e=0.13    //mobility of electron(m**2/Vs)
+mew_h=0.05    //mobility of holes(m**2/Vs)
+e=1.6*10**-19
+ni=1.5*10**16      //number of electron hole pairs
+N=5*10**28
+
+//Calculation
+sigma1=ni*e*(mew_e+mew_h)    //intrinsic conductivity(ohm-1 m-1)
+ND=N/10**8
+n=ni**2/ND
+sigma2=ND*e*mew_e     //conductivity(ohm-1 m-1)
+sigma3=ND*e*mew_h     //conductivity(ohm-1 m-1)
+
+//Result
+printf("\n intrinsic conductivity is %0.3f *10**-3 ohm-1 m-1 %0.3f ",sigma1*10**3,sigma2)
+printf("\n conductivity during donor impurity is %0.3f  ohm-1 m-1",sigma2)
+printf("\n conductivity during acceptor impurity is %0.0f  ohm-1 m-1",sigma3)
diff --git a/3763/CH9/EX9.5/Ex9_5.sce b/3763/CH9/EX9.5/Ex9_5.sce
new file mode 100644
index 000000000..105d2b746
--- /dev/null
+++ b/3763/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,24 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.6*10**-19
+Eg=0.72    //band gap(eV)
+k=1.38*10**-23    //boltzmann constant
+T1=293     //temperature(K)
+T2=313     //temperature(K)
+sigma1=2    //conductivity(mho m-1)
+
+//Calculation
+x=(Eg*e/(2*k))*((1/T1)-(1/T2))
+y=(x/2.303)
+
+z=(log10(sigma1))
+
+log_sigma2=y+z
+sigma2=10**log_sigma2     //conductivity(mho m-1)
+
+//Result
+printf("\n conductivity is %0.2f  mho m-1",sigma2)