Re: Stretching X-Axis in Plot[]
- To: mathgroup at smc.vnet.net
- Subject: [mg45804] Re: Stretching X-Axis in Plot[]
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Mon, 26 Jan 2004 01:53:09 -0500 (EST)
- References: <bv00rj$jg7$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
When you make the AspectRatio small, make the ImageSize large.
Or you can use an inset of the magnified region:
f[x_] := (x-0.5)(x-.65)(x-.675)(x-.7)(x-.725)(x-.75)(x-1);
Plot[f[x],{x,.5,1},
Epilog->{Rectangle[{.5, -2*^-5}, {.8, -3*^-6},
Plot[10^9*f[x],{x,.63,.77},
AxesLabel->{None,"*10^-9"},
DisplayFunction->Identity]]},
ImageSize->450];
Bob Hanlon
In article <bv00rj$jg7$1 at smc.vnet.net>, Harold.Noffke at wpafb.af.mil (Harold
Noffke) wrote:
<< I have a function I want to Plot between 0.5 and 1.0 with a "stretched
out" x-axis. I want to put a "horizontal magnifying glass" on the
function between 0.65 and 0.75, because it wiggles a lot in this part
of its domain.
I tried to find a Plot option which allows the x-axis to stretch
horizontally across the screen. I experimented with AspectRatio ->
10, and found I could do y-axis (Range) stretch with no problem. But
when I tried AspectRatio -> 0.1, the y-axis collapsed, and the x-axis
did not stretch at all.
I'm stumped. I can't find an x-axis stretching option that produces
more on-screen horizontal plot details.
Does anyone know a way to stretch the x-axis in Mathematica Plots?