<< Graphics`Graphics3D`
  
 (*  suche VRI4 in HCN *)

statVRI={
(* ########  best NULL: Agmin=3.8*10^-7  ################  *)
Point[{1.461425, 1.37312, 47.662853/90.0}] }

StatListVRI=Show[Graphics3D[{PointSize[0.03],statVRI}],
PlotRange->{{1.01,1.901},{1.3,2.301},{0.0,0.61}}]

path=<<chain.dat;
v4=ScatterPlot3D[path,Axes->True,(* PlotLabel->"     vri_4 ", *)
AxesLabel->{CN,CH,"    α/90"},AspectRatio->1.2,
PlotStyle->{Thickness[0.05]},
FormatType -> TraditionalForm,
TextStyle->{FontFamily ->"Arial",FontSize ->18}]

v4J=ScatterPlot3D[path,Axes->True,PlotJoined->True,
AxesLabel->{CN,CH,"    α/90"},AspectRatio->1.2,
PlotStyle->{Dashing[{0.01,0.01}],Thickness[0.002]},
FormatType -> TraditionalForm,
TextStyle->{FontFamily ->"Arial",FontSize ->18}]

bild=Show[v4,v4J,StatListVRI,
PlotRange->{{1.01,1.901},{1.3,2.301},{0.29,0.61}},
ViewPoint->{0.73,-4.4,0.2}]