Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

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



  • 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