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

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

```

• Prev by Date: Re: Graphics3D question
• Next by Date: Re: Deleting Duplicates
• Previous by thread: Re: Displaying a table
• Next by thread: Re: loop for with plot