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.
>

```

• Prev by Date: Vector and Matrix Differentiation with Mathematica
• Next by Date: Re: defining function on mathematica
• Previous by thread: Re: Weird Plot behavior...
• Next by thread: Re: Weird Plot behavior...