;; high precision (bind-func parabolicSineHP (let ((B (/ 4.0 SPI)) (C (/ -4.0 (* SPI SPI))) (P 0.225) (y 0.0)) (lambda (x) (set! y (+ (* B x) (* C x (fabs x)))) (+ (* P (- (* y (fabs y)) y)) y))))