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