summaryrefslogtreecommitdiff
path: root/2309/CH5/EX5.a.6/A_Ex5_6.sce
blob: 1092c4743fc2a25e1b367484f360cc66f586c577 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// Chapter 5 additional Example 6
//==============================================================================
clc;
clear;
// input data
a       = 4.3*10^-10;      // Lattice constant in Å
p       = 960;            // Density of crystal in kg/m^3
A       = 23;               // Atomic wt
N       = 6.023*10^26;      // avogadros no in atoms/kilomole

//Calculations

n       = (p*N*(a^3))/A;      // No. of atoms per unit cell

// Output
mprintf('No. of atoms per unit cell = %3.0f (BCC)',n);
//==============================================================================