waves - ;; Question 3 ; ;;Red curve (define (red-curve red)...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
;; The first three lines of this file were inserted by DrScheme. They record metadata ;; about the language level of this file in a form that our tools can easily process. #reader(lib "htdp-beginner-reader.ss" "lang")((modname waves) (read-case-sensitive #t) (teachpacks ((lib "graphing.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "graphing.ss" "teachpack" "htdp"))))) ;; Ru Wang r46wang 20319247
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

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

Ask a homework question - tutors are online