Re: [racket-users] sharing an awesome plot - warms the cockles of my heart

2018-03-29 Thread Sanjeev Sharma
Thanks so much Mr. Williams.

I posted that last item then disappeared - I had one of my CPA exams (I
failed, but i always think that after an exam) & just had to force myself
not to check my email for a couple of days.

I hope it didn't take you too long.

Unless, like me, you program like some people play video games.  If so, I
hope it kept you up all night ; )


On Tue, Mar 27, 2018 at 11:23 AM, Doug Williams <
m.douglas.willi...@gmail.com> wrote:

> Sanjeev and I took this discussion offline to iterate over some details.
> But, I thought I would post some final thoughts on this. First, I want to
> thank Sanjeev for his original post. Without it, I wouldn't have dived into
> some of these details - particularly creating the animated gif.
>
> One issue that came up was that the default line-samples parameter value
> of 500 doesn't work well for larger plots - those with 'longer' lines. So,
> you may need to up this value - we used 5000 for the following example by
> using (parameterize ((line-samples 5000)) ...) around the appropriate code.
> Other than that, this seems to work fine.
>
> I am attaching the code to animate another of Sanjeev's examples - both
> without and with the code to create an animated gif. I am also appending
> the resulting gif. This was a lot of fun.
>
> Doug
>
> On Mon, Mar 26, 2018 at 8:49 AM, Doug Williams <
> m.douglas.willi...@gmail.com> wrote:
>
>> And, I made a gif of the animated 3D plot.
>>
>> On Mon, Mar 26, 2018 at 8:42 AM, Doug Williams <
>> m.douglas.willi...@gmail.com> wrote:
>>
>>> 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 
 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.


Re: [racket-users] sharing an awesome plot - warms the cockles of my heart

2018-03-27 Thread Geoffrey Knauth
This was a fun thread, thanks to everyone for sharing the plots, and for 
pointing out pasterack.org!

-- 
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.


Re: [racket-users] sharing an awesome plot - warms the cockles of my heart

2018-03-26 Thread Sanjeev Sharma
what.  the.  heck. 
is going on here? 


On Monday, March 26, 2018 at 10:49:45 AM UTC-4, m.douglas.williams wrote:
>
> And, I made a gif of the animated 3D plot.
>
>

-- 
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.


an_plot_001.rkt
Description: Binary data


Re: [racket-users] sharing an awesome plot - warms the cockles of my heart

2018-03-26 Thread Doug Williams
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  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 
> 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


Re: [racket-users] sharing an awesome plot - warms the cockles of my heart

2018-03-26 Thread 韋嘉誠
On Sun, Mar 25, 2018 at 8:30 AM, Stephen Chang  wrote:
> For those who don't have drracket handy: http://pasterack.org/pastes/59296

Wow, that is a really cool service. Thanks for mentioning it!

-- 
   /c

-- 
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.


RE: [racket-users] sharing an awesome plot - warms the cockles of my heart

2018-03-24 Thread Stephen Chang
For those who don't have drracket handy: http://pasterack.org/pastes/59296

On Mar 24, 2018 4:26 PM, "Jos Koot"  wrote:
>
> Very nice,
> Jos Koot
>
> 
> From: racket-users@googlegroups.com [mailto:racket-users@googlegroups.com] On 
> Behalf Of Sanjeev Sharma
> Sent: 23 March 2018 22:17
> To: Racket Users
> Subject: [racket-users] sharing an awesome plot - warms the cockles of my 
> heart
>
> 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.

-- 
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.


RE: [racket-users] sharing an awesome plot - warms the cockles of my heart

2018-03-24 Thread Jos Koot
Very nice,
Jos Koot

  _  

From: racket-users@googlegroups.com [mailto:racket-users@googlegroups.com] On 
Behalf Of Sanjeev Sharma
Sent: 23 March 2018 22:17
To: Racket Users
Subject: [racket-users] sharing an awesome plot - warms the cockles of my heart


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.


[racket-users] sharing an awesome plot - warms the cockles of my heart

2018-03-23 Thread Sanjeev Sharma
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.