@@ 230,6 230,9 @@ update msg model =
ReworkShare ->
( { model | chart5 = Charting.update y model.chart5 }, Cmd.none )
+ InterruptedShare ->
+ ( { model | chart0 = Charting.update y model.chart0 }, Cmd.none )
+
ChartingMsgWrapperScatter _ ->
( model, Cmd.none )
@@ 484,7 487,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 > 4 cycles flow time]" model.chart3, headedChart "How much rework?" "[jobs requiring rework]" model.chart5 ]
+ [ cc [ headedChart "jobs in todo interrupted" "[%]" model.chart0, 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 =
@@ 8,7 8,7 @@ import Time
type alias Model =
- { viewport : Maybe Dom.Viewport, kit : Field, nkit : Field, round : Round, step : StepVariant, finishRound : Bool, roundEmpty : Bool, stepEmpty : Bool, stopRoundEmpty : Bool, autoPlay : Bool, incrementMode : AutoPlayMode, reworkProbPerRound : Float, reworkProbPerRoundDot : Bool, reworkProbEmpty : Bool, scrapLimit : Maybe ScrapLimit, cyclesPerIncrement : Int, cyclesPerIncrementEmpty : Bool, chart1 : ChartingModel, chart3 : ChartingModel, chart5 : ChartingModel, stats : Stats }
+ { viewport : Maybe Dom.Viewport, kit : Field, nkit : Field, round : Round, step : StepVariant, finishRound : Bool, roundEmpty : Bool, stepEmpty : Bool, stopRoundEmpty : Bool, autoPlay : Bool, incrementMode : AutoPlayMode, reworkProbPerRound : Float, reworkProbPerRoundDot : Bool, reworkProbEmpty : Bool, scrapLimit : Maybe ScrapLimit, cyclesPerIncrement : Int, cyclesPerIncrementEmpty : Bool, chart0 : ChartingModel, chart1 : ChartingModel, chart3 : ChartingModel, chart5 : ChartingModel, stats : Stats }
initChart : ChartType -> ChartingModel
@@ 16,6 16,11 @@ initChart chartType =
{ hovering = Nothing, chartType = chartType }
+chart0 : ChartingModel
+chart0 =
+ initChart InterruptedShare
+
+
chart1 : ChartingModel
chart1 =
initChart HowMuchDone
@@ 33,7 38,7 @@ chart5 =
initModel : Model
initModel =
- { viewport = Nothing, nkit = initField, kit = initField, round = 0, step = S7, finishRound = False, roundEmpty = False, stepEmpty = False, stopRoundEmpty = False, autoPlay = False, incrementMode = RoundMode, reworkProbPerRound = 0.5, reworkProbPerRoundDot = False, reworkProbEmpty = False, scrapLimit = Nothing, cyclesPerIncrement = 1, cyclesPerIncrementEmpty = False, chart1 = chart1, chart3 = chart3, chart5 = chart5, stats = { flowtimesSinglesNKIT = [], flowtimesSinglesKIT = [], justDonesNKIT = [], justDonesKIT = [], doneData = [] } }
+ { viewport = Nothing, nkit = initField, kit = initField, round = 0, step = S7, finishRound = False, roundEmpty = False, stepEmpty = False, stopRoundEmpty = False, autoPlay = False, incrementMode = RoundMode, reworkProbPerRound = 0.5, reworkProbPerRoundDot = False, reworkProbEmpty = False, scrapLimit = Nothing, cyclesPerIncrement = 1, cyclesPerIncrementEmpty = False, chart0 = chart0, chart1 = chart1, chart3 = chart3, chart5 = chart5, stats = { flowtimesSinglesNKIT = [], flowtimesSinglesKIT = [], justDonesNKIT = [], justDonesKIT = [], doneData = [] } }
type AutoPlayMode
@@ 365,7 370,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, flowtimeGNKIT : Float, flowtimeGKIT : 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, interruptedShareKIT : Float, interruptedShareNKIT : Float, flowtimeGNKIT : Float, flowtimeGKIT : Float }
type alias ScatterPoint =
@@ 380,6 385,7 @@ type ChartingMsg
= OnHoverDone HoverData
| OnHoverFloat HoverData
| OnHoverRework HoverData
+ | OnHoverInterrupted HoverData
type alias HoverData =
@@ 390,6 396,7 @@ type ChartType
= HowMuchDone
| HowLongFloat
| ReworkShare
+ | InterruptedShare
type alias Stats =