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) *)