1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#lang racket/base
(require scribble/eval
(for-label racket
racket/gui/base
pict
db
plot
plot/utils
plot/snip
(only-in racket/sequence sequence/c)))
(provide (all-defined-out)
(all-from-out scribble/eval)
(for-label (all-from-out racket
racket/gui/base
pict
db
plot
plot/snip
plot/utils)
sequence/c))
(require (for-syntax racket/base
syntax/parse
racket/syntax)
(prefix-in s. scribble/manual)
(only-in racket/contract any/c)
(for-label (only-in racket/contract any/c)))
(define (author-email) "neil.toronto@gmail.com")
(define (plot-name) "Plot")
(define plot-eval
(let ([eval (make-base-eval)])
(eval '(begin
(require racket/math racket/match racket/list racket/draw racket/class
plot/pict
plot/utils)))
eval))
(define (close-plot-eval)
(close-eval plot-eval))
|
