Re: More /.{I->-1} craziness. Schools
- To: mathgroup at smc.vnet.net
- Subject: [mg107136] Re: More /.{I->-1} craziness. Schools
- From: Richard Fateman <fateman at cs.berkeley.edu>
- Date: Wed, 3 Feb 2010 06:13:40 -0500 (EST)
- References: <hjbvc0$2tp$1@smc.vnet.net> <hjeqh1$g3c$1@smc.vnet.net> <hjh877$r4r$1@smc.vnet.net> <201001261133.GAA00712@smc.vnet.net> <201001270644.BAA04729@smc.vnet.net> <op.u67uiib3tgfoz2@bobbys-imac.local> <hjrf98$n1e$1@smc.vnet.net> <hk8neg$895$1@smc.vnet.net>
David Bailey wrote: ... >> > > Maybe an notebook option to flag numbers of extremely low precision with > a colour might be useful. I guess this might be useful more generally in > numerical analysis. > This (previously posted) program will do it. $LowPrecisionWarningLimit=1 PrintShowFuzz[x_] := x /. (r_Real /; (Precision[r] < $LowPrecisionWarningLimit) -> Style[InputForm[r], Red]) $PrePrint=PrintShowFuzz RJF