Lambda logo with Racket's plot
#lang racket | |
(require plot) | |
(let ([blue '(0 0 164)] [red '(164 0 0)]) | |
(parameterize ([plot-decorations? #f]) | |
(plot3d | |
(list | |
(surface3d (λ(x y)(/ x 10)) 0 5 0 1 #:color red #:line-color red) | |
(surface3d (λ(x y)(- 1 (/ (+ 1 (exp (- 5 x)))))) 0 10 0 1 #:color blue #:line-color blue)) | |
#:angle 335 #:altitude 5))) | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
This comment has been minimized.