(* 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] |