(* file geomanal/distance_plot.math                           *)
             (* mathematica file -- Interprets the 2-D matrices written by *)
             (* the distance_plot.inp example file                         *)
Off[General::spell1];
$DefaultFont={"Times-Roman",13};

(*===>*)
  << distance_plot.matrix;          (* Specify the file name of the matrix *)
                                    (* written by X-PLOR.                  *)


densplot = 
  ListDensityPlot[
    matrix,
    PlotRange -> {0,12},             (* Plot distances between 0 and 12 A. *)
    Mesh -> False ]