http://pasterack.org/pastes/84326
(again - for your desktop)
(require plot)(plot-new-window? #t)
(plot(polar(λ(θ)
(*(+(*(cos(* 8 θ)).9)1)
(+(*(cos(* 24 θ)).1)1)
(+(*(cos(* 200 θ)).05).9)
(+(sin θ)1)))
(* pi -1) pi #:samples 99999)#:width 3870 #:height 2170)
On Friday, March 23, 2018 at 5:17:03 PM UTC-4, Sanjeev Sharma wrote:
>
> I've done no math in 20 years - used to do tons (with the not so great
> graphics of the time) saw this intriguing plot & banged my head against a
> wall for a couple of hours.
>
> Then I just settled down & read the manual systematically, pretending it
> may have some info, followed the examples and voila
>
> (require plot)(plot-new-window? #t)
> (define(xu u)(*(sin(* 33 u))(cos(* 9 u))))
> (define(yu u)(*(sin(* 49 u))(sin(* 7 u))))
> (plot(parametric(λ(t)(vector(xu t)(yu t)))0 1));
>
>
>
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
