Re: Combine images, Show[] and its effect on AspectRatio. Plot, Epilog, Circle, Arc
- To: mathgroup at smc.vnet.net
- Subject: [mg105443] 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:29:34 -0500 (EST)
- References: <20091201065400.COAYG.75.imail@eastrmwml48>
- Reply-to: "Nasser M. Abbasi" <nma at 12000.org>
>
> The original aspect ratio is
>
> 1/GoldenRatio // N
>
> 0.618034
>
> If you want a circle using that aspect ratio, then draw an ellipse
>
> p = Plot[Sin[x], {x, -Pi, Pi},
> Epilog -> Circle[{0, 0}, .5 {GoldenRatio, 1},
> {-45 Degree, 180 Degree}]]
>
>
> Bob Hanlon
>
>
Hi;
The above works for {-Pi,Pi}, when I changed the plot range, it no longer
comes out as a circle:
pl=Plot[Sin[x],{x,-3 Pi,3 Pi}];
asp=AspectRatio/.FullOptions[pl];
p=Plot[Sin[x],{x,-3 Pi,3 Pi},Epilog->Circle[{0,0},.5 {1/asp,1},{-45
Degree,180 Degree}]]
--Nasser