summaryrefslogtreecommitdiff
path: root/2045/CH1/EX1.18/Ex1_18.sce
blob: 4207d9279665112fed2fe1406ac32d054fafe7e4 (plain)
1
2
3
4
5
6
7
8
9
10
11
//pagenumber 36 example 18
clear
na=1*10^16;//per cubic centimetre            correction in the book
ni=1.48*10^10;//per cubic centimetre
un=0.13*10^4;//centimetre square per velocity second
u=0.05*10^4;//centimetre square per velocity second
n=ni^2/na;
q=1/(1.6*10^-19*(un*n+(u*na)));
disp("resistivity   =   "+string((q))+"ohm centimetre");