<< RecurrencePlots.mathematica

x = Range[100];

y = Sin[ .03*2*Pi*x];

RecurrencePlot[y, 0.2]

Plot[Sin[ .05*2*Pi*x], {x, 0, 100}]