Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: DataRange

  • To: mathgroup at smc.vnet.net
  • Subject: [mg83553] Re: DataRange
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Thu, 22 Nov 2007 05:02:47 -0500 (EST)
  • Organization: The Open University, Milton Keynes, UK
  • References: <fi0q05$6ib$1@smc.vnet.net>

thomas wrote:
> Hello Mathgroup,
> 
> I use ListLinePlot to plot some data that has been downsampled. In
> order to get the original time-range of the data represented correctly
> on the x-axis, I use DataRange->{1,Length-of-original-data}, which
> works just beautifully.
> 
> Now imagine I want to plot 2 sets of data with different original
> length, both have been downsampled. As far as I know, I cannot use the
> DataRange option anymore, because it will equally apply to both
> curves, therefore either stretching or compressing one curve relative
> to the other.
> 
> Example:
> data1 = Range[5];(*imagine original length is 50*)
> data2 = .5 Range[10];(*imagine original length is 100*)
> ListLinePlot[{data1, data2}, Frame -> True, AspectRatio -> Full,
>  PlotLabel -> "Correct relative scale of data"]
> ListLinePlot[{data1, data2}, DataRange -> {1, 50}, Frame -> True,
>  AspectRatio -> Full, PlotLabel -> "data2 is compressed"]
> ListLinePlot[{data1, data2}, DataRange -> {1, 100}, Frame -> True,
>  AspectRatio -> Full, PlotLabel -> "data1 is streched"]
> 
> 
> Is there an easy way to do this, short of creating specific {x,y}-
> pairs for each data point in each of the curves?
> 
> As a suggestion to WRI I would propose that one should be able to give
> multiple inputs to DataRange, to handle these issues, similar to way
> the option PlotStyle->...handles the directives given to it.

The following should be quite close to what you are looking for.

data1 = Range[5];(*imagine original length is 50*)
data2 = .5 Range[10];(*imagine original length is 100*)

g1 = ListLinePlot[{data1}, DataRange -> {1, 50}, Axes -> False,
   Frame -> True, AspectRatio -> 1/2];

g2 = ListLinePlot[{data2}, DataRange -> {1, 100}, Axes -> False,
    Frame -> True, AspectRatio -> 1/2];

Show[{g2, g1}] (* Note that g2 -- largest data range == comes first *)

Regards,
-- 
Jean-Marc


  • Prev by Date: RE: Re: Locator 3D
  • Next by Date: Re: ListAnimate and GIF format saving
  • Previous by thread: Re: DataRange
  • Next by thread: Can DSolve handle normalized vectors?