MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Weird Plot behavior...

  • To: mathgroup at smc.vnet.net
  • Subject: [mg22268] Weird Plot behavior...
  • From: dougmckee at my-deja.com
  • Date: Sat, 19 Feb 2000 23:50:57 -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.


  • Prev by Date: Re: interpolating function
  • Next by Date: Re: Mathematica formulae as Word metafiles
  • Previous by thread: Help: Tensor Operators
  • Next by thread: Re: Weird Plot behavior...