2005-02-08 22:02:44 -05:00
|
|
|
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
2004-09-07 23:47:18 -04:00
|
|
|
IN: math
|
|
|
|
|
USE: kernel
|
|
|
|
|
|
2005-01-14 12:01:48 -05:00
|
|
|
: i #{ 0 1 }# ; inline
|
|
|
|
|
: -i #{ 0 -1 }# ; inline
|
2004-09-07 23:47:18 -04:00
|
|
|
: inf 1.0 0.0 / ; inline
|
|
|
|
|
: -inf -1.0 0.0 / ; inline
|
|
|
|
|
: e 2.7182818284590452354 ; inline
|
|
|
|
|
: pi 3.14159265358979323846 ; inline
|
2004-09-18 22:29:29 -04:00
|
|
|
|
2005-08-12 18:02:03 -04:00
|
|
|
: deg>rad pi * 180 / ; inline
|
|
|
|
|
: rad>deg 180 * pi / ; inline
|
