From fe2cc280878854895790f73871fde5e408f8b787 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri.lozeve@gmail.com>
Date: Sat, 11 Nov 2017 11:43:48 +0000
Subject: [PATCH] Change initial parameters

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 1a22ca3..4e3f683 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -81,7 +81,7 @@ csvFromInit n dt theta b = concat $ map (uncurry csvFromBodies) (take n $ steps
 main :: IO ()
 main = do
   bodies <- replicateM 100 randomBody
-  putStrLn $ csvFromInit 100000 60 0.5 bodies
+  putStrLn $ csvFromInit 10000 (60*20) 0.5 bodies
 
 {-
 --------------------------------------------------------------------------------