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:
- automatic grid
- From: Francisco Gutierrez <fgutiers2002@yahoo.com>
- automatic grid