51 lines
1.4 KiB
Racket
51 lines
1.4 KiB
Racket
#lang racket
|
|
|
|
(require plot plot/utils)
|
|
|
|
(define (norm mx my x y)
|
|
(exp (* -1/2 (+ (sqr (- x mx)) (sqr (- y my))))))
|
|
|
|
(define (f x y)
|
|
(+ (* 1.1 (norm -1.5 -1.5 x y))
|
|
(* 2 (norm 1 1 x y))
|
|
(* 1.3 (norm 2 -2 x y))))
|
|
|
|
(parameterize ([plot-title "Survival Rate of Torsion Widgets"]
|
|
[plot-x-label "Torsion"]
|
|
[plot-y-label "Widgetyness"])
|
|
(time
|
|
(plot (contour-intervals f #:alphas '(0.5))
|
|
#:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5
|
|
#:out-file "contour-test.png"))
|
|
|
|
(time
|
|
(plot (contour-intervals f)
|
|
#:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5
|
|
#:out-file "contour-test.ps"))
|
|
|
|
(time
|
|
(plot (contour-intervals f #:alphas '(0.5))
|
|
#:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5
|
|
#:out-file "contour-test.pdf"))
|
|
|
|
(time
|
|
(plot (contour-intervals f)
|
|
#:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5
|
|
#:out-file "contour-test.svg")))
|
|
|
|
(time
|
|
(plot3d (contour-intervals3d f -5 5 -5 5 #:alphas '(1/4 3/4))
|
|
#:out-file "contour3d-test.pdf"))
|
|
|
|
(time
|
|
(plot3d (contour-intervals3d f -5 5 -5 5 #:alphas '(1/4 3/4))
|
|
#:out-file "contour3d-test.ps"))
|
|
|
|
(time
|
|
(plot3d (contour-intervals3d f -5 5 -5 5 #:alphas '(1/4 3/4))
|
|
#:out-file "contour3d-test.svg"))
|
|
|
|
(time
|
|
(plot3d (contour-intervals3d f -5 5 -5 5 #:alphas '(1/4 3/4))
|
|
#:out-file "contour3d-test.png"))
|