home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / verhulst (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.