MathGroup Archive 2009

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

Search the Archive

Re: Dynamic 2D ListLinePlot PlotRange

  • To: mathgroup at smc.vnet.net
  • Subject: [mg98301] Re: Dynamic 2D ListLinePlot PlotRange
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Sun, 5 Apr 2009 06:38:16 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <gr4jkk$aap$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,


data = Table[{x, Sin[x] + RandomReal[{-0.1, 0.1}]}, {x, 0, 2 Pi,
     2 Pi/512}];

Manipulate[
  ListLinePlot[data, PlotRange -> {{xmin, xmax}, All}],
  {{xmin, 0, "\!\(\*SubscriptBox[\"x\", \"min\"]\)"}, 0,
   2 Pi}, {{xmax, 2 Pi, "\!\(\*SubscriptBox[\"x\", \"max\"]\)"}, 0,
   2 Pi}]

?

Regards
   Jens

Bryce Schober wrote:
> I'm a bit of a newbie here, trying to build up some data visualization
> tools. I've already gotten a ListLinePlot working well with slider to adjust
> xmin and xmax. I was hoping that I could set PlotRange to All for the Y axis
> and it would adjust for the Y-values in the dynamically specified x range,
> but no such luck. Is there some other way to not have to do the y-axis range
> calculation myself?
> 
> I suppose some explanation of the dataset is desired. I have something like:
> {
>   {{x11,y11},{x12,y12},{x13,y13},...,{x1m,y1m}},
>   {{x21,y21},{x22,y22},{x23,y23},...,{x2n,y2n}},
> }
> , where the x values and lengths are heterogeneous between xy lists 1 and 2
> 
> This makes the calculation of ymin and ymax very non-straightforward to me,
> and re-calculation unacceptably slow on 20k+ data points per list. The
> dynamic x-axis plot scaling actually goes very smoothly, by using a
> construct like:
> 
> Show[
>  ListLinePlot[data,PlotRange -> All,],
>  PlotRange ->Dynamic[{{curxmin, curxmax},All}],
>  ]
> 
> I've tried various ways to get at the problem, and the closest I've gotten
> is something like:
> 
> Map[
>  {Min[#], Max[#]} &,
>  Map[
>    (Select[
>       #,
>       (
>         #[[1]] > tmin
>          && #[[1]] < tmax
>         ) &
>       ]) &,
>    mydata
>    ][[All, All, 2]]
>  ]
> 
> Which get me basically the result I want, but is really slow to evaluate,
> making it undesirable as Dynamic[].
> 
> Any ideas?
> 


  • Prev by Date: Re: Graphics and DisplayFunction
  • Next by Date: Re: Joust in Mathematica
  • Previous by thread: Re: Dynamic 2D ListLinePlot PlotRange
  • Next by thread: Re: ImageResolution