PlotLegend < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 17:34 Mo 05.11.2007 | | Autor: | Jtosik |
| Aufgabe | Hallo,
ich habe ein Plot mit dem Befehl ParametricPlot gemacht und möchte nun eine Legende einfügen. Habe es mit dem Befehl "PlotLegend -> " versucht, aber es kommt nur eine Fehlermeldung. Das Package "<< Graphics`Legend" habe ich auch schon geladen.
Kann mir vielleicht jmd helfen?
Danke im Voraus
Julide
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt. |
ParametricPlot[{{Radius[ϕ, 2 π/3] Cos[ϕ], Radius[ϕ,
2π/3] Sin[ϕ]}, {Sin[ϕ], Cos[ϕ]}}, {ϕ, 0, 2 π},
PlotStyle -> {{Hue[0.8], AbsoluteThickness[2]}, {Hue[1],
Dashing[{.01, .01}]}}, AspectRatio -> Automatic, Frame -> True,
GridLines -> Automatic]]
|
|
| |
|
Hallo und ![[willkommenmr]](/images/smileys/willkommenmr.png "[willkommenmr]") ,
ich habe schon an mehreren Stellen gelesen, dass PlotLegend nur mit Plot nutzbar sei. Deswegen musst du wohl den Befehl ShowLegend nutzen.
Ich habe das mal zusammengefummelt:
Needs["Graphics'Legend'"];
a = ParametricPlot[{{Radius[ϕ, 2 π/3]
Cos[ϕ], Radius[ϕ, 2π/3] Sin[ϕ]}, {Sin[ϕ], Cos[ϕ]}}, {
ϕ, 0, 2 π}, PlotStyle -> {{Hue[0.8], AbsoluteThickness[2]}, {Hue[1],
Dashing[{.01, .01}]}}, AspectRatio -> Automatic, Frame -> True, [mm] \
[/mm]
GridLines -> Automatic];
ShowLegend[a, {{{Graphics[{Red, Line[{{0, 0}, {5,
0}}]}], "Ein Kreis
"}}, LegendSize -> {0.7, 0.2},
LegendPosition -> {0, -0.85}, BaseStyle -> {
FontSize -> 12, FontWeight -> "Bold"}}];
Es basiert ![[]](/images/popup.gif) darauf, allerdings wird der Plot doppelt gezeichnet. Aber vielleicht kannst du das ja als Grundlage nutzen.
Gruß
Martin
|
|
|
|
