Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Creating a Function to Display Numbers in Percent Format
Replies: 2   Last Post: Dec 4, 2012 4:10 AM

 Messages: [ Previous | Next ]
 Gregory Lypny Posts: 247 Registered: 3/14/05
Re: Creating a Function to Display Numbers in Percent Format
Posted: Dec 4, 2012 4:10 AM

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@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@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
>>

Date Subject Author
12/3/12 Bob Hanlon
12/4/12 Gregory Lypny