MathGroup Archive 2011

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

Search the Archive

Re: Difference table via DifferenceDelta[ ]. Why do I need two Table[ ] calls?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg121164] Re: Difference table via DifferenceDelta[ ]. Why do I need two Table[ ] calls?
  • From: Peter Pein <petsie at dordos.net>
  • Date: Thu, 1 Sep 2011 06:04:22 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Am 31.08.2011 13:41, schrieb Christopher O. Young:
> The following gives me a difference table for x^3, but it would be nice if I
> could do it with only 1 Table call.
>
> Grid[
>   Table[
>    Table[
>      DifferenceDelta[x^3, {x, n}] // Evaluate,
>     {x, -6, 6 - n + 1}
>     ]
>    , {n, 1, 3}
>    ],
>   Alignment ->  Right
>   ]
>
> The following hangs up, though. I have to abort it after several minutes of
> nothing happening.
>
> Table[
>   DifferenceDelta[x^3, {x, n}] // Evaluate,
>   {x, -6, 6},
>   {n, 1, 3}
> ]
>
> Any help appreciated.
>
> Chris Young
> cy56 at comcast.net
>
>

Hi Christopher,

I would use

In[1]:= Rest@NestList[Differences, Range[-6, 7]^3, 3]

Out[1]=
  {{91, 61, 37, 19, 7, 1, 1, 7, 19, 37, 61, 91, 127},
   {-30, -24, -18, -12, -6, 0, 6, 12, 18, 24, 30, 36},
   {6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6}}

to get the values.

Peter




  • Prev by Date: How to avoid partially visible hidden edges
  • Next by Date: Re: TransformedDistribution
  • Previous by thread: How to avoid partially visible hidden edges
  • Next by thread: Re: Difference table via DifferenceDelta[ ]. Why do I need two Table[ ] calls?