MathGroup Archive 2009

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

Search the Archive

Re: Combine images, Show[] and its effect on AspectRatio. Plot, Epilog, Circle, Arc

  • To: mathgroup at smc.vnet.net
  • Subject: [mg105434] Re: [mg105402] Combine images, Show[] and its effect on AspectRatio. Plot, Epilog, Circle, Arc
  • From: "Nasser M. Abbasi" <nma at 12000.org>
  • Date: Wed, 2 Dec 2009 06:27:40 -0500 (EST)
  • Reply-to: "Nasser M. Abbasi" <nma at 12000.org>

I think I found a solution, and this works for any plot ranges, the idea is 
to use Epilog and Inset.

here it is.


(* make an arc with an arrow at the end *)
r=3;

data = Table[{r*Cos[theta], r*Sin[theta]},
                       {theta, -45*Degree, 180*Degree, 1*Degree} ];

arrow= {Arrowheads[Medium],Arrow[Line[data]]};


(*now place at an center of a plot, using Epilog and Inset, change plot 
ranges to see if it remains circular *)

Plot[Sin[x],{x, -Pi, Pi},
Epilog->Inset[ Graphics[arrow],{0,0},{0,0},r]]

Plot[Sin[x],{x, -3 Pi,3 Pi},
Epilog->Inset[ Graphics[arrow],{0,0},{0,0},r]]

Plot[Sin[x],{x, - 6Pi, 6Pi},
Epilog->Inset[ Graphics[arrow],{0,0},{0,0},r]]

Plot[x^3,{x, -10, 10},
Epilog->Inset[ Graphics[arrow],{0,0},{0,0},r]]


so far so good!

--Nasser



  • Prev by Date: Re: ListPointPlot3D[] couldn't rotate the graph
  • Next by Date: Re: Where does the 'z' come from?
  • Previous by thread: Re: Combine images, Show[] and its effect on AspectRatio. Plot, Epilog, Circle, Arc
  • Next by thread: Re: Combine images, Show[] and its effect on AspectRatio. Plot, Epilog, Circle, Arc