clc;funcprot(0);//EXAMPLE 4.4
// Initialisation of Variable
a0=0.396;.........//Lattice parameter  of magnesium     oxide
h=1;..............//Because b is a [110] direction
k=1;..............//Because b is a [110] direction
l=0;............//Because b is a [110] direction
//CALCULATIONS
b=a0/sqrt(2);..........//The length of Burgers vector  in nm
disp(b,"The length of Burgers vector  in nm:")