PasteRack.org
Paste # 32847
2022-01-14 17:27:59

Fork as a new paste.

Paste viewed 132 times.


Embed:

#lang at-exp racket
(require infix
         plot/pict
         threading)

(define (f a x) @${sin[(10+a)*x]})
(define (g a x) @${x / (a+5)})

(parameterize ([line-width 2]
               [plot-x-label "Degrees"]
               [plot-y-label "Magnitude"]
               [plot-y-ticks (linear-ticks #:number 5)]
               [plot-width 800]
               [plot-aspect-ratio 2]
               [plot-legend-anchor 'outside-right-top])

  (plot (for/list ([a (inclusive-range 1 6)])
          (function (λ~>> degrees->radians
                          (f a)
                          (g a))
                    0 50
                    #:color a
                    #:label (~a "1/" (+ a 5) " sin " (+ 10 a) "x")))))

=>

standard-module-name-resolver: collection not found
  for module path: infix
  collection: "infix"
  in collection directories:
   /home/pasterack/.local/share/racket/8.2/collects
   /home/pasterack/racket82/collects/
   ... [174 additional linked and package directories]
  context...:
   /home/pasterack/racket82/collects/racket/require-transform.rkt:269:2: expand-import
   /home/pasterack/racket82/collects/racket/private/reqprov.rkt:601:24
   /home/pasterack/racket82/collects/racket/private/reqprov.rkt:589:5
   /home/pasterack/racket82/collects/racket/require-transform.rkt:269:2: expand-import
   /home/pasterack/racket82/collects/racket/private/reqprov.rkt:266:21: try-next
   /home/pasterack/racket82/collects/racket/private/reqprov.rkt:378:21: try-next
   /home/pasterack/racket82/collects/racket/private/reqprov.rkt:243:2
   /home/pasterack/racket82/collects/syntax/wrap-modbeg.rkt:46:4
   /home/pasterack/racket82/share/pkgs/scribble-lib/scribble/run.rkt:162:24
   .../private/map.rkt:40:19: loop
   .../racket/cmdline.rkt:191:51
   body of "/home/pasterack/racket82/share/pkgs/scribble-lib/scribble/run.rkt"