home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 15 / graphen / reg / eintest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-22  |  764 b   |  33 lines
  1. PROCEDURE TestDatensatz (VAR n : Index; VAR x,y : Messwerte);
  2. CONST Xmin =  -10;
  3.       Xmax =   10;
  4.       m    = 0.75;
  5.       b    =   -2;
  6.       spread =  1;
  7.  
  8. VAR i   : Index;
  9.  
  10. PROCEDURE ProduceOutliers;
  11. VAR i,k : Index;
  12. BEGIN
  13.      IF spread <> 0 THEN
  14.        FOR k := 1 TO n DIV 10 DO
  15.        BEGIN
  16.            i    := RANDOM (n);
  17.            x[i] := ((i-1)*(Xmax-Xmin)/n+Xmin)*(RANDOM-0.5);
  18.            y[i] := SIN (x[i])*(Xmax-Xmin)*m+b;
  19.        END;
  20. END;
  21.  
  22. BEGIN
  23.      WriteLn;WriteLn;
  24.      Write ('Wieviel Werte wollen Sie erzeugen : '); ReadLn(n);
  25.      RANDOMIZE;
  26.      FOR i := 1 TO n DO
  27.      BEGIN
  28.           x[i] := (i-1)*(Xmax-Xmin)/n+Xmin;
  29.           y[i] := (m*x[i]+b) + spread*2*(RANDOM-0.5);
  30.      END;
  31.      ProduceOutliers;
  32. END;
  33.