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?