clc;funcprot(0);//EXAMPLE 4.5
// Initialisation of Variables
a01=0.36151;......//The lattice parameter of copper in nm
//CALCULATIONS
F=sqrt(2)*a01;........//Face Diagonal of copperin nm
b=(1/2)*(F);..........//The length of the Burgers vector, or the repeat distance in nm
disp(F,"Face Diagonal of copperin nm:")
disp(b,"The length of the Burgers vector in nm:")