New in Wolfram Mathematica 6: Automated Computational Aesthetics  previous | next 
Automatic Visually Distinct Plot Markers
Mathematica 6 automatically picks visually distinct plot markers to distinguish different datasets.
In[1]:=

Click for copyable input
ListPlot[Table[BesselJ[n, x], {n, 4}, {x, 0, 15, .2}], 

 PlotMarkers -> Automatic, Joined -> True]
Out[1]=