summaryrefslogtreecommitdiff
path: root/3537/CH5/EX5.1/Ex5_1.sce
blob: 5d279ddc93eaf883e9d7f1288d01f8df2eb4e4f5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//Example 5_1
clc();
clear;
//To calculate the number of atoms per meter square of plane
//For (100) Plane
a=2
noofatomspercell=1/4*2*a
noofatomsperunitarea=noofatomspercell/a^2   //units in Terms of R
printf("Number of atoms per unit area of 100 plane %.2f*R^-2",noofatomsperunitarea)
//For (110) Plane
a=2
noofatomspercell=1/4*2*a
noofatomsperunitarea=noofatomspercell/(sqrt(2)*a^2)   //units in Terms of R
printf("\nNumber of atoms per unit area of 110 plane %.2f*R^-2",noofatomsperunitarea)
//For (111) Plane
a=2
noofatomspercell=1/4*2*a
bc=sqrt(2)*a
ad=(sqrt(3)/2)*sqrt(2)*a
area=0.5*bc*ad
noofatomsperunitarea=noofatomspercell/area   //units in Terms of R
printf("\nNumber of atoms per unit area of 110 plane %.2f*R^-2",noofatomsperunitarea)