RecurrenceTable Examples

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

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

RALP1[-11,-2,10000,300,"NeonColors"]}