MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: PlotStyle and Markers

  • To: mathgroup at
  • Subject: [mg124858] Re: PlotStyle and Markers
  • From: Alexei Boulbitch <Alexei.Boulbitch at>
  • Date: Thu, 9 Feb 2012 05:43:14 -0500 (EST)
  • Delivered-to:

Hello everyone.  Is there a way to plot three functions with different

markers?  I know plotstyle has tiny - large sized dashes, but is there

a way to place diamond, square, circle, etc shapes to differentiate

the functions?  I'm also using the PlotLegend and I hope the markers

will also appear in the legend.


I write this as an addition to what I have already proposed and to address your present question concerning the legend.

If you will use my approach, then you need to make the legend yourself. Try this, for example:

Epilog -> Inset[Panel[Column[{

     Row[{Graphics[{Blue, Rectangle[]}, ImageSize -> 5],

       Style["   My first curve", 10, Blue]}],

     Row[{Graphics[{Purple, Polygon[{{1, 0}, {0, Sqrt[3]}, {-1, 0}}]},

         ImageSize -> 5], Style["   My second curve", 10, Purple]}],


         Polygon[Table[{Cos[2 \[Pi] k/6], Sin[2 \[Pi] k/6]}, {k, 0,

            5}]]}, ImageSize -> 5],

       Style["   My third curve", 10, Red]}]


  Scaled[{0.8, 0.8}]


Inser this epilog into the Show operator like this:

Show[{pl1,pl2,pl3}, Epilog->....]

Have further fun, Alexei

Alexei BOULBITCH, Dr., habil.


ZAE Weiergewan,

11, rue Edmond Reuter,

L-5326 Contern, LUXEMBOURG

Office phone :  +352-2454-2566

Office fax:       +352-2454-3566

mobile phone:  +49 151 52 40 66 44

e-mail: alexei.boulbitch at<mailto:alexei.boulbitch at>

  • Prev by Date: Re: Simply but handy question
  • Next by Date: Using ./ - having trouble understanding why it isn't more like a 'map' function
  • Previous by thread: Re: PlotStyle and Markers
  • Next by thread: Simply but handy question