Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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



  • Prev by Date: BinaryReadList
  • Next by Date: Re: Picking Off Lists That Have No Numbers
  • Previous by thread: Re: programmatically rotating a function plot
  • Next by thread: Re: How to get the options for ListPlot in V6