# HG changeset patch
# User Benjamin Weber <one@bwe.im>
# Date 1666782478 -7200
#      Wed Oct 26 13:07:58 2022 +0200
# Node ID ac81f247eb50cd5c4624c28ee47161988391a92d
# Parent  ba8dbe7ce133a54414eddbf08cdb00580b1f94de
chart flowtime > 4 cycles flow time

diff --git a/src/Charting.elm b/src/Charting.elm
--- a/src/Charting.elm
+++ b/src/Charting.elm
@@ -64,7 +64,7 @@
             dataPointsTwo "NKIT" .doneNKIT "KIT" .doneKIT
 
         contentForFloat =
-            dataPointsTwo "NKIT" .flowtimeGE5NKIT "KIT" .flowtimeGE5KIT
+            dataPointsTwo "NKIT" .flowtimeGNKIT "KIT" .flowtimeGKIT
 
         contentForRework =
             dataPointsTwo "NKIT" .reworkShareNKIT "KIT" .reworkShareKIT
diff --git a/src/Main.elm b/src/Main.elm
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -484,7 +484,7 @@
                     column [ width fill, height fill, spacing 25 ] [ el [ paddingXY 10 0, Font.size 14, centerX ] <| column [ width fill, height fill ] [ text t1, text t2 ], theChart x ]
             in
             column [ width fill, height fill, spacing 30 ]
-                [ cc [ headedChart "How much gets done?" "[incoming jobs]" model.chart1, headedChart "How long does it take?" "[jobs ≥ 5 cycles flow time]" model.chart3, headedChart "How much rework?" "[jobs requiring rework]" model.chart5 ]
+                [ cc [ headedChart "How much gets done?" "[incoming jobs]" model.chart1, headedChart "How long does it take?" "[jobs > 4 cycles flow time]" model.chart3, headedChart "How much rework?" "[jobs requiring rework]" model.chart5 ]
                 ]
 
         cy =
diff --git a/src/Stats.elm b/src/Stats.elm
--- a/src/Stats.elm
+++ b/src/Stats.elm
@@ -81,8 +81,8 @@
         reworkShare xs =
             safeDiv (100 * (toFloat <| List.length <| List.filter (\x -> x.conditions.rework /= NoRework) xs)) (toFloat <| List.length xs)
 
-        flowtimeGE5 xs =
-            safeDiv (100 * (toFloat <| List.length <| List.filter (\x -> x >= 5) xs)) (toFloat <| List.length xs)
+        flowtimeG n xs =
+            safeDiv (100 * (toFloat <| List.length <| List.filter (\x -> x > n) xs)) (toFloat <| List.length xs)
 
         inflowed =
             toFloat <| List.length <| getAll kit
@@ -106,8 +106,8 @@
     , flowtimeAvgNKIT = avg <| flowtimes <| getDone nkit
     , reworkShareKIT = reworkShare <| getAll kit
     , reworkShareNKIT = reworkShare <| getAll nkit
-    , flowtimeGE5KIT = flowtimeGE5 <| flowtimes <| getDone kit
-    , flowtimeGE5NKIT = flowtimeGE5 <| flowtimes <| getDone nkit
+    , flowtimeGKIT = flowtimeG 4 <| flowtimes <| getDone kit
+    , flowtimeGNKIT = flowtimeG 4 <| flowtimes <| getDone nkit
     }
 
 
diff --git a/src/Types.elm b/src/Types.elm
--- a/src/Types.elm
+++ b/src/Types.elm
@@ -360,7 +360,7 @@
 
 
 type alias DoneData =
-    { round : Float, doneNKIT : Float, doneKIT : Float, flowtimeQ1NKIT : Float, flowtimeQ2NKIT : Float, flowtimeQ3NKIT : Float, flowtimeAvgNKIT : Float, flowtimeQ1KIT : Float, flowtimeQ2KIT : Float, flowtimeQ3KIT : Float, flowtimeAvgKIT : Float, reworkShareNKIT : Float, reworkShareKIT : Float, flowtimeGE5NKIT : Float, flowtimeGE5KIT : Float }
+    { round : Float, doneNKIT : Float, doneKIT : Float, flowtimeQ1NKIT : Float, flowtimeQ2NKIT : Float, flowtimeQ3NKIT : Float, flowtimeAvgNKIT : Float, flowtimeQ1KIT : Float, flowtimeQ2KIT : Float, flowtimeQ3KIT : Float, flowtimeAvgKIT : Float, reworkShareNKIT : Float, reworkShareKIT : Float, flowtimeGNKIT : Float, flowtimeGKIT : Float }
 
 
 type alias ScatterPoint =