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?