summaryrefslogtreecommitdiff
path: root/3401/CH6/EX6.6/Ex6_6.sce
blob: 1e0de9083daa8b5f706e0d0fa6f7b3750ff70170 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clc

T=300//K
k=8.617*10**-5//eV/K
e=1.6*10**-19 //C
n0=10^15 //cm^-3
p0=10^5 //cm^-3
ni=10^10 //cm^-3
deltan=10**13 //cm**-3
deltap=10**13 //cm**-3

//Ef-Efi=a
a=(k*T)*log(n0/ni)
disp(a,"fermi level for thermal equlibrium in eV is= ")

//Efn-Efi=b
b=(k*T)*log((n0+deltan)/ni)
disp(b,"quasi fermi level for electrons in eV is= ")

//Efi-Efp=c
c=(k*T)*log((p0+deltap)/ni)
disp(c,"quasi fermi level for holes in eV is= ")