blob: 679a5426b0378f52bf1b2f05ad1b5613b6282247 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
//Given that
No = 10^16 //number per m^3
T = 298 //in K
fac = 10^6
density = 2330 //in kg/m^3
Na = 6.023*10^23
M = 28.1*10^-3 //in kg/mol
//Sample Problem 42-6
pt = mopen('Example42_6_result.txt', 'wt')
mfprintf(pt, '**Sample Problem 42-6**\n')
Np = fac*No + No
NSi = density*Na/M
fraction = Np/NSi
mfprintf(pt, 'The fraction of Phosphorus atoms with Silicon atoms is equal to %e', fraction)
mclose(pt)
|
