Re: Re: Reversing the axis of a plot
- To: mathgroup at smc.vnet.net
- Subject: [mg15174] Re: [mg15153] Re: Reversing the axis of a plot
- From: BobHanlon at aol.com
- Date: Thu, 17 Dec 1998 00:27:51 -0500
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 12/16/98 8:28:40 AM, JOHN_C_ERB at prodigy.net writes:
>Perhaps a misunderstanding.
>
>I wish to reverse one of the axes, rather than to switch axes. For
>example, the y-axis would remain the y-axis, and would range from 0 to
>5, and the x-axis would remain the x-axis; however, the x-axis would
>now range from 5 to 0 (with the plot reversed), as one goes from left
>to right along the axis.
>
John,
This is an approach
_______________________
reversePlot[func_, {var_Symbol, val1_?NumericQ,
val2_?NumericQ}, opts___] :=
Module[{x, varmin = Min[val1, val2], varmax = Max[val1, val2]},
Plot[func /. var :> (-x + varmin + varmax),
{x, varmin, varmax},
Ticks -> {Table[{x, ToString[N[varmax+varmin-x]]},
{x, varmin, varmax, (varmax-varmin)/5}], Automatic},
opts]]
Plot[3x^2+2x+5, {x, 2, 4}, PlotStyle -> RGBColor[1, 0, 0]];
reversePlot[3x^2+2x+5, {x, 2, 4}, PlotStyle -> RGBColor[1, 0, 0]];
Plot[Exp[x], {x, -1, 2}, PlotStyle -> RGBColor[1, 0, 0]];
reversePlot[Exp[x], {x, -1, 2}, PlotStyle -> RGBColor[1, 0, 0]];
_________________________
The tick labeling could use some work.
Bob Hanlon