Re: Re: programmatically rotating a function plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg99518] Re: [mg99457] Re: programmatically rotating a function plot*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Thu, 7 May 2009 06:34:12 -0400 (EDT)*Reply-to*: hanlonr at cox.net

This doesn't work on my version $Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) Bob Hanlon ---- Jens-Peer Kuska <kuska at informatik.uni-leipzig.de> wrote: ============= 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. > > -- Bob Hanlon