Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: LogLinearListPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg77011] Re: [mg76911] LogLinearListPlot
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Thu, 31 May 2007 03:37:40 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

Needs["Graphics`"];

pts={{3,Sqrt[3]},{27,Sqrt[27]}};

lllp=LogLinearListPlot[
      Table[{n,Sqrt[n]},{n,100}],
      PlotJoined->True,
      Epilog->{Red, AbsolutePointSize[4],
          Point/@({Log[10,#[[1]]],#[[2]]}&/@pts)},
      DisplayFunction->Identity];

Module[{t=Ticks/.AbsoluteOptions[lllp,Ticks]},
    Show[lllp,
      DisplayFunction->$DisplayFunction, 
      Ticks->{Join[Rationalize[t[[1]]],
            {Log[10,#[[1]]],#[[1]],{0.015,-0.},
                  {Red,AbsoluteThickness[0.5]}}&/@pts],
          Join[Rationalize[t[[2]]],
            {#[[2]],N[#[[2]]],{0.015,-0.},
                  {Red,AbsoluteThickness[0.5]}}&/@pts]}]];

Module[{t=Ticks/.AbsoluteOptions[lllp,Ticks]},
    Show[lllp,
      DisplayFunction->$DisplayFunction,
      Frame->True,
      Axes->False, 
      FrameTicks->{Rationalize[t[[1]]],
          Rationalize[t[[2]]],
          {Log[10,#[[1]]],#[[1]],{0.015,-0.},
                {Red,AbsoluteThickness[0.5]}}&/@pts,
          {#[[2]],N[#[[2]]],{0.015,-0.},
                {Red,AbsoluteThickness[0.5]}}&/@pts}]];

Or you could just put a text label at each point


Bob Hanlon

---- RodriguezFatz <mertmann at googlemail.com> wrote: 
> Hello,
> 
> I want to label my dots in a LogLinearListPlot. My idea was to use
> Ticks for that, but when I use Ticks, the automatic Labels of that
> axis are hidden.
> 
> Is it possible to put additional ticks on an axis (for a
> LogLinearListPlot) and not to paste the automatic ticks by my own?
> (Or any other solution for my Problem)
> 
> Code with automatic ticks:
> LogLinearListPlot[{{\[Lambda]i, 0}, {\[Lambda]d, 0}}, Axes -> {True,
> False},
>   PlotRange -> {{0.00001, 1}, {-1, 1}} ]
> 
> Thanks for help.
> 
> 



  • Prev by Date: Re: Gauss-Kronrod algorithm
  • Next by Date: Re: Polynomial to List
  • Previous by thread: LogLinearListPlot
  • Next by thread: Clear, Remove variables