Re: Creating a Function to Display Numbers in Percent Format

*To*: mathgroup at smc.vnet.net*Subject*: [mg128936] Re: Creating a Function to Display Numbers in Percent Format*From*: Gregory Lypny <gregory.lypny at videotron.ca>*Date*: Tue, 4 Dec 2012 04:16:31 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <20121202095720.B81B86854@smc.vnet.net>

Thanks Bob, Good suggestion using Row because it allows for easier extraction of the actual number. My original fix used StringForm. Although, it is still not clear to me why appending a percent sign cannot be done through the second elements of each of the two lists in NumberSigns -> {{"-", "%"}, {"", "%"}}. Gregory On Sun, Dec 2, 2012, at 12:53 PM, Bob Hanlon <hanlonr357 at gmail.com> wrote: > Clear[percent] > > percent[x_, numDec : _Integer?NonNegative : 1] := > Row[{ > PaddedForm[100 x, {500, numDec}, > NumberPoint -> If[numDec == 0, "", "."], > DigitBlock -> {3, Infinity},. > ExponentStep -> Infinity, > NumberPadding -> {"", "0"}], > "%"}] > > > Table[percent[.0237, n], {n, 0, 6}] > > {2%, 2.4%, 2.37%, 2.370%, 2.3700%, 2.37000%, 2.370000%} > > > Bob Hanlon > > > On Sun, Dec 2, 2012 at 4:57 AM, Gregory Lypny > <gregory.lypny at videotron.ca> wrote: >> Hello everyone, >> >> I've written a function to display numbers in percent format. >> >> percent[x_, numDec_: 1] := >> PaddedForm[100 x, {500, numDec}, NumberPoint -> If[numDec == 0, "", "."], >> DigitBlock -> {3, Infinity}, ExponentStep -> Infinity, >> NumberSigns -> {{"-", "%"}, {"", "%"}}, NumberPadding -> {"", "0"}]; >> >> The problem with it is that the padding on the right appears after the percent sign so that percent[.0237, 6] returns 2.37%0000. What am I doing wrong? >> >> Regards, >> >> Gregory >>

**References**:**Creating a Function to Display Numbers in Percent Format***From:*Gregory Lypny <gregory.lypny@videotron.ca>