Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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
>



  • 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