| ListPlot[{{{1, 1}},{{2, 2}},
 {{3, 3}}},
 PlotStyle -> {{PointSize[0.04], Blue}, {PointSize[0.04],
 Purple}, {PointSize[0.04], Red}}]
 Так я задаю 3 точки, которые относятся к 3-м разным кривым.
 Вопрос в том, как вместо дисков поставить квадрат, треугольник и многогранник?
 
 |