Re: Rounding Numbers in for output in GridBox
- To: mathgroup at smc.vnet.net
- Subject: [mg25134] Re: [mg25086] Rounding Numbers in for output in GridBox
- From: BobHanlon at aol.com
- Date: Sun, 10 Sep 2000 03:14:52 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 9/7/2000 11:06:02 PM, JOHN_C_ERB at prodigy.net writes: >I would like to make a nice table for printing. >The table contains strings and numbers. >I would like to have the numbers rounded (or formatted) >to display to a specified number of digits or decimal points. > >The routine below is an attempt at rounding the numbers to two >decimal places for output in table form using "GridBox." > >The problem is that the numbers are displayed to 15 decimal places, >after they have been rounded. > >Any suggestions on displaying a specified number of digits or >decimal points? > >I am using Mathematica 4.0.1 and Windows 98, 2nd Ed. > genRound[x_, incr_:1] := incr*Round[x/incr]; nbrForm[x_, n_:2] := NumberForm[x, {n + Ceiling[Log[10, x]], n}, NumberPadding -> {"", "0"}]; TableForm[Table[{ x = 100*Random[], genRound[x, 0.01] // nbrForm, nbrForm[genRound[x, 0.25]], nbrForm[genRound[x, 0.1], 1], genRound[x], genRound[x, 5]}, {20}] , TableAlignments -> Right, TableHeadings -> {None, {"x", "{x, 0.01}", "{x, 0.25}", "{x, 0.1}", "{x, 1}", "{x, 5}"}}] Bob Hanlon