home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / UTILITIE / CHAOS.ZIP / CHAOS3.BAS < prev    next >
BASIC Source File  |  1989-03-15  |  1KB  |  43 lines
  1. 1000 KEY OFF: SCREEN 9: CLS : PALETTE
  2. 1010 PALETTE 1, 10
  3. 1020 PALETTE 2, 18
  4. 1030 PALETTE 3, 23
  5. 1040 PALETTE 4, 63
  6. 1050 DEFINT A-X
  7. 1060 DIM VX(900), VY(900)
  8. 1070 '
  9. 1080 PRINT "Chaos III - R.C.Williford 2/89"
  10. 1090 PRINT "Program to demonstrate the behavior of chaotic"
  11. 1100 PRINT "relationships between multiple points on a CIRCULAR plane."
  12. 1110 PRINT " "
  13. 1120 INPUT "Enter the number of initial points (3 min.) "; P
  14. 1130 CLS
  15. 1140 '
  16. 1150 FOR Z = 1 TO 900: VX(Z) = 0: VY(Z) = 0: NEXT Z
  17. 1160 ZPI = 3.141593: I = 0
  18. 1170 FOR ZP1 = 0 TO ZPI * 2 STEP (ZPI * 2) / P
  19. 1180 I = I + 1
  20. 1190 VX(I) = 320 + (SIN(ZP1) * 240)
  21. 1200 VY(I) = 175 + (COS(ZP1) * 170)
  22. 1210 NEXT ZP1
  23. 1220 FOR I = 1 TO P
  24. 1230 IF VX(I) > 0 THEN PSET (VX(I), VY(I)), 15
  25. 1240 NEXT I
  26. 1250 '
  27. 1260 RVX1 = RND(4) * 640
  28. 1270 RVY1 = RND(8) * 350
  29. 1280 '
  30. 1290 FOR C = 1 TO 4
  31. 1300 FOR Z = 1 TO 10000
  32. 1310 I = 1 + (RND(4) * (P - 1))
  33. 1320 RVX = (RVX1 + VX(I)) / 2
  34. 1330 RVY = (RVY1 + VY(I)) / 2
  35. 1340 PSET (RVX, RVY), C
  36. 1350 RVX1 = RVX: RVY1 = RVY
  37. 1360 NEXT Z
  38. 1370 N$ = INKEY$: IF N$ = CHR$(27) THEN CLS : END
  39. 1380 IF N$ > "" THEN C = 4
  40. 1390 NEXT C
  41. 1400 GOTO 1120
  42.  
  43.