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)

```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