summaryrefslogtreecommitdiff
path: root/1367/CH5/EX5.7/5_7.sce
blob: 75c7ed1047b38a7f2eee760210b390cd0eb01385 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Find Planar Density
//Ex:5.7
clc;
clear;
close;
r_po=1.7*10^-10;//radius of polonium in m
r_rh=1.34*10^-10;//radius of rhodium in m
r_cr=1.25*10^-10;//radius of chromium in m
a_po=2*r_po;//in m
a_rh=2*sqrt(2)*r_rh;//in m
a_cr=4*r_cr/sqrt(3);
p_po=1/a_po^2;// /sqm
disp(p_po,"Planar Density on [100] in Polonium (per sqm) = ");
p_rh=1.414/a_rh^2;// /sqm
disp(p_rh,"Planar Density on [110] in Rhodium (per sqm) = ");
p_cr=1.732/a_cr^2;// /sqm
disp(p_cr,"Planar Density on [111] in Chromium (per sqm) = ");