Re: programmatically rotating a function plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg99478] Re: [mg99395] programmatically rotating a function plot*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Wed, 6 May 2009 05:27:07 -0400 (EDT)*Reply-to*: hanlonr at cox.net

pic1 = Plot[8 Sin[Pi t] Exp[-t], {t, 0, 4}] plot4[p_] := Module[{R, p1, p2, p3}, R[q_] := Show[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] Bob Hanlon ---- Rodney <rodneyhoffman at gmail.com> 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.