RosettaCodeData/Task/Demings-funnel/Mathematica/demings-funnel-3.math
2023-07-01 13:44:08 -04:00

1 line
136 B
Text

ListPlot[MarblePositions[#][Transpose[{dxs,dys}]]&/@Range[4],PlotLegends->PointLegend[{1,2,3,4}],AspectRatio->Automatic,ImageSize->600]