Re: feature request: invert plot axes
- To: mathgroup at smc.vnet.net
- Subject: [mg62122] Re: feature request: invert plot axes
- From: Marcus Stollsteimer <marcus314 at yahoo.com>
- Date: Sat, 12 Nov 2005 03:31:20 -0500 (EST)
- Organization: Comp.Center (RUS), U of Stuttgart, FRG
- References: <dkuv07$7hr$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Jaccard Florian wrote:
> des = Plot[Log[Abs[x + 3]], {x, -8, 8}];
>
> Show[des /. {a_, b_} -> {-a, b},
> Ticks -> {(Ticks /. FullOptions[des])[[1]] /.
> {a_, b_, c_, d_} -> {a, If[b != "", -b, ""]},
> (Ticks /. FullOptions[des])[[2]]}]
Thanks, that's pretty good.
but for e.g.
des = Plot[Sin[x], {x, 0, Pi/2}]
the x-axis is not drawn :(
Regards,
Marcus
--
Exactly what do we mean when we say, man is mortal?
Obviously it's not a compliment. -- W. Allen