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"];
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 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
>
- References:
- Problems with dynamic tables
- From: "tarpanelli@libero.it" <tarpanelli@libero.it>
- Problems with dynamic tables