7 files changed, 118 insertions, 0 deletions
diff --git a/3401/CH8/EX8.1/Ex8_1.sce b/3401/CH8/EX8.1/Ex8_1.sce
new file mode 100755
index 000000000..2f8674cd6
--- /dev/null
+++ b/3401/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,15 @@
+clc
+
+T=300// K
+ni=1.5*10^10 //cm^-3
+k=8.617*10^-5 //eV/K
+Nd=10^16 //cm^-3
+Va=0.60 //V
+
+//pn=pn0*exp(e*Va/k*T)
+pn0=ni^2/Nd
+disp(pn0,"thermal equlibrium minority carrier hole concentration in cm^-3 is= ")
+
+pn=pn0*exp(Va/(k*T))
+disp(pn,"minority carrier hole concentration in cm^-3 is= ")
+
diff --git a/3401/CH8/EX8.2/Ex8_2.sce b/3401/CH8/EX8.2/Ex8_2.sce
new file mode 100755
index 000000000..e99028b56
--- /dev/null
+++ b/3401/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,16 @@
+clc
+
+T=300//K
+Na=10**16 //cm^-3
+Nd=10**16 //cm^-3
+ni=1.5*10**10 //cm^-3
+Dn=25 //cm^2/s
+Dp=10 //cm^2/s
+taup0=5*10^-7 //s
+taun0=5*10^-7 //s
+epsilon=11.7
+e=1.6*10**-19 //C
+
+//J=(E*D*np0/Ln)+(E*D*pn0/Lp)
+Js=e*ni^2*[(1/Na)*sqrt(Dn/taun0)+(1/Nd)*sqrt(Dp/taup0)]
+disp(Js,"reverse saturation current density in A/cm^2 is=")
diff --git a/3401/CH8/EX8.3/Ex8_3.sce b/3401/CH8/EX8.3/Ex8_3.sce
new file mode 100755
index 000000000..849184c85
--- /dev/null
+++ b/3401/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,23 @@
+clc
+
+T=300 //K
+k=8.617*10**-5//eV/K
+e=1.6*10**-19 //C
+Jp=5 //A/cm^2
+Jn=20 //A/cm^2
+Va=0.65 //V
+ni=1.5*10**10 //cm^-3
+Dn=25 //cm^2/s
+Dp=10 //cm^2/s
+taup0=5*10^-7 //s
+taun0=5*10^-7 //s
+
+//Jn=(e*Dn*np0/Ln)*[exp(e*Va/k*T)-1]==e*sqrt(Dn/taun0)*(ni^2/Na)*[exp(e*Va/k*T)-1]
+
+Na=e*sqrt(Dn/taun0)*(ni^2/Jn)*[(exp(Va/(k*T)))-1]
+disp(Na,"Na elctron diffusion current density in cm^-3 is= ")
+
+//Jp=(e*Dp*pn0/Lp)*[exp(e*Va/k*T)-1]==e*sqrt(Dp/taup0)*(ni^2/Nd)
+
+Nd=e*sqrt(Dp/taup0)*(ni^2/Jp)*[(exp(Va/(k*T)))-1]
+disp(Nd,"Nd hole diffusion current density in cm^-3 is= ")
diff --git a/3401/CH8/EX8.4/Ex8_4.sce b/3401/CH8/EX8.4/Ex8_4.sce
new file mode 100755
index 000000000..06b5520d9
--- /dev/null
+++ b/3401/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,17 @@
+clc
+
+T=300 //K
+k=8.617*10**-5//eV/K
+e=1.6*10**-19 //C
+Va=0.65 //V
+Js=4.15*10^-11// A/cm^2
+Nd=10**16 //cm**-3
+un=1350 //cm^2/Vs
+Jn=3.29 //A/cm^2
+
+J=Js*[exp(Va/(k*T))-1]
+disp(J,"current density in A/cm^2 is= ")
+
+E=Jn/(e*Nd*un)
+disp(E,"electric field in V/cm is= ")
+
diff --git a/3401/CH8/EX8.5/Ex8_5.sce b/3401/CH8/EX8.5/Ex8_5.sce
new file mode 100755
index 000000000..a59de2b1e
--- /dev/null
+++ b/3401/CH8/EX8.5/Ex8_5.sce
@@ -0,0 +1,14 @@
+clc
+
+T1=300 //K
+T2=310 //K
+k=8.617*10**-5//eV/K
+e=1.6*10**-19 //C
+Va1=0.60 //V
+Va2=0.5827 //V
+E=1.12 //eV
+
+//J=exp(-Eg/(k*T))*exp((e*Va)/(k*T))
+
+a=([e*Va2*k*T1]+[e*Va1*k*T2])/((k*T1)-(k*T2))
+disp(a)
diff --git a/3401/CH8/EX8.6/Ex8_6.sce b/3401/CH8/EX8.6/Ex8_6.sce
new file mode 100755
index 000000000..f13c2a04c
--- /dev/null
+++ b/3401/CH8/EX8.6/Ex8_6.sce
@@ -0,0 +1,15 @@
+clc
+
+T=300 //K
+k=8.617*10**-5//eV/K
+e=1.6*10**-19 //C
+Vt=0.0259 //v
+lp0=10^-3 //A
+taup0=10^-7 //s
+Idq=1*10**-3//A
+
+Cd=(1*lp0*taup0)/(2*Vt)
+disp(Cd,"diffusion capacitance in F is= ")
+
+vd=(Vt/Idq)
+disp(vd,"diffusion in ohm is= ")
diff --git a/3401/CH8/EX8.7/ex8_7.sce b/3401/CH8/EX8.7/ex8_7.sce
new file mode 100755
index 000000000..c6c994d59
--- /dev/null
+++ b/3401/CH8/EX8.7/ex8_7.sce
@@ -0,0 +1,18 @@
+clc
+
+T=300 //K
+k=8.617*10**-5//eV/K
+e=1.6*10**-19 //C
+Na=10**16 //cm^-3
+Nd=10**16 //cm^-3
+ni=1.5*10**10 //cm^-3
+tau0=5*10^-7 //s
+eps=11.7
+//Vbr+Vr=z
+z=5 //V
+
+W=sqrt(((2*eps))*((Na+Nd)/Na*Nd)*z)
+disp(W,"depletion width in cm is= ")//       textbook ans is wrong
+
+Jgen=(e*ni*W)/(2*tau0)
+disp(Jgen,"generation current density in A/cm^2 is= ")//       textbook ans is wrong