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
>
>
>
>