RecurrenceTable Examples 2

RALP2[a_,b_,n_,s_,col_]:=Module[{rt},
rt=RecurrenceTable[{

x[i+1]==(1+.01a)Abs[x[i]]-(1+.00001b)y[i]+1,
y[i+1]==x[i],x[0]==0,y[0]==0},

{x,y},{i,1,n}];
ListPlot[rt,Axes->False,Background->RGBColor["black"],

ImageSize->s,AspectRatio->1,
ColorFunction->Function[{x,y},

ColorData[col][(Cos[25x]^2+Sin[16y]^2)/2]]]];
{RALP2[15,-11,10000,300,"NeonColors"],

RALP2[7,5,25000,300,"BrightBands"]}