~bwe/kit commit - sourcehut hg

4 files changed, 7 insertions(+), 7 deletions(-)

M src/Charting.elm
M src/Main.elm
M src/Stats.elm
M src/Types.elm

M src/Charting.elm +1 -1

@@ 64,7 64,7 @@ twoLinesChart cmodel doneData =
             dataPointsTwo "NKIT" .doneNKIT "KIT" .doneKIT
 
         contentForFloat =
-            dataPointsTwo "NKIT" .flowtimeGE5NKIT "KIT" .flowtimeGE5KIT
+            dataPointsTwo "NKIT" .flowtimeGNKIT "KIT" .flowtimeGKIT
 
         contentForRework =
             dataPointsTwo "NKIT" .reworkShareNKIT "KIT" .reworkShareKIT

M src/Main.elm +1 -1

@@ 484,7 484,7 @@ view model =
                     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 =

M src/Stats.elm +4 -4

@@ 81,8 81,8 @@ createDataPoint r kit nkit =
         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 @@ createDataPoint r kit nkit =
     , 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
     }

M src/Types.elm +1 -1

@@ 360,7 360,7 @@ type alias DoneStat =
 
 
 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 =