RecurrenceTable Examples 5

RALP2[a_,b_,n_,s_,col_]:=Module[{rt},
rt=RecurrenceTable[{x[i+1]==x[i]+(.684+.001a)(x[i]-(x[i])^2+y[i]),
y[i+1]==y[i]+(.684+.001b)(y[i]-(y[i])^2+x[i]),x[0]==.1,y[0]==.01},{x,y},{i,1,n}];
ListPlot[rt,ColorFunction->col,Axes->False,

Background->RGBColor["black"],
ImageSize->s,AspectRatio->1]];
{RALP2[0,0,15000,400,"BrightBands"],

RALP2[33,-35,20000,400,"NeonColors"]}