Re: Weird Plot behavior...
- To: mathgroup at smc.vnet.net
- Subject: [mg22287] Re: Weird Plot behavior...
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Wed, 23 Feb 2000 01:01:20 -0500 (EST)
- References: <88sn7o$ioh@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Doug,
You have some pretty steep peaks and valleys which it seem are not being
picked up.
Increasing PlotPoints helps:
Plot[{sf[sf[sf[sf[x]]]], x}, {x, 0, 1}]
Plot[{sf[sf[sf[sf[x]]]], x}, {x, 0, 1},
PlotPoints -> 50]
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
<dougmckee at my-deja.com> wrote in message news:88sn7o$ioh at smc.vnet.net...
> 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.
>