MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive


  • To: mathgroup at
  • Subject: [mg35048] Colors
  • From: "Juan" <erfa11 at>
  • Date: Thu, 20 Jun 2002 23:54:49 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

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


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


MSN Photos es la manera más sencilla de compartir e imprimir sus fotos:

  • Prev by Date: Re: StoppingTest option for NDSolve
  • Next by Date: Notebook editor and KDE on Linux
  • Previous by thread: RE: RE: Colors
  • Next by thread: About Front End