Re: Problems with dynamic tables

• To: mathgroup at smc.vnet.net
• Subject: [mg127799] Re: Problems with dynamic tables
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Thu, 23 Aug 2012 02:54:03 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20120822062700.4382F684C@smc.vnet.net>

```Manipulate[
Module[{data, movAvg},
data = FinancialData[company, "Jan. 1, 2011"];
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 libero.it
<tarpanelli at libero.it> 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