diff options
| author | Ben Sima <ben@bsima.me> | 2021-02-15 22:54:32 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-02-15 22:54:32 -0500 |
| commit | 01bf56ff9ee7eac5138cc5e94732e7373dd38909 (patch) | |
| tree | 980ef0d82097325587694b5d57a6841ff5f73d58 /hledger-overview.hs | |
| parent | e16b01f40e035e3c06e29c2228e99eb1b15ea854 (diff) | |
tweak plan
Diffstat (limited to 'hledger-overview.hs')
| -rwxr-xr-x | hledger-overview.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/hledger-overview.hs b/hledger-overview.hs index d3cae2c..b5d7b30 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -175,8 +175,11 @@ steps start = zip (map realToFrac lvls) (zipWith (-) (ls ++ [0]) (0 : ls)) levelSchedule = Map.fromList $ zip ages lvls where + start = 5.0 + goal = 9.0 + step = (goal - start) / 600 ages = map (roundTo 2) [20, 20 + 1 / 12 .. 70] - lvls = map (roundTo 2) [5.00, 5.005 .. 8.0] + lvls = map (roundTo 2) [start, start + step .. goal] -- | A trivial decision is one that is between 0.01% of the total. -- |