Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Reverse Axes in Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg23697] Re: [mg23659] Reverse Axes in Plot
  • From: BobHanlon at aol.com
  • Date: Mon, 29 May 2000 12:24:26 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 5/28/2000 11:25:24 PM, chapmand at accesscable.net writes:

>I would like to plot a simple 2D plot with the y-axis increasing
>DOWNwards instead of UPwards.  Does anyone know how to do this?  I have
>looked high and low for the answer!
>

Using Version 4,

reversedPlot[expr_, 
    {var_Symbol, varMin_?NumericQ, varMax_?NumericQ}, 
    {REVx_?(Element[#, Booleans] &), 
      REVy_?(Element[#, Booleans] &)}, 
    opts___] := 
  Module[{plt = 
        Plot[expr, {var, varMin, varMax}, opts, DisplayFunction -> Identity]},
     Show[{
        plt /. 
          {x_?NumericQ, y_?NumericQ} :> {If[REVx, -x, x], If[REVy, -y, y]}}, 
      Ticks ->  {
          If[REVx, (Ticks  /. AbsoluteOptions[plt, Ticks])[[1]] /. 
              {x_, label_, len_, style_} :> {-x, label, len, style}, 
            Automatic], 
          If[REVy, (Ticks  /. AbsoluteOptions[plt, Ticks])[[2]] /. 
              {y_, label_, len_, style_} :> {-y, label, len, style}, 
            Automatic]
          }, 
      DisplayFunction -> $DisplayFunction]]

f[x_] := 3x - 7

xmin = -2; xmax = 5;

Basic Plot

Plot[f[x], {x, xmin, xmax}, PlotStyle -> RGBColor[1, 0, 0]];

reversedPlot with neither axis reversed, i.e., same as basic Plot

reversedPlot[f[x], {x, xmin, xmax}, {False, False}, 
    PlotStyle -> RGBColor[1, 0, 0]];

reversedPlot with y axis reversed

reversedPlot[f[x], {x, xmin, xmax}, {False, True}, 
    PlotStyle -> RGBColor[1, 0, 0]];

reversedPlot with x axis reversed

reversedPlot[f[x], {x, xmin, xmax}, {True, False}, 
    PlotStyle -> RGBColor[1, 0, 0]];

reversedPlot with both x and y axes reversed

reversedPlot[f[x], {x, xmin, xmax}, {True, True}, 
    PlotStyle -> RGBColor[1, 0, 0]];


Bob

BobHanlon at aol.com


  • Prev by Date: Re: FindMinimum of a compiled function??
  • Next by Date: Re: parametricplot
  • Previous by thread: RE: Reverse Axes in Plot
  • Next by thread: Re: Re: Reverse Axes in Plot