Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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.




  • Prev by Date: solve an integration equation
  • Next by Date: Re: programmatically rotating a function plot
  • Previous by thread: Re: programmatically rotating a function plot
  • Next by thread: Re: programmatically rotating a function plot