dimitri/orbit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add planets

Browse source
This commit is contained in:
Dimitri Lozeve 2017-07-19 14:25:32 +02:00
parent 104ec50dcd
commit 01d5e8640f
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -24,4 +24,4 @@ steps n dt bodies = do
steps (n-1) dt (updateAll dt bodies) steps (n-1) dt (updateAll dt bodies)
main :: IO () main :: IO ()
main = steps 1000000 10 [sun, earth, moon] main = steps 1000000 10 [sun, earth, moon, mercury, venus, mars]

5
src/Lib.hs
View file

@ -11,7 +11,7 @@ module Lib (
update, update,
updateAll, updateAll,
b1, b2, b3, b1, b2, b3,
au, sun, earth, moon au, sun, earth, moon, mercury, venus, mars
) where ) where
import Linear.Vector import Linear.Vector
@ -103,3 +103,6 @@ au = 149597870700
sun = Body "Sun" 1.98855e30 (P $ V3 0 0 0) (V3 0 0 0) sun = Body "Sun" 1.98855e30 (P $ V3 0 0 0) (V3 0 0 0)
earth = Body "Earth" 8.97237e24 (P $ V3 au 0 0) (V3 0 29.78e3 0) earth = Body "Earth" 8.97237e24 (P $ V3 au 0 0) (V3 0 29.78e3 0)
moon = Body "Moon" 7.342e22 (P $ V3 (au+384399e3) 0 0) (V3 0 (29.78e3+1022) 0) moon = Body "Moon" 7.342e22 (P $ V3 (au+384399e3) 0 0) (V3 0 (29.78e3+1022) 0)
mercury = Body "Mercury" 3.3011e23 (P $ V3 57909050000 0 0) (V3 0 47362 0)
venus = Body "Venus" 4.8675e24 (P $ V3 108208000000 0 0) (V3 0 35.02e3 0)
mars = Body "Mars" 6.4171e23 (P $ V3 227.9392e9 0 0) (V3 0 24.077e3 0)