Re: Color coding a Table entry
- To: mathgroup at smc.vnet.net
- Subject: [mg92638] Re: Color coding a Table entry
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Thu, 9 Oct 2008 06:35:45 -0400 (EDT)
- Organization: The Open University, Milton Keynes, UK
- References: <gci1tn$ji$1@smc.vnet.net>
AES wrote:
> I'm Printing (to the screen) a Table like, let's say,
>
> Table[{f1, f2, f3}, (x, xmin, xmax}]
>
> and anytime the value of f2 goes negative I want that value printed in
> Red.
>
> What's a simple, compact way to code this?
One possible way:
f1 := RandomInteger[{-1, 1}];
f2 := (-1)^x;
f3 := Sin[N[x]];
redneg[expr_] := If[expr < 0, Style[expr, Red], expr, expr]
With[{xmin = 0, xmax = 10},
Table[{f1, redneg[f2], f3}, {x, xmin, xmax}]]
Regards,
-- Jean-Marc