First try for final constants
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 15:42:36 +0000 (17:42 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 15:42:36 +0000 (17:42 +0200)
src/Lseed/Constants.hs
src/Lseed/Logic.hs
src/dbclient.hs
src/dbscorer.hs
src/main.hs

index 6c49075..55c071d 100644 (file)
@@ -48,7 +48,7 @@ lightFalloff = 0.4
 
 -- | Length of one day, in seconds
 dayLength :: Double
-dayLength = 8.0
+dayLength = 30
 
 -- | ε
 eps = 1e-9
index 06cfa5a..4ae126a 100644 (file)
@@ -80,7 +80,7 @@ growPlanted planted light =
             then let sizeOfPlant = plantLength (phenotype planted)
                      lightAvailable = light - costPerLength * sizeOfPlant^2
                     lowerBound = if sizeOfPlant < smallPlantBoostSize
-                                 then smallPlantBoostLength
+                                 then (1 - sizeOfPlant / smallPlantBoostSize) * smallPlantBoostLength
                                  else 0
                      allowedGrowths = max lowerBound $
                                       (growthPerDayAndLight * lightAvailable) /
index 2887235..28c576d 100644 (file)
@@ -47,7 +47,7 @@ main = do
                lseedMainLoop True
                              (obs `mappend` scoringObs conf)
                              (GardenSource (getDBGarden conf) (getDBUpdate conf))
-                             200
+                             30
          _ -> do
                putStrLn "L-Seed DB client application."
                putStrLn "Please pass DB configuration file on the command line."
index be86ede..1345bff 100644 (file)
@@ -45,7 +45,7 @@ main = do
                lseedMainLoop False
                              (scoringObs conf)
                              (GardenSource (getDBGarden conf) (getDBUpdate conf))
-                             10
+                             30
          _ -> do
                putStrLn "L-Seed DB client application."
                putStrLn "Please pass DB configuration file on the command line."
index cab1c46..f6c480e 100644 (file)
@@ -35,4 +35,4 @@ readArgs doit = do
                
 main = readArgs $ \garden -> do
        obs <- cairoObserver
-       lseedMainLoop True obs (constGardenSource garden) 200
+       lseedMainLoop True obs (constGardenSource garden) 30