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