|
Hallo Martin, > Ich hab da schon länger ein Problem mit Plot von Funktionen oder Daten. > Mir ist es nicht möglich die Richtung der Achse zu ändern. Mein Problem > sind Spekrten bei denen die X-Achse von links nach rechts kleiner > wird.(Üblicher Skalierung ist z.B. von 200 -0 ppm) Egal in welcher > Reihenfolge ich dir Parameter für Plotrange angebe die Ausgabe ist immer > wie im Koordtinatensystem (Die Werte der X-Achse nehemen von links nach > rechts zu!->Ausgabe von 0-200 ppm). Hat jemand eine Lösung für dieses > Problem. Diese FAQ aus dem Support-Bereich von WRI sollte helfen: -------------------------- schnipp ------------------------- *How can I reverse the order of ticks in a plot?* The function TickFunction (as described in the ExtendGraphics package) will allow you to define a function to create ticks that will be in reverse order. See the following page for information ExtendGraphics. http://www.wolfram.com/support/MathApps/ExtendGraphics/ Here are some examples of the TickFunction function. First, we load the package. In[1]:= Needs["ExtendGraphics`Ticks`"] Here is the usage message for the TickFunction function. In[2]:= ?TickFunction TickFunction is a function that can be used with the Ticks option to alter the appearance of tick marks. Now we define a function that uses the TextFunction option of TickFunction. In[3]:= tickreverse[start_, finish_] := TickFunction[start, finish, TextFunction -> Reverse] Here is an example with normal ticks. In[4]:= Plot[x^2, {x, 0, 5}]; Here is the same plot with the the ticks on the x axis reversed. In[5]:= Plot[x^2, {x, 0, 5}, Ticks -> {tickreverse, Automatic}]; ----------------------------- schnapp --------------------------- Die URL für das ExtendGraphics package lautet: http://www.mathsource.com/cgi-bin/msitem?0208-976 Und es funktioniert:-) Da es sicher auch andere interessiert, geht eine Kopie dieser Nachricht auch an die Liste. Ciao, Raymund |