Colors
- To: mathgroup at smc.vnet.net
- Subject: [mg35048] Colors
- From: "Juan" <erfa11 at hotmail.com>
- Date: Thu, 20 Jun 2002 23:54:49 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi, thanks for helping me with the code to reflect a function.
I send you here a summer butterfly, using your ideas:
The function REF is reflecting f, depending of the parameters (a, b).
<<Graphics`Graphics`
In[21]:=REF[f_, {u_, u1_, u2_}, {a_, b_}] := Module[{g1, g2},
g1 = PolarPlot[f, {u, u1, u2},
PlotStyle -> Hue[0], DisplayFunction -> Identity];
g2 = g1 /. {p_Real, q_Real} -> {a, b}*{p, q} /.
li_Line :> {Hue[0.7], li};
Show[g2, g1, DisplayFunction -> $DisplayFunction]]
Here is the butterfly:
In[22]:=REF[Sin[t] + 2*Sin[2*t], {t, 0, 2*Pi}, {-2, -1}]
Good summer (for those who are in the north hemisphere).
Regards
Juan
_________________________________________________________________
MSN Photos es la manera más sencilla de compartir e imprimir sus fotos:
http://photos.msn.com/support/worldwide.aspx