       Re: programmatically rotating a function plot

• To: mathgroup at smc.vnet.net
• Subject: [mg99463] Re: programmatically rotating a function plot
• From: dh <dh at metrohm.com>
• Date: Wed, 6 May 2009 05:24:18 -0400 (EDT)
• References: <gtp1a9\$jp8\$1@smc.vnet.net>

```
Hi Rodney,

the representation of Graphics seems to have changed. Your replacement

rule ({x_, y_}:> {-y,x}) catches cases it is not intended for. Therefore

make it more specific.

I also change the PlotRange:

================================

pic1 = Plot[8 Sin[Pi t] Exp[-t], {t, 0, 4}];

plot4[p_] := Module[{R, p1, p2, p3},

R[q_] := q /. {x_?NumericQ, y_?NumericQ} :> {-y, x};

p1 = R[p];

p2 = R[p1];

p3 = R[p2];

Show[{p, p1, p2, p3}, PlotRange -> All]

];

plot4[pic1]

================================

Daniel

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: defining consecutive variables
• Next by Date: Given a matrix, find position of first non-zero element in each row
• Previous by thread: Re: programmatically rotating a function plot
• Next by thread: Re: Re: programmatically rotating a function plot