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>
- Reply-to: kuska at informatik.uni-leipzig.de
- 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