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

Change initial parameters

Browse source
This commit is contained in:
Dimitri Lozeve 2017-11-11 11:43:48 +00:00
parent f150994cc7
commit fe2cc28087
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -81,7 +81,7 @@ csvFromInit n dt theta b = concat $ map (uncurry csvFromBodies) (take n $ steps
main :: IO () main :: IO ()
main = do main = do
bodies <- replicateM 100 randomBody bodies <- replicateM 100 randomBody
putStrLn $ csvFromInit 100000 60 0.5 bodies putStrLn $ csvFromInit 10000 (60*20) 0.5 bodies
{- {-
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------