| 123456789101112131415161718 |
- #!/usr/bin/env scheme-r7rs
- ; This is a script to test the plotting library
- (import (scheme base)
- (scheme inexact)
- (macduffie plot))
- ; For testing
- (define (f1 x) (* x x))
- (define (f2 x) (/ 1 (+ 0.02 x)))
- (define (f3 x) (sqrt (+ (* x x) 1)))
- (define (f4 x) (sqrt (- 1 (* x x))))
- ; (plot f1 -5 40 -8 8 24 80)
- ; (plot f2 0 3 0 3 24 80)
- ; (plot f3 0 4 -3 3 24 80)
- (plot f4 0 1 -1 1 24 80)
|
