timeplot 1.0.7 → 1.0.8

raw patch · 2 files changed

+3/−2 lines, 2 files

Files

• Tools/TimePlot/Plots.hs +2/−1
• timeplot.cabal +1/−1

@@ -32,7 +32,8 @@ initGen (KindAPercent bs b)     = genActivity (\sns n -> 100*n/b) bs
 initGen (KindAFreq bs)          = genActivity (\sns n -> if n == 0 then 0 else (n / sum (M.elems sns))) bs
 initGen (KindFreq bs k)         = genAtoms atoms2freqs bs k
-  where  atoms2freqs as m = let n = length as in 0:[fromIntegral (M.findWithDefault 0 a m)/fromIntegral n | a <- as]
+  where  atoms2freqs as m = let s = sum [c | (a,c) <- M.toList m] 
+                            in if s==0 then [0] else 0:[fromIntegral (M.findWithDefault 0 a m)/fromIntegral s | a <- as]
 initGen (KindHistogram bs k)    = genAtoms atoms2hist bs k
   where  atoms2hist as m = 0:[fromIntegral (M.findWithDefault 0 a m) | a <- as]
 initGen KindEvent               = genEvent

@@ -1,5 +1,5 @@ name: timeplot-version: 1.0.7+version: 1.0.8 cabal-version: >=1.6 build-type: Simple license: BSD3