Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on September 20, 2020, 01:03:42 am

Title: Solar System Model
Post by: SierraKen on September 20, 2020, 01:03:42 am
I'm not sure if I ever made one of these as a windows program, if I did it was over a year ago probably. But here is a model of the Solar System with 8 planets and Pluto. The distance isn't true of course, but the orbital periods are real compared to Earth's. I used NASA figures on those. Use your mouse wheel to speed it up and slow back down. You can't stop it, just slow it down to how it was when it started. I may add more detail to this someday. But I like it. :)

Code: QB64: [Select]
  1. _TITLE "Ken's Solar System - Use the mouse wheel to control speed."
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. orbit = 30
  4. speed = 0
  5. t = 0
  7.     _LIMIT 30
  8.     mouseWheel = 0
  10.         mouseWheel = mouseWheel + _MOUSEWHEEL
  11.         IF mouseWheel > 0 THEN speed = speed - .005
  12.         IF mouseWheel < 0 THEN speed = speed + .005
  13.         IF speed < 0 THEN speed = 0
  14.     LOOP
  15.     t = t + .05 + speed
  16.     'Mercury
  17.     x = (SIN(t / 0.241) * orbit) + 400
  18.     y = (COS(t / 0.241) * orbit) + 300
  19.     FOR sz = .25 TO 2 STEP .25
  20.         CIRCLE (x, y), sz, _RGB32(127, 127, 127)
  21.     NEXT sz
  22.     orbit = orbit + 20
  23.     'Venus
  24.     x = (SIN(t / 0.615) * orbit) + 400
  25.     y = (COS(t / 0.615) * orbit) + 300
  26.     FOR sz = .25 TO 4 STEP .25
  27.         CIRCLE (x, y), sz, _RGB32(255, 0, 0)
  28.     NEXT sz
  29.     orbit = orbit + 20
  30.     'Earth
  31.     x = (SIN(t) * orbit) + 400
  32.     y = (COS(t) * orbit) + 300
  33.     FOR sz = .25 TO 4 STEP .25
  34.         CIRCLE (x, y), sz, _RGB32(0, 0, 255)
  35.     NEXT sz
  36.     orbit = orbit + 30
  37.     'Mars
  38.     x = (SIN(t / 1.88) * orbit) + 400
  39.     y = (COS(t / 1.88) * orbit) + 300
  40.     FOR sz = .25 TO 3 STEP .25
  41.         CIRCLE (x, y), sz, _RGB32(255, 0, 0)
  42.     NEXT sz
  43.     orbit = orbit + 40
  44.     'Jupiter
  45.     x = (SIN(t / 11.9) * orbit) + 400
  46.     y = (COS(t / 11.9) * orbit) + 300
  47.     FOR sz = .25 TO 10 STEP .25
  48.         CIRCLE (x, y), sz, _RGB32(238, 155, 127)
  49.     NEXT sz
  50.     orbit = orbit + 40
  51.     'Saturn
  52.     x = (SIN(t / 29.4) * orbit) + 400
  53.     y = (COS(t / 29.4) * orbit) + 300
  54.     FOR sz = .25 TO 7 STEP .25
  55.         CIRCLE (x, y), sz, _RGB32(255, 127, 127)
  56.     NEXT sz
  57.     CIRCLE (x, y), 11, _RGB32(255, 127, 127)
  58.     orbit = orbit + 30
  59.     'Uranus
  60.     x = (SIN(t / 83.7) * orbit) + 400
  61.     y = (COS(t / 83.7) * orbit) + 300
  62.     FOR sz = .25 TO 8 STEP .25
  63.         CIRCLE (x, y), sz, _RGB32(128, 127, 255)
  64.     NEXT sz
  65.     orbit = orbit + 30
  66.     'Neptune
  67.     x = (SIN(t / 163.7) * orbit) + 400
  68.     y = (COS(t / 163.7) * orbit) + 300
  69.     FOR sz = .25 TO 8 STEP .25
  70.         CIRCLE (x, y), sz, _RGB32(83, 183, 255)
  71.     NEXT sz
  72.     orbit = orbit + 40
  73.     'Pluto
  74.     x = (SIN(t / 247.9) * orbit) + 400
  75.     y = (COS(t / 247.9) * orbit) + 300
  76.     FOR sz = .25 TO 2 STEP .25
  77.         CIRCLE (x, y), sz, _RGB32(166, 127, 127)
  78.     NEXT sz
  79.     orbit = 30
  80.     _DELAY .1
  81.     _DISPLAY
  82.     CLS
  83.     FOR sz = .25 TO 4 STEP .25
  84.         CIRCLE (400, 300), sz, _RGB32(255, 255, 127)
  85.     NEXT sz
  87.  
Title: Re: Solar System Model
Post by: SierraKen on September 20, 2020, 01:18:50 am
I was right, I did make another one, in fact a better one in August 2019. But the only thing my newer one has (above) is the ability to speed up and slow down the planets. The older one doesn't. But the older one you can zoom in and also tilt the planetary rotation. Here is the older one from last year. This one even has our Moon going around the Earth, with the help of STxAxTIC. If you go through the code of the older one and compare with the newer one, there's a LOT more code and I used the older way of making a circle which also uses more code. This older one also lets you put your mouse over each planet to get the names of them.

Code: QB64: [Select]
  1. 'Ken G. made thie program on August 18, 2019,
  2. 'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!
  3.  
  4. _TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. DIM z(10)
  7. mercury = 0.241
  8. venus = 0.6152
  9. mars = 1.8809
  10. jupiter = 11.8618
  11. saturn = 29.457
  12. uranus = 84.0205
  13. neptune = 164.8
  14. angle = 180
  15. tilt = 1
  16. one:
  17. _LIMIT 500
  18. mouseWheel = 0
  20.     mouseX = _MOUSEX
  21.     mouseY = _MOUSEY
  22.     mouseLeftButton = _MOUSEBUTTON(1)
  23.     mouseRightButton = _MOUSEBUTTON(2)
  24.     mouseMiddleButton = _MOUSEBUTTON(3)
  25.     mouseWheel = mouseWheel + _MOUSEWHEEL
  27. IF mouseWheel < 0 THEN angle = angle - 10
  28. IF mouseWheel > 0 THEN angle = angle + 10
  29.  
  30. IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
  31. IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
  32. IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
  33. IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
  34. IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
  35. IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
  36. IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
  37. IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
  38. IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
  39.  
  40. a$ = INKEY$
  41. IF a$ = CHR$(27) THEN END
  42. IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
  43. IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
  44. IF angle > 360 THEN angle = 360
  45. IF angle < 10 THEN angle = 10
  46. IF tilt > 50 THEN tilt = 50
  47. IF tilt < 1 THEN tilt = 1
  48. seconds = seconds + .01
  49. s1 = (60 - seconds) * 6 + 180 / mercury
  50. s2 = (60 - seconds) * 6 + 180 / venus
  51. s3 = (60 - seconds) * 6 + 180 'Earth and Moon
  52. s4 = (60 - seconds) * 6 + 180 / mars
  53. s5 = (60 - seconds) * 6 + 180 / jupiter
  54. s6 = (60 - seconds) * 6 + 180 / saturn
  55. s7 = (60 - seconds) * 6 + 180 / uranus
  56. s8 = (60 - seconds) * 6 + 180 / neptune
  57.  
  58.  
  59. 'Mercury
  60. oldx1 = x1
  61. x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
  62. y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300
  63.  
  64. 'Venus
  65. oldx2 = x2
  66. x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
  67. y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300
  68.  
  69. 'Earth
  70. oldx = x
  71. x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
  72. y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300
  73.  
  74. 'Mars
  75. oldx3 = x3
  76. x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
  77. y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300
  78.  
  79. 'Moon
  80. x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
  81. y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y
  82.  
  83. 'Outer Planets
  84. 'Jupiter
  85. oldx5 = x5
  86. x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
  87. y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300
  88.  
  89. 'Saturn
  90. oldx6 = x6
  91. x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
  92. y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300
  93.  
  94. 'Uranus
  95. oldx7 = x7
  96. x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
  97. y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300
  98.  
  99. 'Neptune
  100. oldx8 = x8
  101. x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
  102. y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300
  103.  
  104.  
  105. 'Sun
  106. CIRCLE (400, 300), 5, _RGB32(249, 240, 22)
  107. PAINT (400, 300), _RGB32(249, 240, 22)
  108.  
  109. IF tilt > 6 THEN
  110.     IF x1 > oldx1 AND x1 > 375 AND x1 < 425 THEN z(1) = 1
  111.     IF x2 > oldx2 AND x2 > 375 AND x2 < 425 THEN z(2) = 1
  112.     IF x3 > oldx3 AND x3 > 375 AND x3 < 425 THEN z(3) = 1
  113.     IF x5 > oldx5 AND x5 > 375 AND x5 < 425 THEN z(4) = 1
  114.     IF x6 > oldx6 AND x6 > 375 AND x6 < 425 THEN z(5) = 1
  115.     IF x7 > oldx7 AND x7 > 375 AND x7 < 425 THEN z(6) = 1
  116.     IF x8 > oldx8 AND x8 > 375 AND x8 < 425 THEN z(7) = 1
  117.     IF x > oldx AND x > 375 AND x < 425 THEN z(8) = 1
  118.  
  119.     IF x1 > oldx1 AND x1 > 424 THEN z(1) = 0
  120.     IF x2 > oldx2 AND x2 > 424 THEN z(2) = 0
  121.     IF x3 > oldx3 AND x3 > 424 THEN z(3) = 0
  122.     IF x5 > oldx5 AND x5 > 424 THEN z(4) = 0
  123.     IF x6 > oldx6 AND x6 > 424 THEN z(5) = 0
  124.     IF x7 > oldx7 AND x7 > 424 THEN z(6) = 0
  125.     IF x8 > oldx8 AND x8 > 424 THEN z(7) = 0
  126.     IF x > oldx AND x > 424 THEN z(8) = 0
  127.  
  128.  
  129.     IF x1 < oldx1 THEN z(1) = 0
  130.     IF x2 < oldx2 THEN z(2) = 0
  131.     IF x3 < oldx3 THEN z(3) = 0
  132.     IF x5 < oldx5 THEN z(4) = 0
  133.     IF x6 < oldx6 THEN z(5) = 0
  134.     IF x7 < oldx7 THEN z(6) = 0
  135.     IF x8 < oldx8 THEN z(7) = 0
  136.     IF x < oldx THEN z(8) = 0
  137.  
  138.     IF z(1) = 0 THEN
  139.         'Mercury
  140.         CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  141.         PAINT (x1, y1), _RGB32(120, 98, 102)
  142.     END IF
  143.  
  144.     IF z(2) = 0 THEN
  145.         'Venus
  146.         CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  147.         PAINT (x2, y2), _RGB32(161, 67, 39)
  148.     END IF
  149.  
  150.     IF z(8) = 0 THEN
  151.         'Earth
  152.         CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  153.         PAINT (x, y), _RGB32(0, 0, 255)
  154.         'Moon
  155.         CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  156.         PAINT (x4, y4), _RGB32(179, 179, 181)
  157.     END IF
  158.     IF z(3) = 0 THEN
  159.         'Mars
  160.         CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  161.         PAINT (x3, y3), _RGB32(240, 72, 22)
  162.     END IF
  163.     IF z(4) = 0 THEN
  164.         'Outer Planets
  165.         'Jupiter
  166.         CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  167.         PAINT (x5, y5), _RGB32(255, 166, 127)
  168.     END IF
  169.     IF z(5) = 0 THEN
  170.         'Saturn
  171.         CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  172.         PAINT (x6, y6), _RGB32(255, 127, 127)
  173.         FOR rings = 4 TO 5
  174.             CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .2
  175.         NEXT rings
  176.     END IF
  177.     IF z(6) = 0 THEN
  178.         'Uranus
  179.         CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  180.         PAINT (x7, y7), _RGB32(127, 166, 255)
  181.     END IF
  182.     IF z(7) = 0 THEN
  183.         'Neptune
  184.         CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  185.         PAINT (x8, y8), _RGB32(0, 78, 255)
  186.     END IF
  187.  
  189.  
  190.     'Mercury
  191.     CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  192.     PAINT (x1, y1), _RGB32(120, 98, 102)
  193.  
  194.     'Venus
  195.     CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  196.     PAINT (x2, y2), _RGB32(161, 67, 39)
  197.  
  198.     'Earth
  199.     CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  200.     PAINT (x, y), _RGB32(0, 0, 255)
  201.     'Moon
  202.     CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  203.     PAINT (x4, y4), _RGB32(179, 179, 181)
  204.  
  205.     'Mars
  206.     CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  207.     PAINT (x3, y3), _RGB32(240, 72, 22)
  208.  
  209.     'Outer Planets
  210.     'Jupiter
  211.     CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  212.     PAINT (x5, y5), _RGB32(255, 166, 127)
  213.  
  214.     'Saturn
  215.     CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  216.     PAINT (x6, y6), _RGB32(255, 127, 127)
  217.     FOR rings = 1 TO 2
  218.         CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
  219.     NEXT rings
  220.  
  221.     'Uranus
  222.     CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  223.     PAINT (x7, y7), _RGB32(127, 166, 255)
  224.  
  225.     'Neptune
  226.     CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  227.     PAINT (x8, y8), _RGB32(0, 78, 255)
  228.  
  231. IF seconds > 99999 THEN
  232.     CLS
  233.     seconds = 0
  234.     GOTO one:
  237. GOTO one:
  238.  
Title: Re: Solar System Model
Post by: johnno56 on September 20, 2020, 05:10:25 am
Cool model... I particularly like the tilt and zoom... Nicely done.

I have been interested in Astronomy since primary school when I first saw Saturn through one of those 'collapsible' telescopes. Once I started working, I purchased my own telescope, until my working hours conflicted with 'viewing' hours. My cousin 'inherited' my scope. Then I bought a copy of "Practical Astronomy with your calculator". Armed with a scientific calculator, pencil and paper... 45 minutes later I could calculate the next Lunar Eclipse and if it could be seen from my current location....  It took about the same time to calculate the approximate position for each planet... 8 to 10 hours... and that was for just 'one' point in time...

I wore out that calculator decades ago... My eyesight is not what it used to be... Computer models are a BIG interest now... Your model has reminded me of the joy of Astronomy... Thank you.
Title: Re: Solar System Model
Post by: SierraKen on September 20, 2020, 12:23:10 pm
Wow that's great Johno! Earlier this year I took a free online college course about using an online telescope. I've used online telescopes for almost 10 years now but I finally took the course. It's from the Open University in England. If anyone is interested, it's here:
https://www.open.edu/openlearn/science-maths-technology/astronomy/astronomy-online-telescope/content-section-overview?active-tab=description-tab

Plus there's the simple (and free) NASA/Harvard/Smithsonian online telescope anyone can do here:
https://mo-www.cfa.harvard.edu/OWN/index.html

Title: Re: Solar System Model
Post by: DANILIN on September 20, 2020, 04:40:12 pm
Real Solar System from Russia

 


1\3 MB

Title: Re: Solar System Model
Post by: OldMoses on September 21, 2020, 08:08:26 am
Good work Ken, I've been working on my star system simulator a good bit lately and I credit you for getting me out of my coder's block. It was those cool looking buttons on your calculator ap that did it. After that, the ideas kept coming.

Interesting gif that Danilin put up, I've come up against the complexity of ship movement in a system of such a dynamic nature.
Title: Re: Solar System Model
Post by: SierraKen on September 21, 2020, 01:29:37 pm
Thanks OldMoses! I totally forgot about my calculator. :)
Title: Re: Solar System Model
Post by: bplus on September 21, 2020, 02:07:25 pm
And is the sun in orbit to some center of gravity of the Milky way? And is the Milky way in orbit to some Universe center of gravity?
Title: Re: Solar System Model
Post by: STxAxTIC on September 21, 2020, 03:15:46 pm
Galactic cluster, not the universe. That would imply some kind of grand universal center anyway, for which there is probably none
Title: Re: Solar System Model
Post by: DANILIN on October 20, 2020, 01:33:27 am
Visualization of Solar system explains
impossibility of traveling in time:

transported to another time
there will be no Earth
Title: Re: Solar System Model
Post by: Richard Frost on October 20, 2020, 05:34:29 am
Pretty, and the ring around Saturn is a nice touch.

The Moon shouldn't be in front of Earth all the time tho.
QB64 has the power to include at least 10,000 asteroids. 
Title: Re: Solar System Model
Post by: Dimster on October 20, 2020, 11:41:23 am
SierraKen, DANILIN - cool guys - really, really cool.
Title: Re: Solar System Model
Post by: SierraKen on October 20, 2020, 01:47:17 pm
Thanks Dimster. :D
Title: Re: Solar System Model
Post by: Kernelpanic on October 20, 2020, 07:14:36 pm
A nice program. It gave me the idea to "construct" a rocket - let's see whether also it takes off. ;)
Text Only | Text with Attachments