blob: 145a9e85808f64d692d87239cf1734cf7cc18cb4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
//Chapter 10 : Crystallography and Crystal Imperfections
clear;
//Variable declaration
r=1.278 //atomic weigth
N0=6.02*10**23 //Avagadro's No.
no=4 //No. of atoms/cell
A=63.54 //Atomic weigth
//Calculations
a=2*sqrt(2)*r
rho=(no*A)/(N0*a**3)/10**-24
//Result
mprintf("Density of the material= %.2f gm/cc",rho)
|
