Re: Displaying a table

*To*: mathgroup at smc.vnet.net*Subject*: [mg110105] Re: Displaying a table*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Wed, 2 Jun 2010 02:04:26 -0400 (EDT)

First, I don't see what using subx has to do with this: You simply are forming a square table of a fixed sizelength, which in your case is 6 by 6. So just: circorr = Table[0, {6}, {6}]; circorr[[2, 5]] = 6; circorr[[3, 4]] = 8; Second, in the example shown, I don't see any decimals; none of the numbers shown are approximate. If you're getting numbers that ought to be integers but have a trailing decimal, you could use Rationalize on them. Third, here's a way to conditionally replace any entry that's positive with a bold-face styling; for emphasis, I've also changed the font size. Step 1. Define a (delayed) rule that replaces anything positive with the styled version of it: whenPositive = x_?Positive :> Style[x, 18, Bold] Step 2. Use that on the table, as is or inside TableForm: circorr /. whenPositive TableForm[circorr /. whenPositive] Or do the same thing with Grid, where you have probably finer control over spacing than you can do with Table (although where you'll need to explicitly adjoin any needed rows or columns for table headings): Grid[circorr /. whenPositive] On 6/1/2010 4:22 AM, S. B. Gray wrote: > I need to display the subx table as shown, with no decimal points or {} > and with some spaces between columns. Some entries will be nonzero and > it would be nice to show them in boldface. I tried Style with Positive > but didn't succeed. This method works but there must be a better way. > > > subx = {0, 0, 0, 0, 0, 0}; (* this is an example *) > lenx = Length[subx]; > circorr = Table[0, {lenx}, {lenx}]; > circorr[[2, 5]] = 6; > circorr[[3, 4]] = 8; (* Only examples. *) > ts1 = ToString[circorr]; > ts1 = StringReplace[ts1, ", " -> " "]; > ts1 = StringReplace[ts1, "{" -> ""]; > ts1 = StringReplace[ts1, "}" -> "\r"]; (* To print>0 in Bold? *) > Print[" ", TableForm[ts1]] (* which gives this: *) > > 0 0 0 0 0 0 > 0 0 0 0 6 0 > 0 0 0 8 0 0 > 0 0 0 0 0 0 > 0 0 0 0 0 0 > 0 0 0 0 0 0 > > Thanks to everyone for past and present help. > > Steve Gray > -- Murray Eisenberg murrayeisenberg at gmail.com 80 Fearing Street phone 413 549-1020 (H) Amherst, MA 01002-1912