1 665c255d 2023-08-04 jrmu (define (cube x) (* x x x))
2 665c255d 2023-08-04 jrmu (define (p x) (- (* 3 x) (* 4 (cube x))))
3 665c255d 2023-08-04 jrmu (define (sine angle)
4 665c255d 2023-08-04 jrmu   (if (not (> (abs angle) 0.1))
5 665c255d 2023-08-04 jrmu       angle
6 665c255d 2023-08-04 jrmu       (p (sine (/ angle 3.0)))))