Re: automatic grid

• To: mathgroup at smc.vnet.net
• Subject: [mg131265] Re: automatic grid
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Sat, 22 Jun 2013 20:44:28 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-outx@smc.vnet.net
• Delivered-to: mathgroup-newsendx@smc.vnet.net
• References: <20130622073308.6B8D46A0A@smc.vnet.net>

```Aveamos1 = {"V1", "V2", "V3", "V4"};
veamos2 = {5, 20, 7, 11};

Clear[color];
color[x_?NumericQ] := Style[x, If [x > 10, Red, Black] , 16];
color[x_] := Style[x, 16];

Grid[{Aveamos1, color /@ veamos2}]

Clear[color];
color[x_?NumericQ] :=
Style[x, If[x > 10, Red,
If[x > 5, Green, Blue]], 16];
color[x_] := x;

Grid[{Aveamos1, color /@ veamos2}]

Bob Hanlon

On Sat, Jun 22, 2013 at 3:33 AM, Francisco Gutierrez <fgutiers2002 at yahoo.com
> wrote:

>
> Dear Group:
> I have a grid (in reality, a collection of grids) and would like to make
> Mathematica give each entry of the grid a style depending on its value.
> For example:
> Aveamos1= {"V1","V2",V3", "V4"}
> veamos2={5,20,7,11}
> Grid[{veamos1,veamos2}]
> Suppose that I want any value above 10 to be coloured in red. How can I
> manage to do this?
> Thanks
> Francisco
>
>

```

• References:
• Prev by Date: Re: How to remove the "0." from "0. + 1.41774i"
• Next by Date: Re: automatic grid
• Previous by thread: automatic grid
• Next by thread: Re: automatic grid