testvsinecos   xtlang

(bind-func testvsinecos
  (lambda ()
    (let ((a:/4,float/* (alloc)))
      (vfill! a 0.1 0.2 0.3 0.4)
      (let ((b (vsinf4 (pref a 0)))
            (c (vcosf4 (pref a 0))))
        (printf "precision inaccuracy is expected:\n")
        (printf " sin:\t%f,%f,%f,%f\n"
                (ftod (sin 0.1))
                (ftod (sin 0.2))
                (ftod (sin 0.3))
                (ftod (sin 0.4)))
        (printf "vsinf:\t%f,%f,%f,%f\n"
                (ftod (vref b 0))
                (ftod (vref b 1))
                (ftod (vref b 2))
                (ftod (vref b 3)))
        (printf " cos:\t%f,%f,%f,%f\n"
                (ftod (cos 0.1))
                (ftod (cos 0.2))
                (ftod (cos 0.3))
                (ftod (cos 0.4)))
        (printf "vcosf:\t%f,%f,%f,%f\n"
                (ftod (vref c 0))
                (ftod (vref c 1))
                (ftod (vref c 2))
                (ftod (vref c 3)))
        void))))