MathGroup Archive 2012

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

Search the Archive

Re: Problems with dynamic tables

  • To: mathgroup at
  • Subject: [mg127799] Re: Problems with dynamic tables
  • From: Bob Hanlon <hanlonr357 at>
  • Date: Thu, 23 Aug 2012 02:54:03 -0400 (EDT)
  • Delivered-to:
  • Delivered-to:
  • Delivered-to:
  • Delivered-to:
  • References: <>

 Module[{data, movAvg},
  data = FinancialData[company, "Jan. 1, 2011"];
  movAvg = Thread[{
     Drop[data[[All, 1]], n - 1],
     MovingAverage[data[[All, 2]], n]}];
  DateListPlot[{data, movAvg},
   Joined -> {False, True},
   PlotLabel -> FinancialData[company, "Name"]]],
 {{company, "IBM"}, {"AAPL", "GOOG", "IBM"}},
 {{n, 15, "window size"}, Range[5, 30, 5]}]

Bob Hanlon

On Wed, Aug 22, 2012 at 2:27 AM, tarpanelli at
<tarpanelli at> wrote:
> Hello,
> I am using FinancialData and plotting the real time data using a DateListPlot.
> What I would like to do is to add to the DateListPlot of prices also a moving
> average of the same price time series, in real time:
> for example, for each updated price I would like to have the corresponding
> moving average value accroding to the last n prices.
> I was trying to do this by creating a Dynamic table where I put all the prices
> and then get the sum of last n elements to compute the moving averange over the
> last horizon of time of length n, but I am blocked.
> Is there any one who already suceeded to do a similar job?
> thanks
> Paolo

  • Prev by Date: Re: How to use Pick[]; Is this a bug?
  • Next by Date: Ambiguity of "Plot"
  • Previous by thread: Problems with dynamic tables
  • Next by thread: Non-sequential composition of pure functions