summaryrefslogtreecommitdiff
path: root/1367/CH5/EX5.10/5_10.sce
blob: 311720bfb65287c6f7b4bab4da0b47f75c8f535b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Find Dimension of unit cell
//Ex:5.10
clc;
clear;
close;
w=0.0708;//wavelength in nm
h=1;
k=0;
l=0;
s=0.0132;//a common divisor i.e.sin^2(theta)=0.0132
a=sqrt((w^2*(h^2+k^2+l^2))/(4*s));//in nm
a1=10^3*a;//in pm
disp(a1,"Dimension of unit cell (in Picometer) = ");