home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / feigenbaum (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  43 lines
  1. 10 REM ****************************
  2. 20 REM *   FEIGENBAUM-DIAGRAMM    *
  3. 30 REM * 1987 BY STEFAN VILSMEIER *
  4. 40 REM ****************************
  5. 50 :
  6. 60 IF A=0 THEN A=1:LOAD "FRACTAL.OBJ",8,1
  7. 70 OPEN 1,8,15,"U9":CLOSE 1: REM DIESE ZEILE KANN BEI PROBLEMEN MIT DEM
  8. 80 REM FLOPPYSPEEDER WEGGELASSEN WERDEN!
  9. 90 POKE53280,0:POKE53281,0:DIMH%(128):PRINT"[147]"
  10. 100 INPUT "ANFANGSWERT ";X0:X=.5
  11. 110 REM ************ GRAFIK EIN *****
  12. 120 SYS 50176,14,0:SYS 50179,1:SYS 50194
  13. 130 :
  14. 140 :
  15. 150 REM ***************************
  16. 160 REM *     HAUPTSCHLEIFE       *
  17. 170 REM ***************************
  18. 180 :
  19. 190 FOR I=0 TO 319
  20. 200 :W=(4-X0)/319:A=X0+W*I
  21. 210 :FOR T=0 TO 100
  22. 220 : X=A*X*(1-X)
  23. 230 :NEXT T
  24. 240 :FOR T=0 TO 100
  25. 250 : X=A*X*(1-X)
  26. 260 : SYS50182,I,200-200*X,1
  27. 270 :NEXT T
  28. 280 NEXT I
  29. 300 SYS 50185,0,0,319,0,1:SYS 50185,319,0,319,199,1
  30. 310 SYS 50185,319,199,0,199,1:SYS 50185,0,199,0,0,1
  31. 320 GET A$:IF A$="" GOTO 320
  32. 330 SYS 50179,0:IF A$="S" THEN GOSUB 400: REM 'GRAFIK SPEICHERN'
  33. 340 GOTO 100: REM NEUSTART
  34. 350 :
  35. 360 :
  36. 370 REM ***************************
  37. 380 REM *   'GRAFIK SPEICHERN'    *
  38. 390 REM ***************************
  39. 400 :
  40. 410 INPUT "GRAFIK-NAME ";N$
  41. 420 OPEN 2,8,2,"PI."+N$+",P,W":SYS 50191:CLOSE 2
  42. 430 RETURN
  43.