Re: Lissajous W (was Re: Looking for Contractor)
- To: mathgroup at smc.vnet.net
- Subject: [mg13864] Re: [mg13828] Lissajous W (was Re: Looking for Contractor)
- From: Sergio Terrazas <sterraza at campus.cdj.itesm.mx>
- Date: Wed, 2 Sep 1998 01:30:59 -0400
- References: <6s5leo$c8r@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Elaborating a little on Martin Kraus' solution, since JWolf97 azked for
a "bubbly"
looking W, here is an idea:
graf=ParametricPlot[{-Cos[t],Cos[4t]},{t,0,2Pi},DisplayFunction->Identity];
circ=Table[Circle[{-Cos[t],Cos[4t]},.1],{t,0,2Pi,Pi/100}];
Show[graf,Graphics[{RGBColor[0.996109, 0,
0],circ}],AspectRatio->Automatic,
DisplayFunction->$DisplayFunction];
Cheers!
Sergio Terrazas
ITESM, Mexico
At 04:41 AM 8/29/98 -0400, you wrote:
>JWolf97 wrote:
>>
>> Hello,
>>
>> I have see the mathematica application and believe it could create what
>> I'm looking for. I need a Lissajous type looking bubbly letter "W"..
>> It doesn't have to be a perfect W but, if some someone was looking at
>> the image they need to be able to say "looks like a W"
>
>What about this one:
>
>ParametricPlot[{-Cos[t],Cos[4t]},{t,0,2Pi}];
>
>> If you yourself could do this or know someone who might be able too,
>> please have him/her contact me ( jwolf at cks.com )
>
>I did not. Anyone willing to earn some cheap money? ;)
>
>> Yes, this would be for money, possibly even more than mathematica is
>> worth..
>>
>> Thanks for your time
>> ( If it is past 9/20/98 please disregard this message)
>
>Some people (including myself) actually do this kind of stuff just for
>fun. Isn4t this strange? :)
>
>Martin Kraus
>
>
>