Hallo,
Dein deutsch ist doch prima.
Wie w"are es alles mit SequenceForm[] zu verbinden ?
graph = Plot[{Sin[x], Sin[x]/x}, {x, -2\[Pi], 2\[Pi]},
PlotStyle -> {RGBColor[0, 0, 0], RGBColor[1, 0, 0],
RGBColor[0, 0, 1]},
FrameLabel ->
{SequenceForm["x Achse ",
StyleForm["_______ Sinus ", FontColor -> RGBColor[0, 0, 0]],
StyleForm["- - - - Sinc ", FontColor -> RGBColor[1, 0, 0]]],
""}];
wobei ich nicht sicher bin ob
Needs["Graphics`Legend`"]
graph = Plot[{Sin[x], Sin[x]/x, Cos[x]}, {x, -2\[Pi], 2\[Pi]},
PlotStyle -> {RGBColor[0, 0, 0], RGBColor[1, 0, 0],
RGBColor[0, 0, 1]},
PlotLegend ->
{StyleForm["Sinus",
FontColor -> RGBColor[0, 0, 0]],
StyleForm["Sinc", FontColor -> RGBColor[1, 0, 0]],
StyleForm["Cosinus", FontColor -> RGBColor[0, 0, 1]]}];
nicht wesentlich besser aussehen w"urde.
Gruss
Jens
Arie Veltman wrote:
>
> Liebe Mathematica Freunde,
> ich entschuldige mich fuer mein Deutsch schon im Voraus :)
>
> Ich möchte gerne eine Grafik machen mit ueberschrift in verschiedene
> Farben, die uebereinstimmen mit den Linien im Grafik.
> Ich versuchte es mit
>
> AxesLabel->{Hoek, StyleForm["S ___",redFont] en StyleForm[" g - - -
> ",yellowFont]}
>
> um volgendes zu bekommen: S ___ en g - - -
>
> Was Mathematica aber daraus macht ist: en g- - - S ___
>
> also, der Reihenfolge stimmt nicht ueberein mit der den ich haben moechte.
> redFont und yellowFont sind definiert wie:
> redFont=FontColor->RGBColor[1,0,0];
> yellowFont=FontColor->RGBColor[1,0.95,0];
>
> Kann eine(r) mich melden wie ich dieses Problem loese?
>
> Freundlichem Gruss,
> arie veltman
|