4 files changed, 35 insertions, 0 deletions
diff --git a/377/CH5/EX5.1/5_1.sce b/377/CH5/EX5.1/5_1.sce
new file mode 100644
index 000000000..3a329d4e3
--- /dev/null
+++ b/377/CH5/EX5.1/5_1.sce
@@ -0,0 +1,10 @@
+disp("nd/(n+nd) = 1/[((Nc/(2*Nd))*exp(-(Ec-Ef)/(K*T))+1]");
+Nc=2.8*10^19;
+Nd1=1*10^16;
+Nd2=1*10^18;
+b=0.045;  //say (Ec-Ef)=b
+c=0.026;  //sat K*T=c
+a=1/(((Nc/(2*Nd1))*exp((-b)/(c))+1));
+printf('\n The value of (nd/(n+nd)) for (10^16) is %f',a);
+d=1/(((Nc/(2*Nd2))*exp((-b)/(c))+1));
+printf('\n The value of (nd/(n+nd)) for (10^18) is %f',d);
+\ No newline at end of file
diff --git a/377/CH5/EX5.2/5_2.sce b/377/CH5/EX5.2/5_2.sce
new file mode 100644
index 000000000..b91c320f0
--- /dev/null
+++ b/377/CH5/EX5.2/5_2.sce
@@ -0,0 +1,10 @@
+ni=1.5*10^16;
+n=10^22;
+Nd=10^22;
+T=300;
+p=(ni^2)/n;
+printf('\n The value of p = %f',p);
+a=0.913;  //say a=me/m0;
+b=-log(10^22/(4.83*10^21*(T^1.5)*(a^1.5)))*0.026;  //say b=Ec-Ef
+printf('\n The value of Ec-Ef is %f eV',b);
+printf('\n The fermi energy is %f eV below the conduction band edge',b);
+\ No newline at end of file
diff --git a/377/CH5/EX5.3/5_3.sce b/377/CH5/EX5.3/5_3.sce
new file mode 100644
index 000000000..43beb567c
--- /dev/null
+++ b/377/CH5/EX5.3/5_3.sce
@@ -0,0 +1,7 @@
+disp("Ef-Ec = K*T*((log(n/Nc))+((1/sqrt(8))*(n/Nc)))");
+a=4.4;  //say n/Nc=a
+Nc=2.78*10^19;
+n=a*Nc;
+a1=4.51;
+n1=a*a1*10^17;
+printf('\n For GaAs, the density for degeneracy is %f',n1);
+\ No newline at end of file
diff --git a/377/CH5/EX5.4/5_4.sce b/377/CH5/EX5.4/5_4.sce
new file mode 100644
index 000000000..25ba35159
--- /dev/null
+++ b/377/CH5/EX5.4/5_4.sce
@@ -0,0 +1,8 @@
+disp("From Boltzmann approximation, n=Nc=2.78*10^19 cm^3");
+Nc=2.78*10^19;
+n=Nc*0.78;
+pi=3.14;
+a=0.65;  //say a=ξ(0)
+printf('\n The value of n form Joyce-Dixon approximation is %f',n);
+n1=2*a/sqrt(pi);
+printf('\n The value of n form graph is %f*Nc',n1);
+\ No newline at end of file