(* file xtalrefine/luzzati.math -- Makes a Luzzati plot *)
(* R-factor error curves are plotted for errors between *)
(* 0.5 and 0.2 A (in 0.05 intervals). *)
(* The error table information is taken from Luzzati's paper. *)
Off[General::spell1];
$DefaultFont={"Times-Roman",13};
(* Change the name of the list file. *)
(*===>*) dd= <{Range[min ,
max,0.05],Range[0.,0.6,0.05]},
Axes->True,
AxesOrigin->{min ,0.},AspectRatio->1,
PlotRange->
{{min ,max +0.05 },{0.,0.7}},
AxesLabel->{"1/d","R factor"},
PlotLabel->"Luzzati Plot (0.5 to 0.2 )" ]];