MathGroup Archive 2003

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

Search the Archive

RE: log-log plot with error bars, different data markers

  • To: mathgroup at smc.vnet.net
  • Subject: [mg44994] RE: [mg44966] log-log plot with error bars, different data markers
  • From: Nathan Moore <nmoore at physics.umn.edu>
  • Date: Fri, 12 Dec 2003 04:41:38 -0500 (EST)
  • References: <8EB1C3634596D6118952006008F711CD02B600DE@debis.com>
  • Sender: owner-wri-mathgroup at wolfram.com

nice man!  Thanks!
Nathan

On Thu, 11 Dec 2003, Wolf, Hartmut wrote:

>
> >-----Original Message-----
> >From: Nathan Moore [mailto:nmoore at physics.umn.edu]
To: mathgroup at smc.vnet.net
> >Sent: Thursday, December 11, 2003 11:28 AM
> >To: mathgroup at smc.vnet.net
> >Subject: [mg44994] [mg44966] log-log plot with error bars, different data markers
> >
> >
> >That standard way that Mathematica allows one to plot with different
> >data markers (open circles, triangles etc) is with the command
> >"MulltipleListPlot".    This is also the command that allows one to
> >plot with error bars.  Is there a way to have the scale of such a plot
> >to be log-log rather than linear style?  I don't see this as
> >an option.
> >
> >
> Nathan,
>
> supposed, you have got your data points in a nice logarithmic sampling,...
>
> In[5]:=
> flist = Table[With[{x = 2^t}, {x, x^5}], {t, 0, Log[2, 100.], Log[2,
> 100.]/20}]
>
> ...you may hack, combining a MultipleListPlot of the logarithms of this
> list...
>
> In[4]:= << Graphics`MultipleListPlot`
>
> In[12]:=
> gx = MultipleListPlot[Log[10, flist], SymbolShape -> {PlotSymbol[Box]},
>     SymbolStyle -> {Hue[0]}, PlotRange -> All, PlotJoined -> True]
>
>
> ...with an empty LogLogPlot
>
> In[1]:= << Graphics`Graphics`
>
> In[13]:=
> gblank = LogLogPlot[.1 &[x], {x, 1, 100}, PlotRange -> {All, {1, 10^10}}]
>
> In[14]:= Show[gblank, gx]
>
>
>
>
> There is however a more educated way to use the tick function from
> Graphics`Grahics` directly with MultipleListPlot:
>
> In[3]:= ?LogScale
>
> Now get the (logarithmic) ranges
>
> In[6]:= Transpose[Log[10, flist[[{1, -1}]]]]
> Out[6]= {{0, 2.}, {0, 10.}}
>
> In[7]:= tt = LogScale @@@ %
>
> ...and plot the logarithms:
>
> In[9]:=
> g = MultipleListPlot[Log[10, flist],
>     Ticks -> LogScale @@@ Transpose[Log[10, flist[[{1, -1}]]]],
>     SymbolShape -> {PlotSymbol[Box, 3]}, SymbolStyle -> {Hue[2/3]},
>     PlotStyle -> {Hue[2/3]}, PlotJoined -> True]
>
> --
> Hartmut
>


  • Prev by Date: Re: Evaluation of AiryAi on the complex plane
  • Next by Date: RE: how to change arguments of standard functions ?
  • Previous by thread: RE: log-log plot with error bars, different data markers
  • Next by thread: Simulating Turing Machines, Register Machines and Mobile Automata