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>