MathGroup Archive 2009

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

Search the Archive

Re: programmatically rotating a function plot



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