summaryrefslogtreecommitdiff
path: root/2045/CH1/EX1.14/Ex1_14.sce
blob: 4d1ec5efa914c4e1ca3780a6e1a8989baa2316b4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//pagenumber 33 example 14
clear
up=1800;//centimetre square per velocity second
un=3800;//centimetre square per velocity second

//(1) resistivity is 45 ohm
q=1.6*10^-19;//coulomb
ni=2.5*10^13;
sigma1=(un+up)*q*ni;
resist=1/sigma1;
disp("resistivity   =   "+string((resist))+"   ohm centimetre");
disp("resistivity equal to 45");
//(2) impurity added to extent of 1 atom per 10^9
n=4.4*10^22/10^9;

p1=ni^2/n;
sigma1=(n*un+p1*up)*q;
resist=1/sigma1;

disp("resistivity   =   "+string((resist))+"   ohm centimetre");
disp("resistivity equal to 32.4");