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[{
>    NumberPoint -> If[numDec == 0, "", "."],
>    DigitBlock -> {3, Infinity},.
>    ExponentStep -> Infinity,
>   "%"}]
>
>
> 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
>>

• Prev by Date: Re: M8 parallel to M9 installation
• Next by Date: R: Re: cauchy principal value double integral
• Previous by thread: Re: Creating a Function to Display Numbers in Percent Format
• Next by thread: Mathematica 9 for Windows