summaryrefslogtreecommitdiff
path: root/3753/CH7/EX7.1/Ex7_1.sce
blob: 586133e73a3290a119bdfbeae9150b5f8576fd55 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13

//Example number 7.1, Page number 7.12

clc;clear;close

// Variable declaration
R=poly([0],'R')
a=2*R // // unitless

// Results
disp(1/a^2,"i)Number of atoms per unit area of (100)plane=")
disp(1/sqrt(2)*a^2,"ii)Number of atoms per unit area of (110)plane=")
disp(1/sqrt(3)*a^2,"iii)Number of atoms per unit area of (111)plane=")