AW: Reverse Axis
- To: mathgroup at smc.vnet.net
- Subject: [mg23610] AW: [mg23559] Reverse Axis
- From: Wolf Hartmut <hwolf at debis.com>
- Date: Wed, 24 May 2000 02:16:10 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
-----Ursprüngliche Nachricht-----
Von: Carl Liggio [SMTP:cliggio at flashcom.net]
Gesendet am: Samstag, 20. Mai 2000 09:11
An: mathgroup at smc.vnet.net
Betreff: [mg23559] Reverse Axis
Is there a way to reverse the axis on a 2-D plot?
I am trying to flip the negative and the positive.
Dear Carl,
perhaps you may try out the following:
You may have plots
p = Plot[BesselJ[0, x], {x, 0, 6 Pi}]
p2 = Plot[BesselJ[1, x], {x, 0, 4 Pi}, PlotStyle -> Hue[0]]
Define
ShowReflected[plots__, op_] :=
With[{g0 = FullGraphics[First[Flatten[{plots}]]],
grest = Graphics /@ Rest[Flatten[{plots}]]},
Show[{g0, grest} /. {Line[pts_] :> Line[op # & /@ pts],
Text[t_, coord_, offset_] :> Text[t, op coord, op
offset]},
PlotRegion -> {{0.05, 0.95}, {0, 1}}]]
and try
ShowReflected[p, p2, {-1, 1}]
ShowReflected[p, p2, {1, -1}]
ShowReflected[p, p2, {-1, -1}]
(perhaps some time you need to tamper with PlotRegion)
Kind regards, Hartmut