Re: plots in reverse order
- To: mathgroup at christensen.cybernetics.net
- Subject: Re: plots in reverse order
- From: Allan Hayes <hay at haystack.demon.co.uk>
- Date: Sun, 16 Oct 94 22:07:43 +0100
John Pender (tuk at Natazhat.uafphys.alaska.edu (John Pender)) writes:
> on rare occasions i like to make plots for which the value of a
> point on the x axis decreases as you go from left to right, as
> opposed to increases. i realize that >99.99% of the time you want
> the values to increase as you go from left to right, but every so
> often i want to duplicate the format of a plot in the (mostly
> older) literature. i haven't found an obvious solution (meaning an
> option that i can set for one or another of the various plotting
> commands). does anyone out there have a clean solution?
> john pender
Is this any use?
Needs["Utilities`FilterOptions`"]
ReverseXPlot[f_,{x_,a_,b_},opts___?OptionQ] :=
Show[
FullGraphics[
Plot[(f/.x->(b -(x-a)))//Evaluate, {x,a,b}, opts,
DisplayFunction -> Identity
]
]/.Graphics[
{lines_,{xaxis_, yaxis_,xticks_,r___}},z___] :>
Graphics[
{
lines,
{ xaxis,
yaxis,
xticks/.Text[n_?NumberQ,w___]:>
Text[(b -(n-a)),w],
r
}
},
z
],
DisplayFunction -> $DisplayFunction,
PlotRange-> All,
FilterOptions[Graphics, opts]
]
(*example*)
ReverseXPlot[{x,x^2,x^3}, {x,1,0}]
(*
Allan Hayes
hay at haystack.demon.co.uk (NEXTMAIL welcome)
*)