0. #lang at-exp racket
1. (require infix
2.          plot/pict
3.          threading)
4.  
5. (define (f a x) @${sin[(10+a)*x]})
6. (define (g a x) @${x / (a+5)})
7.  
8. (parameterize ([line-width 2]
9.                [plot-x-label "Degrees"]
10.                [plot-y-label "Magnitude"]
11.                [plot-y-ticks (linear-ticks #:number 5)]
12.                [plot-width 800]
13.                [plot-aspect-ratio 2]
14.                [plot-legend-anchor 'outside-right-top])
15.  
16.   (plot (for/list ([a (inclusive-range 1 6)])
17.           (function (λ~>> degrees->radians
18.                           (f a)
19.                           (g a))
20.                     0 50
21.                     #:color a
22.                     #:label (~a "1/" (+ a 5) " sin " (+ 10 a) "x")))))

=>

datum->syntax: contract violation

expected: (or/c #f syntax?

(list/c any/c

(or/c exact-positive-integer?

#f)

(or/c

exact-nonnegative-integer? #f)

(or/c exact-positive-integer?

#f)

(or/c

exact-nonnegative-integer? #f))

(vector/c any/c

(or/c exact-positive-integer?

#f)

(or/c

exact-nonnegative-integer? #f)

(or/c exact-positive-integer?

#f)

(or/c

exact-nonnegative-integer? #f)))

given: '(eval 2 -1 2 1)

datum->syntax: contract violation

expected: (or/c #f syntax?

(list/c any/c

(or/c exact-positive-integer?

#f)

(or/c

exact-nonnegative-integer? #f)

(or/c exact-positive-integer?

#f)

(or/c

exact-nonnegative-integer? #f))

(vector/c any/c

(or/c exact-positive-integer?

#f)

(or/c

exact-nonnegative-integer? #f)

(or/c exact-positive-integer?

#f)

(or/c

exact-nonnegative-integer? #f)))

given: '(eval 3 -1 3 1)

plot: could not determine sensible plot bounds; got x ∈

[0,50], y ∈ [#f,#f]