quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adds spacer

Browse Source
This commit is contained in:
Roman Galochkin 2020-02-26 15:58:56 +03:00
parent 746d74da96
commit a9730c7480
1 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/DistBuilder.re
View File

@ -6,7 +6,9 @@ module FormConfig = [%lenses
// //
domainType: string, // Complete, LeftLimited(...), RightLimited(...), LeftAndRightLimited(..., ...) domainType: string, // Complete, LeftLimited(...), RightLimited(...), LeftAndRightLimited(..., ...)
xPoint: string, xPoint: string,
xPoint2: string,
excludingProbabilityMass: string, excludingProbabilityMass: string,
excludingProbabilityMass2: string,
// //
unitType: string, // UnspecifiedDistribution, TimeDistribution(zero, unit) unitType: string, // UnspecifiedDistribution, TimeDistribution(zero, unit)
zero: MomentRe.Moment.t, zero: MomentRe.Moment.t,
@ -73,6 +75,8 @@ let make = () => {
guesstimatorString: "mm(5 to 20, floor(normal(20,2)), [.5, .5])", guesstimatorString: "mm(5 to 20, floor(normal(20,2)), [.5, .5])",
domainType: "Complete", domainType: "Complete",
xPoint: "50.0", xPoint: "50.0",
xPoint2: "60.0",
excludingProbabilityMass2: "0.5",
excludingProbabilityMass: "0.3", excludingProbabilityMass: "0.3",
unitType: "UnspecifiedDistribution", unitType: "UnspecifiedDistribution",
zero: MomentRe.momentNow(), zero: MomentRe.momentNow(),
@ -109,9 +113,9 @@ let make = () => {
reform.state.values.excludingProbabilityMass |> float_of_string, reform.state.values.excludingProbabilityMass |> float_of_string,
}, },
{ {
xPoint: reform.state.values.xPoint |> float_of_string, xPoint: reform.state.values.xPoint2 |> float_of_string,
excludingProbabilityMass: excludingProbabilityMass:
reform.state.values.excludingProbabilityMass |> float_of_string, reform.state.values.excludingProbabilityMass2 |> float_of_string,
}, },
) )
| _ => Js.Exn.raiseError("domain is unknown") | _ => Js.Exn.raiseError("domain is unknown")
@ -162,24 +166,35 @@ let make = () => {
{"Complete" |> E.ste} {"Complete" |> E.ste}
</Antd.Select.Option> </Antd.Select.Option>
<Antd.Select.Option value="LeftLimited"> <Antd.Select.Option value="LeftLimited">
{"LeftLimited" |> E.ste} {"Left Limited" |> E.ste}
</Antd.Select.Option> </Antd.Select.Option>
<Antd.Select.Option value="RightLimited"> <Antd.Select.Option value="RightLimited">
{"RightLimited" |> E.ste} {"Right Limited" |> E.ste}
</Antd.Select.Option> </Antd.Select.Option>
<Antd.Select.Option value="LeftAndRightLimited"> <Antd.Select.Option value="LeftAndRightLimited">
{"LeftAndRightLimited" |> E.ste} {"Left And Right Limited" |> E.ste}
</Antd.Select.Option> </Antd.Select.Option>
</Antd.Select> </Antd.Select>
</Antd.Form.Item> </Antd.Form.Item>
} }
/> />
</div> </div>
<div> <FieldString field=FormConfig.XPoint label="xPoint" /> </div> <div>
<FieldString field=FormConfig.XPoint label="X-point" />
</div>
<div> <div>
<FieldString <FieldString
field=FormConfig.ExcludingProbabilityMass 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>
</div> </div>
@ -191,10 +206,10 @@ let make = () => {
<Antd.Form.Item label={"Zero Type" |> E.ste}> <Antd.Form.Item label={"Zero Type" |> E.ste}>
<Antd.Select value onChange={e => e |> handleChange}> <Antd.Select value onChange={e => e |> handleChange}>
<Antd.Select.Option value="UnspecifiedDistribution"> <Antd.Select.Option value="UnspecifiedDistribution">
{"UnspecifiedDistribution" |> E.ste} {"Unspecified Distribution" |> E.ste}
</Antd.Select.Option> </Antd.Select.Option>
<Antd.Select.Option value="TimeDistribution"> <Antd.Select.Option value="TimeDistribution">
{"TimeDistribution" |> E.ste} {"Time Distribution" |> E.ste}
</Antd.Select.Option> </Antd.Select.Option>
</Antd.Select> </Antd.Select>
</Antd.Form.Item> </Antd.Form.Item>
@ -210,7 +225,6 @@ let make = () => {
value value
onChange={e => { onChange={e => {
e |> handleChange; e |> handleChange;
_ => (); _ => ();
}} }}
/> />