library/test/math/irrational.factor

   1 IN: scratchpad
   2 USE: arithmetic
   3 USE: kernel
   4 USE: math
   5 USE: test
   6
   7 [ 4.0 ] [ 16 ] [ sqrt ] test-word
   8 [ #{ 0 4.0 } ] [ -16 ] [ sqrt ] test-word
   9
  10 [ 4.0 ] [ 2 2 ] [ ^ ] test-word
  11 [ 0.25 ] [ 2 -2 ] [ ^ ] test-word
  12 [ t ] [ 2 0.5 ^ 2 ^ ] [ 2 2.00001 between? ] test-word
  13 [ t ] [ e pi i * ^ real ] [ -1.0 = ] test-word
  14 [ t ] [ e pi i * ^ imaginary ] [ -0.00001 0.00001 between? ] test-word
  15
  16 [ 1.0 ] [ 0 ] [ cosh ] test-word
  17 [ 0.0 ] [ 1 ] [ acosh ] test-word
  18
  19 [ 1.0 ] [ 0 ] [ cos ] test-word
  20 [ 0.0 ] [ 1 ] [ acos ] test-word
  21
  22 [ 0.0 ] [ 0 ] [ sinh ] test-word
  23 [ 0.0 ] [ 0 ] [ asinh ] test-word
  24
  25 [ 0.0 ] [ 0 ] [ sin ] test-word
  26 [ 0.0 ] [ 0 ] [ asin ] test-word