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)))))
 7 665c255d 2023-08-04 jrmu 
 8 665c255d 2023-08-04 jrmu (sine 12.15)
 9 665c255d 2023-08-04 jrmu (p (sine 4.05))
10 665c255d 2023-08-04 jrmu (p (p (sine 1.35)))
11 665c255d 2023-08-04 jrmu (p (p (p (sine 0.45))))
12 665c255d 2023-08-04 jrmu (p (p (p (p (sine 0.15)))))
13 665c255d 2023-08-04 jrmu (p (p (p (p (p (sine 0.05))))))
14 665c255d 2023-08-04 jrmu 
15 665c255d 2023-08-04 jrmu 5 times
16 665c255d 2023-08-04 jrmu 
17 665c255d 2023-08-04 jrmu number of steps is order of log(angle)
18 665c255d 2023-08-04 jrmu growth of space is order of log(angle) as well