PasteRack.org
Paste # 59894
2018-03-25 21:48:20

Fork as a new paste.

Paste viewed 2026 times.


Embed:

  1. #lang racket
  2. (require plot/pict)
  3.  
  4. (plot(polar
  5.       (λ(θ)(+(exp(sin θ))(*(cos(* 4 θ))-2)(expt(sin(/(-(* 2 θ)pi)24))5)))
  6.       -99 99 #:samples 99999))

=>

image