Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 30, 2019, 07:07:33 pm

Title: Fun Math Graphics 2
Post by: SierraKen on December 30, 2019, 07:07:33 pm
Today I was checking out my recent Kaleidoscope I made I wondered to myself, "What if I slowed everything down and see what animation it could make?" So I tried it and I hit a gold mine.
I changed the name of it which is now Fun Math Graphics 2. I used medium sized circles to move around using LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF to add some effects to it.
Don't ask me to explain the math, because I am just as amazed as what random equations can do. It makes a few random variables which determine the path the circles go. Most of them go in a pattern like a giant lid going in circles on a table starting from the edge and rotating around and around until it hits the table, but they are all random in the dynamics. Many other ones do some strange and bizarre paths. There are 1000's of possible outcomes or more. So try it out and tell me what you think. Watch it for a few minutes so you can see the potential of this program. I added some of the variables to the Title Bar in case anyone wants to try and duplicate the same pattern with their own by pressing the Space Bar to pause first.

Space Bar pauses, Esc quits.

Code: QB64: [Select]
  1. start:
  2. SCREEN _NEWIMAGE(600, 600, 32)
  4. PRINT "                          Fun Math Graphics 2"
  6. PRINT "                               by Ken G."
  8. PRINT "                 Watch the computer calculate different"
  9. PRINT "                 pathways for a circle to move around on."
  11. PRINT "                          Space Bar to Pause."
  12. PRINT "                             Esc to Quit"
  15. INPUT "                        Press Enter To Begin.", bg$
  17.  
  19.     _LIMIT 500
  21.     c1 = INT(RND * 100) + 155
  22.     c2 = INT(RND * 100) + 155
  23.     c3 = INT(RND * 100) + 155
  25.         mouseX = _MOUSEX
  26.         mouseY = _MOUSEY
  27.         mouseLeftButton = _MOUSEBUTTON(1)
  28.         mouseRightButton = _MOUSEBUTTON(2)
  29.         mouseMiddleButton = _MOUSEBUTTON(3)
  30.     LOOP
  31.     k = INT(RND * 900) + 100
  32.     s = 0
  33.     FOR m = 1 TO 3
  34.         RANDOMIZE TIMER
  35.         mx = (RND * 4) - 2
  36.         my = (RND * 4) - 2
  37.         FOR d = 320 TO 0 STEP -.125
  38.             _LIMIT 1000
  39.             s = s + k
  40.             x = COS(s * 3.141592 / 180) * d
  41.             x = x + mx
  42.             y = SIN(s * 3.151492 / 180) * d
  43.             y = y + my
  44.             xx = x + 300: yy = y + 300
  45.             CIRCLE (xx, yy), 30, _RGB32(c1, c2, c3)
  46.             _DISPLAY
  47.             LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
  48.             mx$ = STR$(mx): my$ = STR$(my): s$ = STR$(s): xx$ = STR$(xx): yy$ = STR$(yy): k$ = STR$(k)
  49.             _TITLE "Fun Math Graphics 2 - K=" + k$ + " mx=" + mx$ + " my=" + my$ + " s=" + s$
  50.             a$ = INKEY$
  51.             IF a$ = CHR$(27) THEN END
  52.             IF a$ = " " AND sl = 0 THEN sl = 1: a$ = "": SLEEP
  53.             IF a$ = " " AND sl = 1 THEN sl = 0
  54.         NEXT d
  55.     NEXT m
  57.  
Title: Re: Fun Math Graphics 2
Post by: SierraKen on December 30, 2019, 08:55:10 pm
I just added the ability to input your own variable amounts. When you press I, it goes to the input screen and you can set 4 different variables that you saved from liking something you saw earlier.
It only shows them for a few seconds or so before it randomly chooses another one, but I think it's cool.

Code: QB64: [Select]
  1. start:
  2. SCREEN _NEWIMAGE(600, 600, 32)
  4. PRINT "                          Fun Math Graphics 2"
  6. PRINT "                               by Ken G."
  8. PRINT "                 Watch the computer calculate different"
  9. PRINT "                 pathways for a circle to move around on."
  11. PRINT "                          Space Bar to Pause."
  12. PRINT "                      I to set your own variables"
  13. PRINT "                             Esc to Quit"
  16. INPUT "                        Press Enter To Begin.", bg$
  18.  
  20.     _LIMIT 500
  22.     c1 = INT(RND * 100) + 155
  23.     c2 = INT(RND * 100) + 155
  24.     c3 = INT(RND * 100) + 155
  26.         mouseX = _MOUSEX
  27.         mouseY = _MOUSEY
  28.         mouseLeftButton = _MOUSEBUTTON(1)
  29.         mouseRightButton = _MOUSEBUTTON(2)
  30.         mouseMiddleButton = _MOUSEBUTTON(3)
  31.     LOOP
  32.     k = INT(RND * 900) + 100
  33.     s = 0
  34.     FOR m = 1 TO 3
  35.         RANDOMIZE TIMER
  36.         mx = (RND * 4) - 2
  37.         my = (RND * 4) - 2
  38.         FOR d = 320 TO 0 STEP -.125
  39.             _LIMIT 1000
  40.             s = s + k
  41.             x = COS(s * 3.141592 / 180) * d
  42.             x = x + mx
  43.             y = SIN(s * 3.151492 / 180) * d
  44.             y = y + my
  45.             xx = x + 300: yy = y + 300
  46.             CIRCLE (xx, yy), 30, _RGB32(c1, c2, c3)
  47.             _DISPLAY
  48.             LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
  49.             mx$ = STR$(mx): my$ = STR$(my): s$ = STR$(s): xx$ = STR$(xx): yy$ = STR$(yy): k$ = STR$(k)
  50.             _TITLE "Fun Math Graphics 2 - K=" + k$ + " mx=" + mx$ + " my=" + my$ + " s=" + s$
  51.             a$ = INKEY$
  52.             IF a$ = CHR$(27) THEN END
  53.             IF a$ = " " AND sl = 0 THEN sl = 1: a$ = "": SLEEP
  54.             IF a$ = " " AND sl = 1 THEN sl = 0
  55.             IF a$ = "I" OR a$ = "i" THEN GOSUB info:
  56.         NEXT d
  57.     NEXT m
  59. info:
  61. INPUT "k: ", k
  62. INPUT "mx: ", mx
  63. INPUT "my: ", my
  64. INPUT "s: ", s
  66.  
Title: Re: Fun Math Graphics 2
Post by: SierraKen on December 31, 2019, 12:53:53 pm
If you don't want to wait for random choices it makes, you can press I and enter any of these examples I wrote down:

"Juggle"
k=659
mx=1.070739
my=1.296892
s=655705
------------------
"Coin"
k=321
mx=1.248722
my=.2715797
s=286011
------------------
"Coin 2"
k=321
mx=.4692338
my=.8475013
s=1607247
------------------
"Up and Down"
k=120
mx=1.096297
my=.659328
s=300960
------------------
"Big Coin"
k=106
mx= .1813991
my= -1.679267
s= 235956
------------------
"Dancing"
k=258
mx= -1.142254
my= 1.664867
s= 1489692
-------------------
"Open and Close"
k=166
mx= -1.737304
my= 1.140303
s= 248668
-------------------
"A Dizzy Circle"
k=126
mx= 1.371215
my= 1.281544
s= 699174
-------------------
"Waves"
k= 320
mx=  1.708808
my= -.4963732
s= 1344960
--------------------
"Speed Racer"
k= 214
mx= 1.125437
my= 1.366045
s= 318218
 
Title: Re: Fun Math Graphics 2
Post by: bplus on December 31, 2019, 02:20:10 pm
Yeah well I don't want to enter all those silly numbers to see what you are liking so
Code: QB64: [Select]
  1. start:
  2. SCREEN _NEWIMAGE(600, 600, 32)
  4. PRINT "                          Fun Math Graphics 2"
  6. PRINT "                               by Ken G. mod B+"
  8. PRINT "                 Watch the computer calculate different"
  9. PRINT "                 pathways for a circle to move around on."
  11. PRINT "                          Space Bar to Pause."
  12. PRINT "                      I to set your own variables"
  13. PRINT "                             Esc to Quit"
  16. INPUT "                        Press Enter To Begin.", bg$
  18.  
  20.     _LIMIT 500
  22.     c1 = INT(RND * 100) + 155
  23.     c2 = INT(RND * 100) + 155
  24.     c3 = INT(RND * 100) + 155
  26.         mouseX = _MOUSEX
  27.         mouseY = _MOUSEY
  28.         mouseLeftButton = _MOUSEBUTTON(1)
  29.         mouseRightButton = _MOUSEBUTTON(2)
  30.         mouseMiddleButton = _MOUSEBUTTON(3)
  31.     LOOP
  32.     k = INT(RND * 900) + 100
  33.     s = 0
  34.     name$ = "random"
  35.     FOR m = 1 TO 3
  36.         RANDOMIZE TIMER
  37.         mx = (RND * 4) - 2
  38.         my = (RND * 4) - 2
  39.         FOR d = 320 TO 0 STEP -.125
  40.             _LIMIT 1000
  41.             s = s + k
  42.             x = COS(s * 3.141592 / 180) * d
  43.             x = x + mx
  44.             y = SIN(s * 3.151492 / 180) * d
  45.             y = y + my
  46.             xx = x + 300: yy = y + 300
  47.             CIRCLE (xx, yy), 30, _RGB32(c1, c2, c3)
  48.             _DISPLAY
  49.             LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
  50.             mx$ = STR$(mx): my$ = STR$(my): s$ = STR$(s): xx$ = STR$(xx): yy$ = STR$(yy): k$ = STR$(k)
  51.             _TITLE "Fun K=" + k$ + " mx=" + mx$ + " my=" + my$ + " s=" + s$ + " name= " + name$
  52.             a$ = INKEY$
  53.             IF a$ = CHR$(27) THEN END
  54.             IF a$ = " " AND sl = 0 THEN sl = 1: a$ = "": SLEEP
  55.             IF a$ = " " AND sl = 1 THEN sl = 0
  56.             IF a$ = "I" OR a$ = "i" THEN
  57.                 GOSUB info
  58.                 d = 320
  59.                 m = 1
  60.             END IF
  61.         NEXT d
  62.     NEXT m
  64. info:
  65. mode = (mode + 1) MOD 10
  67.     CASE 1 '
  68.         name$ = "Juggle"
  69.         k = 659
  70.         mx = 1.070739
  71.         my = 1.296892
  72.         s = 655705
  73.     CASE 2
  74.         name$ = "Coin"
  75.         k = 321
  76.         mx = 1.248722
  77.         my = .2715797
  78.         s = 286011
  79.     CASE 3
  80.         name$ = "Coin 2"
  81.         k = 321
  82.         mx = .4692338
  83.         my = .8475013
  84.         s = 1607247
  85.     CASE 4
  86.         name$ = "Up and Down"
  87.         k = 120
  88.         mx = 1.096297
  89.         my = .659328
  90.         s = 300960
  91.     CASE 5
  92.         name$ = "Big Coin"
  93.         k = 106
  94.         mx = .1813991
  95.         my = -1.679267
  96.         s = 235956
  97.     CASE 6
  98.         name$ = "Dancing"
  99.         k = 258
  100.         mx = -1.142254
  101.         my = 1.664867
  102.         s = 1489692
  103.     CASE 7
  104.         name$ = "Open and Close"
  105.         k = 166
  106.         mx = -1.737304
  107.         my = 1.140303
  108.         s = 248668
  109.     CASE 8
  110.         name$ = "A Dizzy Circle"
  111.         k = 126
  112.         mx = 1.371215
  113.         my = 1.281544
  114.         s = 699174
  115.     CASE 9
  116.         name$ = "Waves"
  117.         k = 320
  118.         mx = 1.708808
  119.         my = -.4963732
  120.         s = 1344960
  121.     CASE 0
  122.         name$ = "Speed Racer"
  123.         k = 214
  124.         mx = 1.125437
  125.         my = 1.366045
  126.         s = 318218
  129.  
  130.  
  131.  

;D BTW what is the mouse stuff for?
Title: Re: Fun Math Graphics 2
Post by: SierraKen on December 31, 2019, 03:07:27 pm
LOL Bplus, hey my brain is still on holiday mode. :) The mouse stuff was from the Kaleidoscope that I got the code from, I forgot to remove it, thanks for telling me.
Also thanks for the idea of putting in the examples, I used that idea except to make a list of them and have the user choose from them.
I hope to use this program in the future to make animations of different sorts. Tell me what you think, thanks. Also, try picking random numbers, like 100,200,300,400 or whatever. I don't think it works with all the same numbers though for some reason.
Here is my update:

Code: QB64: [Select]
  1. start:
  2. SCREEN _NEWIMAGE(600, 600, 32)
  4. PRINT "                          Fun Math Graphics 2"
  6. PRINT "                               by Ken G."
  8. PRINT "                 Watch the computer calculate different"
  9. PRINT "                 pathways for a circle to move around on."
  11. PRINT "                          Space Bar to Pause."
  12. PRINT "               I to set your own variables or see examples."
  13. PRINT "                             Esc to Quit"
  16. INPUT "                        Press Enter To Begin.", bg$
  18.  
  20.     _LIMIT 500
  22.     c1 = INT(RND * 100) + 155
  23.     c2 = INT(RND * 100) + 155
  24.     c3 = INT(RND * 100) + 155
  25.     k = INT(RND * 900) + 100
  26.     s = 0
  27.     NAME$ = "random"
  28.     FOR m = 1 TO 3
  29.         RANDOMIZE TIMER
  30.         mx = (RND * 4) - 2
  31.         my = (RND * 4) - 2
  32.         FOR d = 320 TO 0 STEP -.125
  33.             _LIMIT 1000
  34.             s = s + k
  35.             x = COS(s * 3.141592 / 180) * d
  36.             x = x + mx
  37.             y = SIN(s * 3.151492 / 180) * d
  38.             y = y + my
  39.             xx = x + 300: yy = y + 300
  40.             CIRCLE (xx, yy), 30, _RGB32(c1, c2, c3)
  41.             _DISPLAY
  42.             LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
  43.             mx$ = STR$(mx): my$ = STR$(my): s$ = STR$(s): xx$ = STR$(xx): yy$ = STR$(yy): k$ = STR$(k)
  44.             _TITLE "K=" + k$ + " mx=" + mx$ + " my=" + my$ + " s=" + s$ + " name= " + NAME$
  45.             a$ = INKEY$
  46.             IF a$ = CHR$(27) THEN END
  47.             IF a$ = " " AND sl = 0 THEN sl = 1: a$ = "": SLEEP
  48.             IF a$ = " " AND sl = 1 THEN sl = 0
  49.             IF a$ = "I" OR a$ = "i" THEN GOSUB info:
  50.         NEXT d
  51.     NEXT m
  53. info:
  55. PRINT "See Examples or Input Data Page"
  57. PRINT "(1) See Examples"
  58. PRINT "(2) Input Your Own Data"
  59. PRINT "(3) Go Back To Random Displays"
  60. PRINT "(4) Quit"
  62. INPUT "Choose 1-4 Here:", ex
  63. IF ex = 1 THEN GOTO examples:
  64. IF ex = 2 THEN GOTO inputting:
  65. IF ex = 3 THEN RETURN
  66. IF ex = 4 THEN END
  67. GOTO info:
  68.  
  69. examples:
  71. PRINT "Examples"
  73. PRINT "(0) Speed Racer"
  74. PRINT "(1) Juggle"
  75. PRINT "(2) Coin"
  76. PRINT "(3) Coin 2"
  77. PRINT "(4) Up and Down"
  78. PRINT "(5) Big Coin"
  79. PRINT "(6) Dancing"
  80. PRINT "(7) Open and Close"
  81. PRINT "(8) A Dizzy Circle"
  82. PRINT "(9) Waves"
  84. INPUT "Type 0-9 Here:"; exx
  85. IF exx < 0 OR exx > 9 OR exx <> INT(exx) THEN GOTO examples:
  86. IF exx = 1 THEN
  87.     NAME$ = "Juggle"
  88.     k = 659
  89.     mx = 1.070739
  90.     my = 1.296892
  91.     s = 655705
  93. IF exx = 2 THEN
  94.     NAME$ = "Coin"
  95.     k = 321
  96.     mx = 1.248722
  97.     my = .2715797
  98.     s = 286011
  100. IF exx = 3 THEN
  101.     NAME$ = "Coin 2"
  102.     k = 321
  103.     mx = .4692338
  104.     my = .8475013
  105.     s = 1607247
  107. IF exx = 4 THEN
  108.     NAME$ = "Up and Down"
  109.     k = 120
  110.     mx = 1.096297
  111.     my = .659328
  112.     s = 300960
  114. IF exx = 5 THEN
  115.     NAME$ = "Big Coin"
  116.     k = 106
  117.     mx = .1813991
  118.     my = -1.679267
  119.     s = 235956
  121. IF exx = 6 THEN
  122.     NAME$ = "Dancing"
  123.     k = 258
  124.     mx = -1.142254
  125.     my = 1.664867
  126.     s = 1489692
  128. IF exx = 7 THEN
  129.     NAME$ = "Open and Close"
  130.     k = 166
  131.     mx = -1.737304
  132.     my = 1.140303
  133.     s = 248668
  135. IF exx = 8 THEN
  136.     NAME$ = "A Dizzy Circle"
  137.     k = 126
  138.     mx = 1.371215
  139.     my = 1.281544
  140.     s = 699174
  142. IF exx = 9 THEN
  143.     NAME$ = "Waves"
  144.     k = 320
  145.     mx = 1.708808
  146.     my = -.4963732
  147.     s = 1344960
  149. IF exx = 0 THEN
  150.     NAME$ = "Speed Racer"
  151.     k = 214
  152.     mx = 1.125437
  153.     my = 1.366045
  154.     s = 318218
  157.  
  158. inputting:
  160. INPUT "Name: ", NAME$
  161. INPUT "k: ", k
  162. INPUT "mx: ", mx
  163. INPUT "my: ", my
  164. INPUT "s: ", s
  166.  

Title: Re: Fun Math Graphics 2
Post by: SierraKen on December 31, 2019, 07:49:01 pm
LOL Thanks [banned user]!
Text Only | Text with Attachments