Re: PlotStyle and Markers

*To*: mathgroup at smc.vnet.net*Subject*: [mg124858] Re: PlotStyle and Markers*From*: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>*Date*: Thu, 9 Feb 2012 05:43:14 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

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. Thanks 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]}], Row[{Graphics[{Red, 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. IEE S.A. 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 iee.lu<mailto:alexei.boulbitch at iee.lu>