squiggle/showcase/entries/Continuous.re

43 lines
1.2 KiB
ReasonML
Raw Normal View History

2020-02-28 10:32:12 +00:00
// Examples:
// mm(floor(uniform(30,35)), normal(50,20), [.25,.5])
// mm(floor(normal(28,4)), normal(32,2), uniform(20,24), [.5,.2,.1])
// mm(5 to 20, floor(normal(20,2)), [.5, .5])"
// floor(3 to 4)
// uniform(0,1) > 0.3 ? lognormal(6.652, -0.41): 0
2020-02-17 22:53:39 +00:00
let timeDist =
DistPlusIngredients.make(
2020-02-25 12:28:26 +00:00
~guesstimatorString="(floor(10 to 15))",
~domain=RightLimited({xPoint: 50.0, excludingProbabilityMass: 0.3}),
2020-02-24 21:33:27 +00:00
~unit=
DistTypes.TimeDistribution({zero: MomentRe.momentNow(), unit: `years}),
2020-02-17 22:53:39 +00:00
(),
2020-02-24 21:33:27 +00:00
);
let setup = dist =>
dist
2020-02-25 12:28:26 +00:00
|> DistPlusIngredients.toDistPlus(
~sampleCount=10000,
~outputXYPoints=2000,
~truncateTo=Some(1000),
);
2020-02-17 22:53:39 +00:00
let distributions = () =>
<div>
<div>
2020-02-24 21:33:27 +00:00
<h2> {"Single-Discrete" |> ReasonReact.string} </h2>
{setup(
DistPlusIngredients.make(
2020-02-25 19:55:01 +00:00
~guesstimatorString=
"uniform(0,1) > 0.3 ? lognormal(6.652, -0.41): 0",
~domain=
RightLimited({xPoint: 50.0, excludingProbabilityMass: 0.3}),
2020-02-24 21:33:27 +00:00
(),
),
)
2020-02-24 16:39:55 +00:00
|> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
2020-02-19 22:28:16 +00:00
</div>
</div>;
2020-02-28 10:32:12 +00:00
let entry = EntryTypes.(entry(~title="Pdf", ~render=distributions));