       Re: programmatically rotating a function plot

• To: mathgroup at smc.vnet.net
• Subject: [mg99457] Re: programmatically rotating a function plot
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Wed, 6 May 2009 05:23:11 -0400 (EDT)
• Organization: Uni Leipzig
• References: <gtp1a9\$jp8\$1@smc.vnet.net>

```Hi,

plot4[p_] :=
Module[{R, p1, p2, p3}, R[q_] := Show[q /. {x_, y_} :> {-y, x}];
p1 = R[p]; p2 = R[p1]; p3 = R[p2];
Show[p, p1, p2, p3, PlotRange -> All]];

??

Regards
Jens

Rodney wrote:
> This (from some book) worked in Mathematica 4, but not now:
>
>  - - - - - - - - - - - -
> pic1 = Plot[8 Sin[Pi t] Exp[-t], {t, 0, 4}]
>
> plot4[p_] := Module[{R, p1, p2, p3},
>      R[q_] := Show[q/.{x_, y_}:> {-y,x}];
>      p1 = R[p]; p2 = R[p1]; p3 = R[p2];
>      Show[p,p1,p2,p3]
> ];
>
> plot4[pic1]
>
>  - - - - - - - - - - - - -
>
> I can't figure out how to do it today.  Thanks for any suggestions.
>
>

```

• Prev by Date: Re: programmatically rotating a function plot
• Next by Date: Re: defining consecutive variables
• Previous by thread: Re: programmatically rotating a function plot
• Next by thread: Re: programmatically rotating a function plot