summaryrefslogtreecommitdiff
path: root/3828/CH10/EX10.2/Ex10_2.sce
blob: 28bd4f961348dcdd00384ba51334da14463585ed (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Chapter 10 : Crystallography and Crystal Imperfections

clear;

//Variable declaration
rho=7.86*10**3        //density of material
n=2                   //No. of atoms/cell
A=55.85               //Atomic weigth
No=6.023*10**26       //Avagadro's No.

//Calculations
a=((n*A)/(No*rho))**(1/3)/10**-10

//Result
mprintf("Lattice parameter a= %.5f*10**-10 m",a)