This file is a sample file used to plot the output of ' highdim.xmds' in the latest version of Mathematica.  After running the program, use the command :
  > xsil2graphics - e highdim.xsil

Then run the cell below after altering the directory path to your local directory.

SetDirectory["/Users/joe/Applications/xmds/xmds-devel/examples"];

<<highdim.nb

ListPlot3D[atoms1,PlotRange->All,DataRange->{{Min[x1],Max[x1]},{Min[t1],Max[t1]}}]

Manipulate[ListPlot3D[Table[atomsr3[[t,x,i,j]],{i,1,Length[y3]},{j,1,Length[z3]}],PlotRange->All],{x,1,Length[x3],1},{t,1,Length[t3],1}]

Manipulate[ListPlot3D[Table[moleculesr3[[t,x,i,j]],{i,1,Length[y3]},{j,1,Length[z3]}],PlotRange->All],{x,1,Length[x3],1},{t,1,Length[t3],1}]