diff options
Diffstat (limited to '3440/CH1')
| -rw-r--r-- | 3440/CH1/EX1.2/Ex1_2.sce | 11 | ||||
| -rw-r--r-- | 3440/CH1/EX1.4/Ex1_4.sce | 18 |
2 files changed, 29 insertions, 0 deletions
diff --git a/3440/CH1/EX1.2/Ex1_2.sce b/3440/CH1/EX1.2/Ex1_2.sce new file mode 100644 index 000000000..af728bfaf --- /dev/null +++ b/3440/CH1/EX1.2/Ex1_2.sce @@ -0,0 +1,11 @@ +clc
+
+T=300//K
+a=5.43*10**-8//meter
+w=28.09//g/mol..atomic weight
+A=6.02*10^23 //atoms/mol....Avogadro's no.
+s=8/a^3
+disp(s,"atoms per unit cell in atoms/cm^3 is")
+d=s*w/A
+disp(d,"density in g/cm^3 is")
+
diff --git a/3440/CH1/EX1.4/Ex1_4.sce b/3440/CH1/EX1.4/Ex1_4.sce new file mode 100644 index 000000000..933d04317 --- /dev/null +++ b/3440/CH1/EX1.4/Ex1_4.sce @@ -0,0 +1,18 @@ +clc
+
+T=300 //K
+Nd=10**16//atoms/cm^3
+Nc=2.86*10**19//cm^-3
+ni=9.65*10**9//cm^-3
+k=8.617*10^-5 //eV/K
+e=1.6*10**-19 //C
+n=Nd
+disp(n,"in cm^-3 is")
+p=ni^2/Nd
+disp(p,"in cm^-3 is")
+//Ec-Ef=z
+z=k*T*log(Nc/Nd)
+disp(z,"fermi level measured from bottom of conduction band in eV is")
+//Ef-Ei=y
+y=k*T*log(Nd/ni)
+disp(y,"Fermi level measured from the intrinsic fermi level in eV is")
|