From: Gene <gene.ressler@gmail.com>
Subject: Re: Truncating a fixed-point value
Date: Sun, 11 Jul 2010 12:43:15 -0700 (PDT)
Date: 2010-07-11T12:43:15-07:00 [thread overview]
Message-ID: <cebba919-bee9-44e6-91e6-0cf70caa8dc1@i28g2000yqa.googlegroups.com> (raw)
In-Reply-To: 9377ec5d-cd11-41e5-8891-ce9436767bb4@j4g2000yqh.googlegroups.com
On Jul 9, 11:13 pm, Gene <gene.ress...@gmail.com> wrote:
> On Jul 9, 7:21 pm, Adam Beneschan <a...@irvine.com> wrote:
>
>
>
>
>
> > On Jul 9, 1:34 pm, Simon Wright <si...@pushface.org> wrote:
>
> > > Adam Beneschan <a...@irvine.com> writes:
> > > > I must be suffering from an embarrassing mental block, because I'm
> > > > sure there's a simple solution, but I can't see what it is.
>
> > > > I have a value X of a fixed-point type, X >= 0.0, and I need to
> > > > compute Floor(X) as an Integer. 'Truncation and 'Floor aren't defined
> > > > for fixed-point types; the type conversion Integer(X) rounds; and
> > > > Integer(X-0.5) fails if X=0.0.
>
> > > > How do others do this? Or do I have to resort to an IF statement (or
> > > > conditional expression in Ada 2012) to handle the different cases?
>
> > > Looks as though Integer(X+0.5)-1 might do the trick ..
>
> > Yes, it looks like it, as long as X >= 0.0 and 0.5 is a model number
> > of the fixed-point type (I think I'm using the right term). Those
> > conditions do hold for the code I need it for. It isn't useful for
> > negative numbers---it yields -2 if X=-1.0, which is not useful whether
> > you want a truncation or a floor operation---but I did stipulate
> > nonnegative X in my original question.
>
> > -- Adam
>
> Shouldn't there be a way to convert a fixed point type to a
> corresponding modular or integer type with one integer value per
> floating point value, use rem to compute a floor, and convert back?- Hide quoted text -
I'll try to answer my own question. Here is an attempt that works for
a variety of fixed point types. I'm no expert on fixed point. Perhaps
I've embedded some non-portable assumptions. With optimizations turned
up and range checks off, the Floor function inlines as the 3 (x86)
instructions you'd expect (subtract, "and" with mask, add) using GPL
2007.
with Ada.Text_IO; use Ada.Text_IO;
procedure FPF is
type FP is delta 0.125 range -10.0 .. 50.0;
function Floor(X : FP) return FP is
Delta_Inv : constant := 1.0 / FP'Delta;
type Bits is mod 2 ** 32;
type FP_Bits is delta 1.0 range 0.0 .. (FP'Last - FP'First) *
Delta_Inv;
Ordinal : constant Bits := Bits((X - FP'First) * Delta_Inv) and
not(Bits(Delta_Inv) - 1);
begin
return FP'Base(FP_Bits(Ordinal) * FP'Delta) + FP'First;
end;
X : FP := FP'First;
begin
loop
Put_Line(FP'Image(X) & " -> " & FP'Image(Floor(X)));
exit when X = FP'Last;
X := X + FP'Delta;
end loop;
end;
next prev parent reply other threads:[~2010-07-11 19:43 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-07-09 19:06 Truncating a fixed-point value Adam Beneschan
2010-07-09 20:34 ` Simon Wright
2010-07-09 23:21 ` Adam Beneschan
2010-07-10 3:13 ` Gene
2010-07-11 19:43 ` Gene [this message]
2010-07-10 8:12 ` Simon Wright
2010-07-09 20:39 ` Gene
2010-07-09 21:20 ` Jeffrey R. Carter
2010-07-09 21:52 ` Adam Beneschan
2010-07-13 11:26 ` Jacob Sparre Andersen
2010-07-09 22:58 ` Shark8
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox