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