2020-02-26 10:38:29 +00:00
|
|
|
open BsReform;
|
|
|
|
|
|
|
|
module FormConfig = [%lenses
|
|
|
|
type state = {
|
2020-02-26 12:21:30 +00:00
|
|
|
guesstimatorString: string,
|
|
|
|
//
|
|
|
|
domainType: string, // Complete, LeftLimited(...), RightLimited(...), LeftAndRightLimited(..., ...)
|
|
|
|
xPoint: string,
|
2020-02-26 12:58:56 +00:00
|
|
|
xPoint2: string,
|
2020-02-26 12:21:30 +00:00
|
|
|
excludingProbabilityMass: string,
|
2020-02-26 12:58:56 +00:00
|
|
|
excludingProbabilityMass2: string,
|
2020-02-26 12:21:30 +00:00
|
|
|
//
|
|
|
|
unitType: string, // UnspecifiedDistribution, TimeDistribution(zero, unit)
|
|
|
|
zero: MomentRe.Moment.t,
|
|
|
|
unit: string,
|
2020-02-26 10:38:29 +00:00
|
|
|
}
|
|
|
|
];
|
|
|
|
|
|
|
|
module Form = ReForm.Make(FormConfig);
|
|
|
|
|
|
|
|
let schema = Form.Validation.Schema([||]);
|
|
|
|
|
|
|
|
module FieldString = {
|
|
|
|
[@react.component]
|
|
|
|
let make = (~field, ~label) => {
|
|
|
|
<Form.Field
|
|
|
|
field
|
|
|
|
render={({handleChange, error, value, validate}) =>
|
|
|
|
<Antd.Form.Item label={label |> E.ste}>
|
|
|
|
<Antd.Input
|
|
|
|
value
|
|
|
|
onChange={BsReform.Helpers.handleChange(handleChange)}
|
|
|
|
onBlur={_ => validate()}
|
|
|
|
/>
|
|
|
|
</Antd.Form.Item>
|
|
|
|
}
|
|
|
|
/>;
|
|
|
|
};
|
|
|
|
};
|
|
|
|
|
2020-02-26 12:33:30 +00:00
|
|
|
module Styles = {
|
|
|
|
open Css;
|
|
|
|
let row =
|
|
|
|
style([display(`flex), selector("div > div", [flex(`num(1.))])]);
|
2020-02-26 12:55:19 +00:00
|
|
|
let form = style([backgroundColor(hex("eee")), padding(em(1.))]);
|
|
|
|
let spacer = style([marginTop(em(3.))]);
|
2020-02-26 12:33:30 +00:00
|
|
|
};
|
|
|
|
|
2020-02-26 12:21:30 +00:00
|
|
|
module FieldFloat = {
|
|
|
|
[@react.component]
|
|
|
|
let make = (~field, ~label) => {
|
|
|
|
<Form.Field
|
|
|
|
field
|
|
|
|
render={({handleChange, error, value, validate}) =>
|
|
|
|
<Antd.Form.Item label={label |> E.ste}>
|
|
|
|
<Antd.Input
|
|
|
|
value
|
|
|
|
onChange={BsReform.Helpers.handleChange(handleChange)}
|
|
|
|
onBlur={_ => validate()}
|
|
|
|
/>
|
|
|
|
</Antd.Form.Item>
|
|
|
|
}
|
|
|
|
/>;
|
|
|
|
};
|
|
|
|
};
|
|
|
|
|
2020-02-26 10:38:29 +00:00
|
|
|
[@react.component]
|
|
|
|
let make = () => {
|
|
|
|
let reform =
|
|
|
|
Form.use(
|
|
|
|
~validationStrategy=OnDemand,
|
|
|
|
~schema,
|
|
|
|
~onSubmit=({state}) => {None},
|
2020-02-26 12:21:30 +00:00
|
|
|
~initialState={
|
|
|
|
guesstimatorString: "mm(5 to 20, floor(normal(20,2)), [.5, .5])",
|
|
|
|
domainType: "Complete",
|
2020-02-26 12:55:19 +00:00
|
|
|
xPoint: "50.0",
|
2020-02-26 12:58:56 +00:00
|
|
|
xPoint2: "60.0",
|
|
|
|
excludingProbabilityMass2: "0.5",
|
2020-02-26 12:55:19 +00:00
|
|
|
excludingProbabilityMass: "0.3",
|
2020-02-26 12:21:30 +00:00
|
|
|
unitType: "UnspecifiedDistribution",
|
|
|
|
zero: MomentRe.momentNow(),
|
|
|
|
unit: "days",
|
|
|
|
},
|
2020-02-26 10:38:29 +00:00
|
|
|
(),
|
|
|
|
);
|
|
|
|
|
|
|
|
let onSubmit = e => {
|
|
|
|
e->ReactEvent.Synthetic.preventDefault;
|
|
|
|
reform.submit();
|
|
|
|
};
|
|
|
|
|
2020-02-26 12:55:19 +00:00
|
|
|
let domain =
|
|
|
|
switch (reform.state.values.domainType) {
|
|
|
|
| "Complete" => DistTypes.Complete
|
|
|
|
| "LeftLimited" =>
|
|
|
|
LeftLimited({
|
|
|
|
xPoint: reform.state.values.xPoint |> float_of_string,
|
|
|
|
excludingProbabilityMass:
|
|
|
|
reform.state.values.excludingProbabilityMass |> float_of_string,
|
|
|
|
})
|
|
|
|
| "RightLimited" =>
|
|
|
|
RightLimited({
|
|
|
|
xPoint: reform.state.values.xPoint |> float_of_string,
|
|
|
|
excludingProbabilityMass:
|
|
|
|
reform.state.values.excludingProbabilityMass |> float_of_string,
|
|
|
|
})
|
|
|
|
| "LeftAndRightLimited" =>
|
|
|
|
LeftAndRightLimited(
|
|
|
|
{
|
|
|
|
xPoint: reform.state.values.xPoint |> float_of_string,
|
|
|
|
excludingProbabilityMass:
|
|
|
|
reform.state.values.excludingProbabilityMass |> float_of_string,
|
|
|
|
},
|
|
|
|
{
|
2020-02-26 12:58:56 +00:00
|
|
|
xPoint: reform.state.values.xPoint2 |> float_of_string,
|
2020-02-26 12:55:19 +00:00
|
|
|
excludingProbabilityMass:
|
2020-02-26 12:58:56 +00:00
|
|
|
reform.state.values.excludingProbabilityMass2 |> float_of_string,
|
2020-02-26 12:55:19 +00:00
|
|
|
},
|
|
|
|
)
|
|
|
|
| _ => Js.Exn.raiseError("domain is unknown")
|
|
|
|
};
|
|
|
|
|
|
|
|
let unit =
|
|
|
|
switch (reform.state.values.unitType) {
|
|
|
|
| "UnspecifiedDistribution" => DistTypes.UnspecifiedDistribution
|
|
|
|
| "TimeDistribution" =>
|
|
|
|
TimeDistribution({
|
|
|
|
zero: reform.state.values.zero,
|
|
|
|
unit: reform.state.values.unit |> TimeTypes.TimeUnit.ofString,
|
|
|
|
})
|
|
|
|
| _ => Js.Exn.raiseError("unit is unknown")
|
|
|
|
};
|
|
|
|
|
|
|
|
let guesstimatorString = reform.state.values.guesstimatorString;
|
|
|
|
|
|
|
|
<div>
|
|
|
|
<div className=Styles.spacer />
|
|
|
|
<div>
|
|
|
|
<div>
|
|
|
|
{DistPlusIngredients.make(~guesstimatorString, ~domain, ~unit, ())
|
|
|
|
|> DistPlusIngredients.toDistPlus(
|
|
|
|
~sampleCount=10000,
|
|
|
|
~outputXYPoints=2000,
|
|
|
|
~truncateTo=Some(1000),
|
|
|
|
)
|
|
|
|
|> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
|
2020-02-26 12:33:30 +00:00
|
|
|
</div>
|
2020-02-26 12:55:19 +00:00
|
|
|
</div>
|
|
|
|
<div className=Styles.spacer />
|
|
|
|
<div className=Styles.form>
|
|
|
|
<Form.Provider value=reform>
|
|
|
|
<Antd.Form onSubmit>
|
|
|
|
<FieldString
|
|
|
|
field=FormConfig.GuesstimatorString
|
|
|
|
label="Guesstimator String"
|
2020-02-26 12:33:30 +00:00
|
|
|
/>
|
2020-02-26 12:55:19 +00:00
|
|
|
<div className=Styles.row>
|
|
|
|
<div>
|
|
|
|
<Form.Field
|
|
|
|
field=FormConfig.DomainType
|
|
|
|
render={({handleChange, value}) =>
|
|
|
|
<Antd.Form.Item label={"Domain Type" |> E.ste}>
|
|
|
|
<Antd.Select value onChange={e => e |> handleChange}>
|
|
|
|
<Antd.Select.Option value="Complete">
|
|
|
|
{"Complete" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="LeftLimited">
|
2020-02-26 12:58:56 +00:00
|
|
|
{"Left Limited" |> E.ste}
|
2020-02-26 12:55:19 +00:00
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="RightLimited">
|
2020-02-26 12:58:56 +00:00
|
|
|
{"Right Limited" |> E.ste}
|
2020-02-26 12:55:19 +00:00
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="LeftAndRightLimited">
|
2020-02-26 12:58:56 +00:00
|
|
|
{"Left And Right Limited" |> E.ste}
|
2020-02-26 12:55:19 +00:00
|
|
|
</Antd.Select.Option>
|
|
|
|
</Antd.Select>
|
|
|
|
</Antd.Form.Item>
|
|
|
|
}
|
|
|
|
/>
|
|
|
|
</div>
|
2020-02-26 12:58:56 +00:00
|
|
|
<div>
|
|
|
|
<FieldString field=FormConfig.XPoint label="X-point" />
|
|
|
|
</div>
|
2020-02-26 12:55:19 +00:00
|
|
|
<div>
|
|
|
|
<FieldString
|
|
|
|
field=FormConfig.ExcludingProbabilityMass
|
2020-02-26 12:58:56 +00:00
|
|
|
label="Excluding Probability Mass"
|
|
|
|
/>
|
|
|
|
</div>
|
|
|
|
<div>
|
|
|
|
<FieldString field=FormConfig.XPoint2 label="X-point (2)" />
|
|
|
|
</div>
|
|
|
|
<div>
|
|
|
|
<FieldString
|
|
|
|
field=FormConfig.ExcludingProbabilityMass2
|
|
|
|
label="Excluding Probability Mass (2)"
|
2020-02-26 12:55:19 +00:00
|
|
|
/>
|
|
|
|
</div>
|
|
|
|
</div>
|
|
|
|
<div className=Styles.row>
|
|
|
|
<div>
|
|
|
|
<Form.Field
|
|
|
|
field=FormConfig.UnitType
|
|
|
|
render={({handleChange, value}) =>
|
|
|
|
<Antd.Form.Item label={"Zero Type" |> E.ste}>
|
|
|
|
<Antd.Select value onChange={e => e |> handleChange}>
|
|
|
|
<Antd.Select.Option value="UnspecifiedDistribution">
|
2020-02-26 12:58:56 +00:00
|
|
|
{"Unspecified Distribution" |> E.ste}
|
2020-02-26 12:55:19 +00:00
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="TimeDistribution">
|
2020-02-26 12:58:56 +00:00
|
|
|
{"Time Distribution" |> E.ste}
|
2020-02-26 12:55:19 +00:00
|
|
|
</Antd.Select.Option>
|
|
|
|
</Antd.Select>
|
|
|
|
</Antd.Form.Item>
|
|
|
|
}
|
|
|
|
/>
|
|
|
|
</div>
|
|
|
|
<div>
|
|
|
|
<Form.Field
|
|
|
|
field=FormConfig.Zero
|
|
|
|
render={({handleChange, value}) =>
|
|
|
|
<Antd.Form.Item label={"Zero" |> E.ste}>
|
|
|
|
<Antd_DatePicker
|
|
|
|
value
|
|
|
|
onChange={e => {
|
|
|
|
e |> handleChange;
|
|
|
|
_ => ();
|
|
|
|
}}
|
|
|
|
/>
|
|
|
|
</Antd.Form.Item>
|
|
|
|
}
|
|
|
|
/>
|
|
|
|
</div>
|
|
|
|
<div>
|
|
|
|
<Form.Field
|
|
|
|
field=FormConfig.Unit
|
|
|
|
render={({handleChange, value}) =>
|
|
|
|
<Antd.Form.Item label={"Unit" |> E.ste}>
|
|
|
|
<Antd.Select value onChange={e => e |> handleChange}>
|
|
|
|
<Antd.Select.Option value="days">
|
|
|
|
{"days" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="hours">
|
|
|
|
{"hours" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="milliseconds">
|
|
|
|
{"milliseconds" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="minutes">
|
|
|
|
{"minutes" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="months">
|
|
|
|
{"months" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="quarters">
|
|
|
|
{"quarters" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="seconds">
|
|
|
|
{"seconds" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="weeks">
|
|
|
|
{"weeks" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
<Antd.Select.Option value="years">
|
|
|
|
{"years" |> E.ste}
|
|
|
|
</Antd.Select.Option>
|
|
|
|
</Antd.Select>
|
|
|
|
</Antd.Form.Item>
|
|
|
|
}
|
|
|
|
/>
|
|
|
|
</div>
|
|
|
|
</div>
|
|
|
|
</Antd.Form>
|
|
|
|
</Form.Provider>
|
|
|
|
</div>
|
|
|
|
</div>;
|
2020-02-26 10:38:29 +00:00
|
|
|
};
|