Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Pascal's triangle spacing is off. Need DigitCount?

• To: mathgroup at smc.vnet.net
• Subject: [mg121204] Re: Pascal's triangle spacing is off. Need DigitCount?
• From: Heike Gramberg <heike.gramberg at gmail.com>
• Date: Sun, 4 Sep 2011 04:12:46 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201109031204.IAA05249@smc.vnet.net>

You could use Grid  in combination with ItemSize instead of Row to give 
all the entries the same width, e.g.

pascalTrngl2[n_] :=
 Module[{max, sp}, max = Max[Table[Binomial[n, j], {j, 0, n}]];
  sp = Round[N[Log[10, max], 5]];
  Column[Table[Grid[{Table[Binomial[i, j], {j, 0, i}]},
     ItemSize -> sp], {i, 0, n}], Center]]

pascalTrngl2[10]

Heike

On 3 Sep 2011, at 14:04, Christopher O. Young wrote:

> I'm trying to get the same spacing between the _center points_ of each of
> the numbers in the Pascal triangle, so that each entry in a row is centered
> properly underneath the corresponding two entries in the row above. Instead,
> all the spacing options for Row[ ] seem to just apply to the spacings
> between numbers.
>
> It looks like I would have to calculate the length (i.e., number of digits)
> of each entry as I go through the table. Is DigitCount the best function to
> use here? I.e., won't slow things down too much? Or is there a faster way?
>
> Thanks for any help.
>
> Chris Young
> cy56 at comcast.net
>
> pascalTrngl2[n_] :=
> Module[
>  {max, sp},
>
>  max = Max[Table[Binomial[n, j], {j, 0, n}]];
>  sp = Round[N[Log[10, max], 5]];
>
>  Column[
>   Table[
>    Row[
>     Table[Binomial[i, j], {j, 0, i}],
>     Invisible[sp]
>     ],
>    {i, 0, n}
>    ],
>   Center
>  ]
> ]
>
>
>

• Follow-Ups:
  • Re: Pascal's triangle spacing is off. Need DigitCount?
    • From: Murray Eisenberg <murray@math.umass.edu>

• References:
  • Pascal's triangle spacing is off. Need DigitCount?
    • From: "Christopher O. Young" <cy56@comcast.net>