home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 03 / feigbaum.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-02-03  |  908 b   |  47 lines
  1. { Verhalten des nichtlinearen Wachstums! }
  2.  
  3. PROGRAM feigenbaum;
  4.  
  5. CONST
  6.   xres = 640;    { Anzahl Punkte auf X-Achse }
  7.   yres = 200;    { Anzahl Punkte auf Y-Achse }
  8.   tage = 30;
  9.   max  = 1000;
  10.   xmax = 1500;
  11.   xmin = 0;
  12.   rmin = 1.9;
  13.   rmax = 3;
  14.  
  15. VAR
  16.   n, j, rn: INTEGER;
  17.   x, dr, r, mas_x: REAL;
  18.  
  19. {---------------------------------------------------------}
  20.  
  21. FUNCTION xkoor (xwert: REAL): INTEGER;
  22.  
  23. BEGIN
  24.   xkoor := yres - Round((xwert - xmin) * mas_x);
  25. END;
  26.  
  27. {---------------------------------------------------------}
  28.  
  29. BEGIN
  30.   ClrScr;
  31.   HiRes;
  32.   mas_x := yres / (xmax-xmin);
  33.   dr := (rmax - rmin) / a;
  34.   FOR rn := 0 TO xres-1 DO
  35.   BEGIN
  36.     r := rmin + dr * rn;
  37.     x := 1;
  38.     FOR j := 0 TO 1 DO
  39.       FOR n := 1 TO tage DO
  40.       BEGIN
  41.         x := x + x * r * (1 - x / max);
  42.         Plot (rn, xkoor(x), j);
  43.       END;
  44.   END;
  45.   REPEAT UNTIL KeyPressed;
  46. END.
  47.