> From owner-dmug@XXXXXXX.ch Mon Oct 20 12:42 MET 1997
> Date: Wed, 15 Oct 1997 15:39:37 +0200
> From: mewald <mewald@XXXXXXX.DE>
> Mime-Version: 1.0
> To: dmug@XXXXXXX.ch
> Subject: Grafische Darstellung
> X-Mime-Autoconverted: from 8bit to quoted-printable by serv01.aet.tu-cottbus.de id PAA14024
> Content-Transfer-Encoding: 8bit
> X-MIME-Autoconverted: from quoted-printable to 8bit by suncom.rz.hu-berlin.de id MAA13851
>
> Hallo Mathematica-DMUG-Leser!
>
> Ich habe folgendes Problem,
> bei der grafischen Darstellung von Funktionen über große Bereiche einer
> Variablen (von 10^3 bis 10^7) mit LogLinearPlot (Mathematica 3.0) werden
> die Skalenteilstriche auf der x-Achse wie folgt beschriftet:
> 1000 10000 100000 10^6 10^7.
> Eine durchgehende Darstellung im wissenschaftlichen Format wäre hier
> besser. Ich habe bisher dafür noch keine Lösung gefunden und würde mich
> freuen,wenn jemand eine weiß.
>
> Mit freundlichen Grüßen Manfred Mewald.
>
>
Hallo Manfred Mewald,
auch in LogLinearPlot sind die Ticks auf Automatic gesetzt. Will man das gezielt veraendern, muss man sie setzen. Die
allgemeinste Form ist :
Ticks->{position,label,{positive length,negative length},{style}}
z.B.
1.Ticks->{{{-5,-5},{-4,-4},{-3,-3},{-2,-2},
{-1,"Minimum",.06,{Thickness[.008]}},{0,0},
{1,1},{2,2},{3,3},{4,4},{5,5}},Automatic}
schreibt auf der x-Achse an der Stelle -1 Minimum.
2.Ticks->{Table[{x,x,.05,{RGBColor[1,0,0]}},{x,-5,5,1}],
Table[{y,y,.05,{RGBColor[0,1,0]}},{y,0,20,5}]}]
laesst die Markierungen auf der x-Achse rot und auf der y-Achse gruen erscheinen.
3.tickmark1[min_,max_]:=Table[{x,x,.05,{RGBColor[1,0,0]}},
{x,min,max}];
tickmark2[min_,max_]:=Join[Table[{x,x,.05,{RGBColor[1,0,0]}},
{x,min,max,5}],
Table[{x,"",.02,{RGBColor[1,0,0]}},
{x,min,max}]]
Plot[x^2-2 x+3,{x,-5,5},Ticks->{tickmark1,tickmark2},
PlotRange->{{-5,5},{0,25}}]
bitte ausprobieren!
Mit freundlichen Gruessen
Hans-Joachim Spitzer
RZ der Humboldt-University
|