summaryrefslogtreecommitdiff
path: root/539/CH4/EX4.1/Example_4_1.sce
blob: 079fe67e62441b0ce81548f4012f736a682827af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//Number of Vacancies Computation at a Specified temperature

clear;
clc;

printf("\tExample 4.1\n");

Na=6.023*10^23;      //Avogadro No.
den=8.4D+06;         //Density of Copper
A=63.5;              //Atomic weight of Copper

//No. of atomic site per cubic meter
N=Na*den/A;

//No. of vacancies at 1000 C
Qv=0.9;             //Activation energy in eV
k=8.62*10^-5;       //Boltzmann Constatnt in eV/K
T=1000+273;         //Temperature in K

Nv=N*exp(-Qv/(k*T));
printf("\nNo.of vacancies are %.1f * 10^25 /m^3",Nv/10^25);

//End