Weird Plot behavior...
- To: mathgroup at smc.vnet.net
- Subject: [mg22268] Weird Plot behavior...
- From: dougmckee at my-deja.com
- Date: Mon, 21 Feb 2000 20:00:30 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
I'm getting some strange, seemingly incorrect
graphs from Mathematica 3:
First I define a simple piecewise continuous
function:
sf[x_]:=If[x<(1/3),1-3 x,0.5 x - 1/6]
Then I graph its 4th iterate on [0,1] (along with
y=x):
Plot[{sf[sf[sf[sf[x]]]],x},{x,0,1}]
It's missing some information; in particular, the
graph only shows 5 fixed points when I know there
are 7. And when I graph it on [0,2], I _do_ get
all 7 fixed points, and, yes, they're all on
[0,1]:
Plot[{sf[sf[sf[sf[x]]]],x},{x,0,2}]
What's going on? Why is the first graph
incorrect, and the second correct?
Plot[{sf[sf[sf[sf[x]]]],x},{x,0,1},PlotDivision-
>5]
And here, even though I think I'm setting the
PlotDivision _lower_ than the default (20), I get
the right graph!
Doug
Sent via Deja.com http://www.deja.com/
Before you buy.