RecurrenceTable Examples 7

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

x[i+1]==Re[a+(1-a)*(x[i]+I*y[i])],
y[i+1]==Im[a+(1-a)*(x[i]+I*y[i])],
x[0]==Re[(1+2I)*a],y[0]==Im[(1+2I)*a]},

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

Background->RGBColor["black"],
ImageSize->s,AspectRatio->1]];
{RALPC[.01+.15I,100000,400,"BrightBands"],

RALPC[.05+.21I,100000,400,"NeonColors"]}