MathGroup Archive 2010

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

Search the Archive

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




  • Prev by Date: Re: TableForm questions
  • Next by Date: Re: Why?
  • Previous by thread: Re: TableForm questions
  • Next by thread: Re: Why?