> marker -myrecflt ok > : rec-float count >float okif state @ if postpone fliteral then -1 else 0 then ok; ok > : place-rec ( xt -- ) okget-recognizer okdup >r ok1- n>r okswap oknr> drop r> 1+ okset-recognizer ok; ok > ' rec-float place-rec ok > .s ok > 4.00e3 -5.00e3 f* fs. -2.0E7 ok > 355.0 113.0 f/ fs. 3.141593 ok > -52163.0 -16604.0 f/ fs. 3.1415925 ok > +timer ok > : test2 timer-start 10000 0 do -4.783272 +3.88327e-3 f/ fdrop loop > timer-stop fs. ; > ok > test2 1.73333335 ok
----- PŮVODNÍ ZPRÁVA ----- Od: "pito" <[email protected]> Komu: [email protected], [email protected] Předmět: Re: [Amforth] Recognizer - float - issue Datum: 26.5.2011 - 17:52:52 > Hmmm, however it does not work when compiled: > > > : test7 9.33e-1 8.334e+12 f* fp. ; > ok > > test7 > 3.402823E38 ok > > 9.33e-1 8.334e+12 f* fp. > 7.775622E12 ok > > > > Any hint from experts?? P. > > > > > ----- PŮVODNÍ ZPRÁVA ----- > Od: "pito" <[email protected]> > Komu: [email protected] > Předmět: [Amforth] Recognizer - float - issue > Datum: 26.5.2011 - 14:34:07 > > > Hi - this does work with my setup: > > > marker -mycode > > ok > > > : rec-float count >float state @ if postpone > > > fliteral then ; > > > ok > > > .s > > ok > > > get-recognizer > > ok > > > .s > > 0 2005 3 > > 1 2007 1562 > > 2 2009 1532 > > 3 2011 1593 > > ok > > > : place-rec ( xt -- ) > > okget-recognizer > > okdup >r > > ok1- n>r > > okswap > > oknr> drop r> 1+ > > okset-recognizer > > ok; > > ok > > > get-recognizer > > ok > > > .s > > 0 1997 3 > > 1 1999 1562 > > 2 2001 1532 > > 3 2003 1593 > > 4 2005 3 > > 5 2007 1562 > > 6 2009 1532 > > 7 2011 1593 > > ok > > > ... > > ... ?? -13 4 > > > ' rec-float place-rec > > ok > > > .s > > ok > > > get-recognizer > > ok > > > .s > > 0 2003 4 > > 1 2005 1562 > > 2 2007 1532 > > 3 2009 8483 > > 4 2011 1593 > > ok > > > 1.222e6 fs. > > 1.2219999E6 ok > > > -3.556e12 0.564343E-12 f* fp. > > -2.006803 ok > > > 1.00 fsin fs. > > 8.414711E-1 ok > > > 1.000e15 flog10 fs. > > 1.50000024E1 ok > > > > > > > > > ------------------------------------------------------------------------------ > > > > > > vRanger cuts backup time in half-while > > > increasing > > > > security. > > With the market-leading solution for virtual > > backup and recovery, > > you get blazing-fast, flexible, and affordable > > data protection. > > Download your free trial now. > > http://p.sf.net/sfu/quest-d2dcopy1 > > _______________________________________________ > > Amforth-devel mailing list > > [email protected] > > https://lists.sourceforge.net/lists/listinfo/amforth-devel > > > > > ------------------------------------------------------------------------------ vRanger cuts backup time in half-while increasing security. With the market-leading solution for virtual backup and recovery, you get blazing-fast, flexible, and affordable data protection. Download your free trial now. http://p.sf.net/sfu/quest-d2dcopy1 _______________________________________________ Amforth-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/amforth-devel
