This preview shows page 1. Sign up to view the full content.
Unformatted text preview: ;; Question 3 ; ;;Red curve (define (red-curve red) ( + (cos red) 1)) (graph-fun red-curve 'red) ( ;;Blue curve (define (blue-curve blue) (+ (sin blue) 1)) (graph-fun blue-curve 'blue) ( ;;Orange curve (define (orange-curve orange) (+ (* (sin orange) -1) 1)) (graph-fun orange-curve 'orange) ( ;;Black curve (define (black-curve black) (+ (* (cos black) -1) 1)) (graph-fun black-curve 'black)...
View Full Document
- Fall '07