Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Problem with a diagram

  • To: mathgroup at smc.vnet.net
  • Subject: [mg110818] Problem with a diagram
  • From: Screech <dildovpizdo at gmail.com>
  • Date: Wed, 7 Jul 2010 07:45:26 -0400 (EDT)

I am constructing a bifurcation diagram for interval 0.15 <= alpha <= 0.75 but it always go into loop and can't find an error. I used word alpha for greek symbol.

recursive equation is: 
In[1]:= f[x_]:=(1-alpha)x+((alpha*0.8)/0.25)-((alpha*ArcTan[4x])/0.25) 
In[2]:= f[x]


I used:

ListPlot[
    Flatten[Table[
         Transpose[{
             Table [alpha, {129}],
             NestList[f, Nest[f,0.5,500],128]
         }],
       {alpha,0,0.75,0.001}
   ],1],
   PlotStyle->PointSize[0.001],Axes->False,Frame->True];

Can anyone help me please?


  • Prev by Date: hello group
  • Next by Date: Re: SyntaxInformation Question
  • Previous by thread: hello group
  • Next by thread: Re: Problem with a diagram