Leon,
e.g.?
result = ((1/3) * 3) + 1.0
> 1 s>f 3 s>f f/ 3 s>f f* 1 s>f f+ f>s .
^
?? -42 45
>
P.
- PŮVODNÍ ZPRÁVA -
Od: "Leon Nathaniel Maurer"
Komu: [email protected]
Předmět: Re: [Amforth-devel] Leon's float
D
wrote:
> s>f defined after the first usageYou have to relocate the
> Conversion words on the better place within the code(:-)). After the
> second upload it has been taken. So now how to test??? I have no
> idea... Float, float..P/
>
>
> - PŮVODNÍ ZPRÁVA -----
> Od: &
[email protected]
Předmět: [Amforth-devel] Leon's float
Datum: 27.8.2010 - 23:03:31
> Hi Leon,
> I've tried to upload to my new 1284p, but getting
> this error:
>
> .
> > : f/ ( f1 f2 -- f1/f2 )
> okfdup f0= abort" division by zero "
> okfzero
f/ isn't ready yet -- I'm actually working on it now (I wrote it when away
from my device).
I'd just remove f/ from the upload, I think the rest is good to go.
-Leon
On Friday, August 27, 2010 04:03:31 pm pito wrote:
> Hi Leon,
> I've tried to upload to my new 1284p, but getting this error:
>
>
Hi Leon,
I've tried to upload to my new 1284p, but getting this error:
.
> : f/ ( f1 f2 -- f1/f2 )
okfdup f0= abort" division by zero "
okfzeroexponent >r ( f1 f2, R: n2 )
okfswap fzeroexponent r> - >r fswap ( f1 f2, R: n1-n2 )
okf0 frot frot ( sum remainder divisor, R: exponent )
ok[ 1 s>f ]
