Re: Colors

• To: mathgroup at smc.vnet.net
• Subject: [mg34995] Re: Colors
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Wed, 19 Jun 2002 05:52:26 -0400 (EDT)
• Organization: Universitaet Leipzig
• References: <aemlal\$mr6\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

ReY[f_, {x_, x1_, x2_}] :=
Module[{p, q},
p = Plot[Evaluate[f], {x, x1, x2}, DisplayFunction -> Identity];
q = p /. {u_?NumericQ, v_?NumericQ} -> {-u, v} /.
l_Line :> {RGBColor[1, 0, 0], l};
Show[p, q, DisplayFunction -> \$DisplayFunction]]

??

Regards
Jens

Juan Erfá wrote:
>
> Hi,I have the function ReY to reflect a curve about the Y axe:
>
> In[4]:= ReY[f_, {x_, x1_, x2_}] := Module[{p, q},
>     p = Plot[f, {x, x1, x2}, DisplayFunction -> Identity];
>     q = p /. {u_, v_} -> {-u, v};
>     Show[p, q, DisplayFunction -> \$DisplayFunction]]
>
> For ReY[Sin[t],{t,0,4}], I get both functions in black.
>
> I would like to use Hue[] to paint the curves in different colors, but after
> tryng to put Hue[] everywhere I get nothing.
>
> Another question is: What I have to do to allow ReY to work with more than
> one function, I mean: ReY[{Sin[t], t^3, Cos[t], ...},{t, 0,4}].
>
> Finally: How I can paint the axes in other color then black?.
>
> 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: Convolution problem
• Next by Date: RE: Colors