Uses strings instead of floats/ints

This commit is contained in:
Roman Galochkin 2020-03-04 10:50:11 +03:00
parent de25eef2f6
commit 5bdb229b56
4 changed files with 135 additions and 150 deletions

View File

@ -33,7 +33,7 @@
"antd": "3.17.0",
"autoprefixer": "9.7.4",
"babel-jest": "25.1.0",
"bs-ant-design-alt": "2.0.0-alpha.31",
"bs-ant-design-alt": "2.0.0-alpha.33",
"bs-css": "11.0.0",
"bs-moment": "0.4.4",
"bs-platform": "7.0.1",

View File

@ -6,21 +6,27 @@ module FormConfig = [%lenses
guesstimatorString: string,
//
domainType: string, // Complete, LeftLimited(...), RightLimited(...), LeftAndRightLimited(..., ...)
xPoint: float,
xPoint2: float,
excludingProbabilityMass: float,
excludingProbabilityMass2: float,
xPoint: string,
xPoint2: string,
excludingProbabilityMass: string,
excludingProbabilityMass2: string,
//
unitType: string, // UnspecifiedDistribution, TimeDistribution(zero, unit)
zero: MomentRe.Moment.t,
unit: string,
//
sampleCount: int,
outputXYPoints: int,
truncateTo: int,
sampleCount: string,
outputXYPoints: string,
truncateTo: string,
}
];
type options = {
sampleCount: int,
outputXYPoints: int,
truncateTo: option(int),
};
module Form = ReForm.Make(FormConfig);
let schema = Form.Validation.Schema([||]);
@ -43,47 +49,18 @@ module FieldString = {
};
};
module FieldNumber = {
[@react.component]
let make = (~field, ~label, ~min=0) => {
<Form.Field
field
render={({handleChange, error, value, validate}) =>
<Antd.Form.Item label={label |> E.ste}>
<Antd.InputNumber
value
onChange=handleChange
min
onBlur={_ => validate()}
parser={str => {
let a = str |> Js.Float.fromString |> int_of_float;
a < min ? min : a;
}}
/>
</Antd.Form.Item>
}
/>;
};
};
module FieldFloat = {
[@react.component]
let make =
(~field, ~label, ~className=Css.style([]), ~min=0., ~precision=2) => {
let make = (~field, ~label, ~className=Css.style([])) => {
<Form.Field
field
render={({handleChange, error, value, validate}) =>
<Antd.Form.Item label={label |> E.ste}>
<Antd.InputFloat
<Antd.Input
value
precision
onChange=handleChange
onChange={BsReform.Helpers.handleChange(handleChange)}
onBlur={_ => validate()}
className
parser={str => {
let a = str |> Js.Float.fromString;
Js.Float.isNaN(a) ? min : a;
}}
/>
</Antd.Form.Item>
}
@ -134,27 +111,23 @@ module Styles = {
module DemoDist = {
[@react.component]
let make =
(
~guesstimatorString,
~domain,
~unit,
~sampleCount,
~outputXYPoints,
~truncateTo,
) => {
let make = (~guesstimatorString, ~domain, ~unit, ~options) => {
<Antd.Card title={"Distribution" |> E.ste}>
<div className=Styles.spacer />
<div>
<div>
{DistPlusIngredients.make(~guesstimatorString, ~domain, ~unit, ())
{switch (domain, unit, options) {
| (Some(domain), Some(unit), Some(options)) =>
DistPlusIngredients.make(~guesstimatorString, ~domain, ~unit, ())
|> DistPlusIngredients.toDistPlus(
~sampleCount,
~outputXYPoints,
~truncateTo,
~sampleCount=options.sampleCount,
~outputXYPoints=options.outputXYPoints,
~truncateTo=options.truncateTo,
)
|> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
</div>
|> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)
| _ =>
"Nothing to show. Try to change the distribution description."
|> E.ste
}}
</div>
</Antd.Card>;
};
@ -171,16 +144,16 @@ let make = () => {
~initialState={
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,
xPoint: "50.0",
xPoint2: "60.0",
excludingProbabilityMass2: "0.5",
excludingProbabilityMass: "0.3",
unitType: "UnspecifiedDistribution",
zero: MomentRe.momentNow(),
unit: "days",
sampleCount: 1000,
outputXYPoints: 2000,
truncateTo: 500,
sampleCount: "1000",
outputXYPoints: "2000",
truncateTo: "500",
},
(),
);
@ -190,78 +163,98 @@ let make = () => {
reform.submit();
};
let xPoint = reform.state.values.xPoint |> Js.Float.fromString;
let xPoint2 = reform.state.values.xPoint2 |> Js.Float.fromString;
let excludingProbabilityMass =
reform.state.values.excludingProbabilityMass |> Js.Float.fromString;
let excludingProbabilityMass2 =
reform.state.values.excludingProbabilityMass2 |> Js.Float.fromString;
let zero = reform.state.values.zero;
let unit = reform.state.values.unit;
let domainType = reform.state.values.domainType;
let unitType = reform.state.values.unitType;
let guesstimatorString = reform.state.values.guesstimatorString;
let sampleCount = reform.state.values.sampleCount |> Js.Float.fromString;
let outputXYPoints =
reform.state.values.outputXYPoints |> Js.Float.fromString;
let truncateTo = reform.state.values.truncateTo |> Js.Float.fromString;
let domain =
switch (reform.state.values.domainType) {
| "Complete" => DistTypes.Complete
| "LeftLimited" =>
LeftLimited({
xPoint: reform.state.values.xPoint,
excludingProbabilityMass: reform.state.values.excludingProbabilityMass,
})
| "RightLimited" =>
RightLimited({
xPoint: reform.state.values.xPoint2,
excludingProbabilityMass:
reform.state.values.excludingProbabilityMass2,
})
| "LeftAndRightLimited" =>
LeftAndRightLimited(
{
xPoint: reform.state.values.xPoint,
excludingProbabilityMass:
reform.state.values.excludingProbabilityMass,
},
{
xPoint: reform.state.values.xPoint2,
excludingProbabilityMass:
reform.state.values.excludingProbabilityMass2,
},
switch (domainType) {
| "Complete" => Some(DistTypes.Complete)
| "LeftLimited"
when
!Js.Float.isNaN(xPoint)
&& !Js.Float.isNaN(excludingProbabilityMass) =>
Some(LeftLimited({xPoint, excludingProbabilityMass}))
| "RightLimited"
when
!Js.Float.isNaN(xPoint2)
&& !Js.Float.isNaN(excludingProbabilityMass2) =>
Some(RightLimited({xPoint, excludingProbabilityMass}))
| "LeftAndRightLimited"
when
!Js.Float.isNaN(xPoint)
&& !Js.Float.isNaN(excludingProbabilityMass)
&& !Js.Float.isNaN(xPoint2)
&& !Js.Float.isNaN(excludingProbabilityMass2) =>
Some(
LeftAndRightLimited(
{xPoint, excludingProbabilityMass},
{xPoint, excludingProbabilityMass},
),
)
| _ => Js.Exn.raiseError("domain is unknown")
| _ => None
};
let unit =
switch (reform.state.values.unitType) {
| "UnspecifiedDistribution" => DistTypes.UnspecifiedDistribution
switch (unitType) {
| "UnspecifiedDistribution" => Some(DistTypes.UnspecifiedDistribution)
| "TimeDistribution" =>
TimeDistribution({
zero: reform.state.values.zero,
unit: reform.state.values.unit |> TimeTypes.TimeUnit.ofString,
})
| _ => Js.Exn.raiseError("unit is unknown")
Some(
TimeDistribution({zero, unit: unit |> TimeTypes.TimeUnit.ofString}),
)
| _ => None
};
let guesstimatorString = reform.state.values.guesstimatorString;
let sampleCount = reform.state.values.sampleCount;
let outputXYPoints = reform.state.values.outputXYPoints;
let truncateTo = reform.state.values.truncateTo |> E.O.some;
let options =
switch (sampleCount, outputXYPoints, truncateTo) {
| (_, _, _)
when
!Js.Float.isNaN(sampleCount)
&& !Js.Float.isNaN(outputXYPoints)
&& !Js.Float.isNaN(truncateTo)
&& sampleCount > 10.
&& outputXYPoints > 10.
&& truncateTo > 10. =>
Some({
sampleCount: sampleCount |> int_of_float,
outputXYPoints: outputXYPoints |> int_of_float,
truncateTo: truncateTo |> int_of_float |> E.O.some,
})
| _ => None
};
let demoDist =
React.useMemo1(
() => {
<DemoDist
guesstimatorString
domain
unit
sampleCount
outputXYPoints
truncateTo
/>
},
() => <DemoDist guesstimatorString domain unit options />,
[|
reform.state.values.guesstimatorString,
reform.state.values.domainType,
reform.state.values.xPoint |> string_of_float,
reform.state.values.xPoint2 |> string_of_float,
reform.state.values.xPoint2 |> string_of_float,
reform.state.values.excludingProbabilityMass |> string_of_float,
reform.state.values.excludingProbabilityMass2 |> string_of_float,
reform.state.values.xPoint,
reform.state.values.xPoint2,
reform.state.values.xPoint2,
reform.state.values.excludingProbabilityMass,
reform.state.values.excludingProbabilityMass2,
reform.state.values.unitType,
reform.state.values.zero |> E.M.format(E.M.format_standard),
reform.state.values.unit,
reform.state.values.sampleCount |> string_of_int,
reform.state.values.outputXYPoints |> string_of_int,
reform.state.values.truncateTo |> string_of_int,
reform.state.values.sampleCount,
reform.state.values.outputXYPoints,
reform.state.values.truncateTo,
reloader |> string_of_int,
|],
);
@ -445,25 +438,16 @@ let make = () => {
</Row>
<Row _type=`flex className=Styles.rows>
<Col span=4>
<FieldNumber
field=FormConfig.SampleCount
label="Sample Count"
min=100
/>
<FieldFloat field=FormConfig.SampleCount label="Sample Count" />
</Col>
<Col span=4>
<FieldNumber
<FieldFloat
field=FormConfig.OutputXYPoints
label="Output XY-points"
min=100
/>
</Col>
<Col span=4>
<FieldNumber
field=FormConfig.TruncateTo
label="Truncate To"
min=10
/>
<FieldFloat field=FormConfig.TruncateTo label="Truncate To" />
</Col>
</Row>
<Antd.Button

View File

@ -87,13 +87,11 @@ export class CdfChartD3 {
render() {
this._container = d3.select(this.attrs.container);
if (this._container.node() === null) {
console.error('Container for D3 is not defined.');
return;
throw new Error('Container for D3 is not defined.');
}
if (!['log', 'linear'].includes(this.attrs.scale)) {
console.error('Scale should be either "log" or "linear".');
return;
throw new Error('Scale should be either "log" or "linear".');
}
// Log Scale.
@ -121,8 +119,7 @@ export class CdfChartD3 {
];
for (const field of fields) {
if (!_.isNumber(this.attrs[field])) {
console.error(`${field} should be a number.`);
return;
throw new Error(`${field} should be a number.`);
}
}
@ -157,12 +154,16 @@ export class CdfChartD3 {
`translate(${this.calc.chartLeftMargin}, ${this.calc.chartTopMargin})`,
);
const common = this.getCommonThings();
if (this.hasDate('continuous')) {
this.addDistributionChart(common);
}
if (this.hasDate('discrete')) {
this.addLollipopsChart(common);
try {
const common = this.getCommonThings();
if (this.hasDate('continuous')) {
this.addDistributionChart(common);
}
if (this.hasDate('discrete')) {
this.addLollipopsChart(common);
}
} catch (e) {
throw e;
}
return this;
}
@ -183,10 +184,10 @@ export class CdfChartD3 {
const yMax = d3.max(this.attrs.data.continuous.ys);
// Errors.
if (!_.isFinite(xMin)) return console.error('xMin is undefined');
if (!_.isFinite(xMax)) return console.error('xMax is undefined');
if (!_.isFinite(yMin)) return console.error('yMin is undefined');
if (!_.isFinite(yMax)) return console.error('yMax is undefined');
if (!_.isFinite(xMin)) throw new Error('xMin is undefined');
if (!_.isFinite(xMax)) throw new Error('xMax is undefined');
if (!_.isFinite(yMin)) throw new Error('yMin is undefined');
if (!_.isFinite(yMax)) throw new Error('yMax is undefined');
// X-domains.
const yMaxDomainFactor = _.get(this.attrs, 'yMaxContinuousDomainFactor', 1);

View File

@ -2488,10 +2488,10 @@ browserslist@^4.0.0, browserslist@^4.1.0, browserslist@^4.3.4, browserslist@^4.8
electron-to-chromium "^1.3.341"
node-releases "^1.1.47"
bs-ant-design-alt@2.0.0-alpha.31:
version "2.0.0-alpha.31"
resolved "https://registry.yarnpkg.com/bs-ant-design-alt/-/bs-ant-design-alt-2.0.0-alpha.31.tgz#425003babaf47eefdc81cb392d9f224bc18c651a"
integrity sha512-N0wmBksjgyQ4ioLi6L/gTt8852ghrmdYOBvs7onckEQ/O86eYRbKSMGL8cqMvUYJLB3IxKXSS89cssApqzGpTw==
bs-ant-design-alt@2.0.0-alpha.33:
version "2.0.0-alpha.33"
resolved "https://registry.yarnpkg.com/bs-ant-design-alt/-/bs-ant-design-alt-2.0.0-alpha.33.tgz#13dc94f4fe4e7525485515cca2d2eae298940045"
integrity sha512-C+REAjuxExzQnPP5KySwNd8Pizs0VGnrrF/6YlraErWr/Bjf3fqn6and3UXyHqi+DAj15IxY6e7lkaghQgO0eA==
dependencies:
antd "3.17.0"
bs-moment "^0.4.4"