{Henon Strange Atractor; see Welstead, 1994, Neural Networks.

Program written, modified, or edited at StatSoft, Inc.}

NoDataFileVariableNames;
const MAX_SIZE = 5000;

size:=2000;
if not DisplayNumericInputBox ('Henon Strange Attractors',
                               'Enter number of points:', size) then
  Exit;

if (size <= 0) or (size > MAX_SIZE) then
begin
  Beep;
  Exit
end;

DisplayMessageBox (MB_OK, 'Henon Strange Attractors',
                   'Warning: This program might take a few moments to execute.');

redim h0(size), h1(size), h2(size);

hh1:=0;
hh2:=0;

for i:=1 to size do
begin
  h0(i) := i;
  h1(i) := 1 + hh2 - 0.1*hh1*hh1;
  h2(i) := .9998*hh1;
  hh1 := h1(i);
  hh2 := h2(i);
end;

NewGraph (SCATTERPLOT, 'HENON Strange Attractor', ?Left_Title$, ?Bottom_Title$,
          size, h1, h2);
NewGraphXYZ (SCATTERPLOTXYZ, 'HENON Strange Attractor', ?X_Title$, ?Y_Title$,
?Z_Title$,
             size, h1, h2, h0);

2300 East 14th Street, Tulsa, OK 74104
Phone: (918) 749-1119; Fax: (918) 749-2217
e-mail: info@statsoft.com

©Copyright StatSoft, Inc., 1984-2004.
StatSoft, StatSoft logo, STATISTICA, SEWSS, SEDAS, Data Miner, SEPATH and GTrees are trademarks of StatSoft, Inc.