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