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.