RecurrenceTable Examples 4

RALP1[a_,b_,n_,s_,col_]:=Module[{rt},
rt=RecurrenceTable[{x[i+1]==1-(.2+.01a)*x[i]^2+y[i],

y[i+1]==(0.9991+.0001b)*x[i],x[0]==0.,y[0]==0.},

{x,y},{i,1,n}];
ListPlot[rt,ColorFunction->Function[{x,y},

ColorData[col][2.5Cos[x+y+.56]^2]],

Axes->False,Background->RGBColor["black"],

ImageSize->s,AspectRatio->1]];
{RALP1[0,0,10000,400,"NeonColors"],

RALP1[-11,-19987,9000,400,"BrightBands"]}