MathGroup Archive 2009

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

Search the Archive

Re: Avoid printing leading zero

  • To: mathgroup at smc.vnet.net
  • Subject: [mg100791] Re: Avoid printing leading zero
  • From: Ray Koopman <koopman at sfu.ca>
  • Date: Sun, 14 Jun 2009 05:39:07 -0400 (EDT)
  • References: <h0sc2a$hi2$1@smc.vnet.net>

On Jun 11, 6:46 pm, Jos=E9 Lorenzana <lorenzana.j... at gmail.com> wrote:
> How do you avoid printing the leading zero in -0.03?
> I need to construct the string "-.03" .
>
> Something like this does not work:
> ToString at NumberForm[-0.3, {0, 2}]

I have thie following two routines in my init.m file.

'myform' suppresses exponential notation and substitutes a blank
space for the non-significant leading zero that precedes a fraction
in PaddedForm output: " 0.xyz" -> "  .xyz", and "-0.xyz" -> " -.xyz".
The number of characters does not change. This is a quick-&-dirty
implementation. There are no checks for out-of-range values, special
cases, non-numbers, etc, so there may be error messages, more than
w+2 characters, or other anomalies.

myform[x__] := StringReplace[ToString@PaddedForm[x,
ExponentFunction->(Null&)],{" 0.0"->"  .0", " 0.1"->"  .1",
" 0.2"->"  .2", " 0.3"->"  .3", " 0.4"->"  .4", " 0.5"->"  .5",
" 0.6"->"  .6", " 0.7"->"  .7", " 0.8"->"  .8", " 0.9"->"  .9",
"-0.0"->" -.0", "-0.1"->" -.1", "-0.2"->" -.2", "-0.3"->" -.3",
"-0.4"->" -.4", "-0.5"->" -.5", "-0.6"->" -.6", "-0.7"->" -.7",
"-0.8"->" -.8", "-0.9"->" -.9"}];

'mform' is like 'myform', but in positive numbers the non-significant
zero is simply deleted, not replaced by a blank space, and the string
is one character shorter.

mform[x__] := StringReplace[ToString@PaddedForm[x,
ExponentFunction->(Null&)],{" 0.0"->" .0", " 0.1"->" .1",
" 0.2"->" .2", " 0.3"->" .3", " 0.4"->" .4", " 0.5"->" .5",
" 0.6"->" .6", " 0.7"->" .7", " 0.8"->" .8", " 0.9"->" .9",
"-0.0"->" -.0", "-0.1"->" -.1", "-0.2"->" -.2", "-0.3"->" -.3",
"-0.4"->" -.4", "-0.5"->" -.5", "-0.6"->" -.6", "-0.7"->" -.7",
"-0.8"->" -.8", "-0.9"->" -.9"}];


  • Prev by Date: Re: How to use R within Mathematica
  • Next by Date: Re: Re: Correction to "Fundamental Theorem of Calculus and
  • Previous by thread: Re: Avoid printing leading zero
  • Next by thread: Re: Avoid printing leading zero