Return Map

(* Data Driven Return Map *)

Off[General::spell];

Off[General::spell1];

dlst = {};

(* paste the data between the {} in dlst = {}, comma separated numbers *)

ptlst = {PointSize[0.01]};

Do[ptlst = Flatten[{ptlst,Point[{dlst[[i]],dlst[[i+1]]}]}], {i,1,Length[dlst]-1}];

xmin = Min[dlst];

xmax = Max[dlst];

Show[Graphics[{Line[{{xmin,xmin},{xmax,xmin},{xmax,xmax}, {xmin,xmax},{xmin,xmin}}], Line[{{xmin,xmin},{xmax,xmax}}],ptlst}], PlotRange->{{xmin,xmax},{xmin,xmax}}, AspectRatio->1]