suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adapt front page example for the new plot.

Browse Source
This commit is contained in:
Eli Barzilay 2011-10-06 15:04:55 -04:00
parent 5829673215
commit de01db7bf1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/web/www/index.rkt
View File

@ -195,8 +195,8 @@
(define ((deriv f) x) (define ((deriv f) x)
(/ (- (f x) (f (- x 0.001))) 0.001)) (/ (- (f x) (f (- x 0.001))) 0.001))
(define (thrice f) (lambda (x) (f (f (f x))))) (define (thrice f) (lambda (x) (f (f (f x)))))
(plot (mix (line ((thrice deriv) sin) #:color 'red) (plot (list (function ((thrice deriv) sin) -5 5)
(line cos #:color 'blue)))} (function cos -5 5 #:color 'blue)))}
@desc{This program uses the @elemcode{plot} library to draw plots of @desc{This program uses the @elemcode{plot} library to draw plots of
functions. Note that the plots are actual value, which DrRacket shows functions. Note that the plots are actual value, which DrRacket shows
in graphical form.}) in graphical form.})