home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 47 / 047.d81 / equations.64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  58 lines
  1. 0 ifa=.thena=1:load"plot.ml",8,1
  2. 1 poke53280,.:poke53281,.:print"[147]            [158]dynamic equations"
  3. 2 printtab(13)"by  john iovine":print"            [154](1[154]) use chaos # 1"
  4. 3 print"            (2[154]) use chaos # 2"
  5. 4 print"            (3[154]) quit"
  6. 5 geta$:ifa$<"1"ora$>"3"then5
  7. 6 ifa$="1"then20
  8. 7 ifa$="2"then310
  9. 8 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  10. 9 ifer<>63thenend
  11. 10 goto60000
  12. 11 rem c64chaos1
  13. 20 print"input growth rate factor:";:le=5:gosub60500:r=val(c$)
  14. 30 g=peek(53272):b=peek(56576):k=peek(56578)
  15. 40 sys49152:sys49185:poke2,1:sys49209
  16. 50 x=.10:xx=.1:y=1
  17. 60 x=(1+r)*x-(r*x^2)
  18. 70 poke253,yand255:poke254,y/256
  19. 80 poke255,x*100
  20. 90 sys49278
  21. 100 xx=x
  22. 110 y=y+3:ify>320then600
  23. 120 goto60
  24. 300 remc64chaos2
  25. 310 sys49152:sys49185
  26. 320 poke2,1:y=1:sys49209
  27. 330 r=1.99
  28. 340 x=.25
  29. 350 fori=1to275
  30. 360 x=(1+r)*x-(r*x^2)
  31. 370 next
  32. 380 fori=1to200
  33. 390 x=(1+r)*x-(r*x^2)
  34. 400 poke253,yand255:poke254,y/256
  35. 410 poke255,x*110:sys49278
  36. 420 r=r+.0035
  37. 430 y=y+1
  38. 440 ify>289then600
  39. 450 goto350
  40. 600 poke198,.
  41. 610 a=peek(203):ifa=64then610
  42. 700 poke53265,peek(53265)and223
  43. 710 poke53272,g:poke56576,b:poke56578,k
  44. 720 run1
  45. 60000 print"[144]load"chr$(34)"hello connect"chr$(34)",8"
  46. 60010 print"run[145][145][145][145][145][145][145][145]"
  47. 60020 poke631,13:poke632,13:poke198,2:end
  48. 60500 c$="":poke198,.:print"[164]";
  49. 60510 fora=1tole+1
  50. 60520 geta$:ifa$=""then60520
  51. 60530 ifa$=chr$(13)thenprint"[157] ":return
  52. 60540 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:c$=left$(c$,a-1):goto60520
  53. 60550 if(a=le+1)then60520
  54. 60560 if((a$>="0")and(a$<="9"))then60595
  55. 60570 if(a$=".")then60595
  56. 60590 goto60520
  57. 60595 print"[157]"a$;:poke212,.:print"[164]";:c$=c$+a$:next
  58.