I hit send a bit too fast. Here is the code (from the animate-canvas package on PLaneT) for the 3D animation.
On Mon, Mar 26, 2018 at 8:39 AM, Doug Williams <m.douglas.willi...@gmail.com > wrote: > Another thing I like to do is to animate such plots. The plot package is > (generally) fast enough to do this. This code uses my animated-canvas% > package, which is still on planet. I've also attached a gif of it. [I had > never used the animated gif routines in Racket before, but they were pretty > easy to use.] I've also attached an an animation of one of the 3D plots > from the plot manual. > > animation.rkt - Sanjeev's plot animated > animation.gif - the animated gif (so you don't actually have to run the > code to see the results) > > > On Fri, Mar 23, 2018 at 3:17 PM, Sanjeev Sharma <throw...@gmail.com> > 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. >> > > -- 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.
anim.rkt
Description: Binary data
