home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9008a.d64 / verhulst (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  569b  |  23 lines
  1. 100 REM VERHULST-DIAGRAMM
  2. 110 REM SIMULATION EINES WACHSTUMSPROZESSES
  3. 120 IF FLAG=0 THEN FLAG=1:LOAD "GRAPHTOOL.OBJ",8,1
  4. 130 INPUT "[147]WACHSTUMSRATE (MINIMUM) ? 0[157][157][157]";MI
  5. 140 INPUT "WACHSTUMSRATE (MAXIMUM) ? 4[157][157][157]";MA
  6. 150 SYS49152:SYS49158,1,0:REM GRAPHIK INITIALISIEREN
  7. 160 L=MA-MI
  8. 170 FOR X=0 TO 319
  9. 180 A=X*L/319+MI:XK=0.5
  10. 190 REM 50 ITERATIONEN AUSFUEHREN, OHNE ZU ZEICHNEN
  11. 200 REM (ZUM EINPENDELN DER WERTE)
  12. 210 FOR I=0 TO 50
  13. 220 XK=XK*A*(1-XK)
  14. 230 NEXT
  15. 240 REM 50 ITERATIONEN AUSFUEHREN UND ZEICHNEN
  16. 250 FOR I=0 TO 50
  17. 260 XK=XK*A*(1-XK)
  18. 270 SYS49167,X,199-INT(XK*200)
  19. 280 NEXT
  20. 290 NEXT
  21. 300 GETA$:IFA$=""THEN300
  22. 310 SYS49155
  23.