Re: Very difficult axes inversion?? How to???
- To: mathgroup at smc.vnet.net
- Subject: [mg31759] Re: [mg31729] Very difficult axes inversion?? How to???
- From: "John Hamilton" <jrhamilt at mines.edu>
- Date: Sat, 1 Dec 2001 02:44:26 -0500 (EST)
- References: <2b.1f11b7a5.29378511@aol.com>
- Sender: owner-wri-mathgroup at wolfram.com
Bob! Thank you so much, However..... I made a fairly stupid mistake....
I actually need to flip the x axis, and I'm not sure how to generate my own
ticks, AND make them a log scale...
Sorry for the stupid mistake... Hope you can help.
Thanks
John Hamilton
----- Original Message -----
From: <BobHanlon at aol.com>
To: mathgroup at smc.vnet.net
Subject: [mg31759] Re: [mg31729] Very difficult axes inversion?? How to???
>
> In a message dated 2001/11/29 2:54:38 AM, jrhamilt at mines.edu writes:
>
> >I'm in desperate need of flipping the axes for both the these graphs
> >(the y axes) so they count down, not up.
> >
> >I've seen lots of solutions, but none of them seem to work in 4.0 or
> >with a LogLinearListPlot....
> >
> >
> >Any ideas??
> >
> >Below is the code I'm using, I included one of the lists so you can see
> >
> >how it looks...
> >
>
> Needs["Graphics`Graphics`"];
>
>
HRTheory={{3573.42,-0.878527},{4086.85,-0.633543},{4630.97,-0.409946},{5162.
\
> 98, -0.204436},{5754.68,-0.0146906},{6361.21,0.160644},{6960.8,
> 0.32215},{7499.38,0.471442},{8030.84,0.615737},{8637.59,
> 0.771511},{9345.72,0.960848},{10321.5,1.19904},{11631.1,
>
1.4834},{13189.3,1.79744},{15106.,2.12376},{17278.5,2.45063},{19637.2,
> 2.77995},{22496.1,3.09186},{25936.9,3.39425},{28536.6,
>
3.68696},{32814.3,3.97022},{36058.,4.24443},{40228.,4.51006},{44778.7,
>
4.76756},{49424.5,5.0174},{54922.6,5.26},{60345.4,5.49577},{66276.8,
> 5.72506},{71871.1,5.94823},{80980.7,6.1628},{88540.6,6.37483}};
>
> HRTheoryScaled = (HRTheory /. {x_,y_}:>{x/1000,-y});
>
> p1 = LogLinearListPlot[HRTheoryScaled,
> PlotStyle->RGBColor[1,0,0],
> DisplayFunction -> Identity];
>
> yTicks = ((Ticks /. AbsoluteOptions[p1])[[2]] /.
> {y_?NumericQ, lab_?NumericQ, rem__} :> {y, -lab, rem});
>
> Show[p1, Ticks -> {LogScale, yTicks},
> DisplayFunction -> $DisplayFunction];
>
>
> Bob Hanlon
> Chantilly, VA USA
>