MathGroup Archive 2011

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

Search the Archive

Re: FinancialData

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118129] Re: FinancialData
  • From: Chris Degnen <degnen at cwgsy.net>
  • Date: Wed, 13 Apr 2011 05:54:45 -0400 (EDT)
  • References: <inunf2$2gb$1@smc.vnet.net>

On Apr 11, 12:08 pm, Leonardo <matematic... at gmail.com> wrote:
> Is possible to have data for every n minutes of a stock index?
>
> Example:
>
> Column [FinancialData ["SP500", {{2011, 4, 1}, {2011, 4, 1}, "Day"}]]
>
> for daily data.
>
> Is there a way to get data every hour?
>
> Or have data every n minutes?
>
> Thanks.
>
> E' possibile avere dati ogni n minuti di un indice azionario?
>
> Esempio:
>
> Column[FinancialData["SP500", {{2011, 4, 1}, {2011, 4, 1}, "Day"}]]
>
> per avere dati giornalieri.
>
> Esiste un modo per avere dati ogni ora?
>
> Oppure avere dati ogni n minuti?
>
> Grazie.


If you are using Mathematica 8 you can use RunScheduledTask,
http://reference.wolfram.com/mathematica/ref/RunScheduledTask.html

But if you are on version 6 or 7 you can use something like this:

prices = {};
GetPrices :=
 AppendTo[prices,
  Flatten@{FinancialData[#] & /@ {"^FTSE", "^GSPC"},
    DateString[{"Time", " ", "Day", "/", "Month", "/", "Year"}]}]
Dynamic[ti60 = Refresh[DateString["Second"], UpdateInterval -> 3]]
doOnce = True; Dynamic[
 If[EvenQ[ToExpression[ti60]],
  If[doOnce == True, GetPrices; doOnce = False], doOnce = True]]
Dynamic[TableForm[If[Length[prices] > 4, Take[prices, -4], prices],
  TableHeadings -> {None, {"FTSE 100", "S&P 500", "Time & date"}},
  TableSpacing -> {1, 2}]]



  • Prev by Date: Re: CDF browser plugin and Wolfram library archive -
  • Next by Date: Re: x y coordinates of image pixels for an image outline
  • Previous by thread: FinancialData
  • Next by thread: Re: why this system cannot be solved!