In[1]:=

<<RecurrencePlots.ma

In[2]:=

x = Range[100] ;

In[3]:=

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

In[4]:=

RowBox[{RecurrencePlot, [, RowBox[{y, ,, 0.2}], ]}]

[Graphics:HTMLFiles/recurrenceplot_5.gif]

In[5]:=

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

[Graphics:HTMLFiles/recurrenceplot_7.gif]

Out[5]=

⁃Graphics⁃


Created by Mathematica  (October 7, 2003)