Re: A nice and customized legend within Manipulate

*To*: mathgroup at smc.vnet.net*Subject*: [mg128578] Re: A nice and customized legend within Manipulate*From*: "Eduardo M. A. M. Mendes" <emammendes at hotmail.com>*Date*: Mon, 5 Nov 2012 18:40:41 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <5F5696D639DA7D4C842D85A250023D871E89397D@DB3PRD0710MB393.eurprd07.prod.outlook.com>

Hi Alexei Many many thanks. Ed On Nov 5, 2012, at 6:40 AM, Alexei Boulbitch <alexei.boulbitch at iee.lu> wrote: > Hello > > I need to create a cdf document as a standalone file that can be used in > a computer without Mathematica. There is quite a few plots in the doc > and I need to add nice legends to it. At first I tried the Legend > package but I found the result awful and worse than that it breaks the > standalone cdf (something to do with Needs and Get or the like). > > It seems that I need to add a initialization code within Manipulate but > I have no idea on how to do it. Could someone help me with an example, > please? > > Finally, is there a simple way to create nice legends? I saw several > posts on the web but could not gather much from them. A nice and simple > example (for a newbie) will help me a lot. > > Many thanks > > Ed > > Hi, Ed, > > Try this: > > Plot[{x, x^2}, {x, -10, 10}, PlotRange -> All, > PlotStyle -> {Blue, Red}, > > (* Here the legend starts*) > Epilog -> > Inset[Grid[{{Graphics[{Blue, Line[{{0, 0}, {1, 0}}]}, > ImageSize -> {20, 20}], > Style["First line", > 14]}, {Graphics[{Red, Line[{{0, 0}, {1, 0}}]}, > ImageSize -> {20, 20}], Style["Second line", 14]}}, > Alignment -> {Left, Center}, Spacings -> 0], {5, 80}] > (* The end of the legend *) > ] > > and this: > > (* These are two lists to plot *) > lst1 = Table[{x, x}, {x, -10, 10, 0.5}]; > lst2 = Table[{x, x^2}, {x, -10, 10, 0.5}]; > (* End of lists definition *) > > ListPlot[{lst1, lst2}, PlotRange -> All, PlotStyle -> {Blue, Red}, > > (* Here the legend starts*) > Epilog -> > Inset[Panel[ > Grid[{{Graphics[{Blue, Point[{0, 0}]}, ImageSize -> {20, 20}], > Style["First list", 14]}, {Graphics[{Red, Point[{0, 0}]}, > ImageSize -> {20, 20}], Style["Second list", 14]}}, > Alignment -> {Left, Center}, Spacings -> 0], > ImageSize -> {105, 80}], {4, 85}] > (* The end of the legend *) > ] > > Have 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 > > > >