Re: TableForm questions

*To*: mathgroup at smc.vnet.net*Subject*: [mg110005] Re: TableForm questions*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Fri, 28 May 2010 07:22:48 -0400 (EDT)

Table[Style[#, If[Mod[n, 2] == 1, Directive[Red, Bold], Plain]] & /@ {n, n^2, n^3}, {n, 5}] // TableForm Alternatively, f[x_List] := Style[#, Directive[Red, Bold]] & /@ x; t = Table[{n, n^2, n^3}, {n, 5}]; n = 1; TableForm[If[Mod[n++, 2] == 1, f[#], #] & /@ t] Bob Hanlon ---- Michael Stern <nycstern at gmail.com> wrote: ============= Using TableForm[], is there any way to format individual lines of a table to be a different style (such as Bold), or should I punt to Grid[]? Thanks, Michael