Adds spacer
This commit is contained in:
parent
746d74da96
commit
a9730c7480
|
@ -6,7 +6,9 @@ module FormConfig = [%lenses
|
|||
//
|
||||
domainType: string, // Complete, LeftLimited(...), RightLimited(...), LeftAndRightLimited(..., ...)
|
||||
xPoint: string,
|
||||
xPoint2: string,
|
||||
excludingProbabilityMass: string,
|
||||
excludingProbabilityMass2: string,
|
||||
//
|
||||
unitType: string, // UnspecifiedDistribution, TimeDistribution(zero, unit)
|
||||
zero: MomentRe.Moment.t,
|
||||
|
@ -73,6 +75,8 @@ let make = () => {
|
|||
guesstimatorString: "mm(5 to 20, floor(normal(20,2)), [.5, .5])",
|
||||
domainType: "Complete",
|
||||
xPoint: "50.0",
|
||||
xPoint2: "60.0",
|
||||
excludingProbabilityMass2: "0.5",
|
||||
excludingProbabilityMass: "0.3",
|
||||
unitType: "UnspecifiedDistribution",
|
||||
zero: MomentRe.momentNow(),
|
||||
|
@ -109,9 +113,9 @@ let make = () => {
|
|||
reform.state.values.excludingProbabilityMass |> float_of_string,
|
||||
},
|
||||
{
|
||||
xPoint: reform.state.values.xPoint |> float_of_string,
|
||||
xPoint: reform.state.values.xPoint2 |> float_of_string,
|
||||
excludingProbabilityMass:
|
||||
reform.state.values.excludingProbabilityMass |> float_of_string,
|
||||
reform.state.values.excludingProbabilityMass2 |> float_of_string,
|
||||
},
|
||||
)
|
||||
| _ => Js.Exn.raiseError("domain is unknown")
|
||||
|
@ -175,11 +179,22 @@ let make = () => {
|
|||
}
|
||||
/>
|
||||
</div>
|
||||
<div> <FieldString field=FormConfig.XPoint label="xPoint" /> </div>
|
||||
<div>
|
||||
<FieldString field=FormConfig.XPoint label="X-point" />
|
||||
</div>
|
||||
<div>
|
||||
<FieldString
|
||||
field=FormConfig.ExcludingProbabilityMass
|
||||
label="excludingProbabilityMass"
|
||||
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)"
|
||||
/>
|
||||
</div>
|
||||
</div>
|
||||
|
@ -210,7 +225,6 @@ let make = () => {
|
|||
value
|
||||
onChange={e => {
|
||||
e |> handleChange;
|
||||
|
||||
_ => ();
|
||||
}}
|
||||
/>
|
||||
|
|
Loading…
Reference in New Issue
Block a user