Re: Displaying Mixed Numbers

• To: mathgroup at smc.vnet.net
• Subject: [mg25252] Re: Displaying Mixed Numbers
• From: Jim Graber <jgraber at my-deja.com>
• Date: Sun, 17 Sep 2000 04:47:31 -0400 (EDT)
• References: <8pfdta\$cuu@smc.vnet.net> <8phca8\$g7m@smc.vnet.net> <Uzyv5.58215\$Zh6.61684@ralph.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Thanks for all suggestions posted and emailed.  I appreciate the help.
Jim Graber

In article <Uzyv5.58215\$Zh6.61684 at ralph.vnet.net>,
"Allan Hayes" <hay at haystack.demon.co.uk> wrote:
> Here is are extensions of Paul's code to deal with negative fractions
and
> held expressions. The separate treatment for held expressions is
needed
> because the conversion of, for example,  4/3 to Rational[4,3] is part
of the
> evaluation.
>
> Unprotect[Rational, Times];
> Format[Rational[num_Integer, den_Integer] /; Abs[num] > den,
StandardForm]
> :=
>     With[{s = Sign[num/den], an = Abs[num]},
>       DisplayForm[
>         RowBox[{ToString[s Quotient[ an, den]],
>             FractionBox[ToString[Mod[an, den]], ToString[den]]}]]
>       ];
>
> Format[(num_Integer/den_Integer) /; Abs[num] > Abs[den], StandardForm]
:=
>   With[{s = Sign[num/den], an = Abs[num], ad = Abs[den]},
>     DisplayForm[
>       RowBox[{ToString[s Quotient[ an, ad]],
>           FractionBox[ToString[Mod[an, ad]], ToString[ad]]}]]
>     ]
> Protect[Rational, Times];
>
> --
> Allan
> ---------------------
> Allan Hayes
> Mathematica Training and Consulting
> Leicester UK
> www.haystack.demon.co.uk
> hay at haystack.demon.co.uk
> Voice: +44 (0)116 271 4198
> Fax: +44 (0)870 164 0565
>
> "P.J. Hinton" <paulh at wolfram.com> wrote in message
> news:8phca8\$g7m at smc.vnet.net...
> > In article <8pfdta\$cuu at smc.vnet.net>,
> >  Jim Graber <jgraber at my-deja.com> writes:
> >
> > > While working with my third grader, I discovered the need
> > > to make 5/3 display and print as 1 2/3 so she can check her
> > > homework.
> > >
> > > I couldn't find a way to do this easily, so I wrote the following
which
> > > does the job.  Is there an easier or better way?
> > > Thanks.  Jim Graber
> > >
> > > Mix1[x_] := { Quotient[Numerator[x], Denominator[x]],
> > >     Mod[Numerator[x], Denominator[x]]/Denominator[x]}
> > >
> > > Mix[x_] := Print[Mix1[x][[1]], Mix1[x][[2]]];
> >
> > You may want to try adding a special formatting rule for Rational[]
> > when the numerator is greater than the denominator.
> >
> > Unprotect[Rational];
> >
> > Format[Rational[num_Integer, den_Integer], StandardForm] :=
> >   DisplayForm[
> >     RowBox[
> >       {
> >         ToString[Quotient[num, den]],
> >         FractionBox[ToString[Mod[num, den]], ToString[den]]
> >       }
> >     ]
> >   ] /; num > den
> >
> > Protect[Rational];
> >
> > --
> > P.J. Hinton
> > User Interface Programmer                         paulh at wolfram.com
> > Wolfram Research, Inc.
> > Disclaimer: Opinions expressed herein are those of the author alone.
> >
>
>

Sent via Deja.com http://www.deja.com/
Before you buy.

```

• Prev by Date: Re: ParametricPlot3D is buggy
• Next by Date: Re: RowReduce of badly conditioned matrix
• Previous by thread: Re: Displaying Mixed Numbers
• Next by thread: Re: Need Help With Simple Animation