Problems with dynamic tables

[tarpa...@libero.it]

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

[Bob Hanlon]

Manipulate[
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