MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Creating a Function to Display Numbers in Percent Format


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
>



  • Prev by Date: Re: M8 parallel to M9 installation
  • Next by Date: Re: Worldplot package
  • Previous by thread: Creating a Function to Display Numbers in Percent Format
  • Next by thread: Re: Creating a Function to Display Numbers in Percent Format