TCaos Class

type TCaos = object      { class that generate CHAOTIC NUMBERS }
                         { classe que gera numeros caoticos    }
                         { TURBO PASCAL SOURCE                 }
                         { DELPHI SOURCE                       }
                         { Joao Paulo Schwarz Schuler          }

               private
                 L:extended; { Lambda }
                 T:extended; { valor / value }

               public
                 procedure SetValues(PLAMBDA,PT:extended);
                 { set Lambda value and initial T value  }
                 { seta valores iniciais para Lambda e T }
                 { lambda must be grater than 3.57       }
                 { lambda deve ser maior que 3.57        }
                 function Get:extended;
                 { get next value / devolve proximo valor }

             end; { of object declaration }


procedure TCaos.SetValues(PLAMBDA,PT:extended);
{set Lambda value}
begin
L:=PLAMBDA;
T:=PT;
end;

function TCaos.Get:extended;
{ get next value / devolve proximo valor }
begin
T:=T*L*(1-T);
Get:=T;
end;

{EXEMPLO / EXEMPLE:}
var I:integer;
    C:TCaos;
begin
C.SetValues(3.58,0.5);
for I:=1 to 10000 do
    writeln(C.Get:10:5);
end.