Minor cleanup

This commit is contained in:
Ozzie Gooen 2020-02-27 09:45:46 +00:00
parent 6c6f1e151c
commit 2638607228
4 changed files with 45 additions and 45 deletions

View File

@ -140,9 +140,9 @@ let make = () => {
<div>
{DistPlusIngredients.make(~guesstimatorString, ~domain, ~unit, ())
|> DistPlusIngredients.toDistPlus(
~sampleCount=10000,
~outputXYPoints=2000,
~truncateTo=Some(1000),
~sampleCount=1000,
~outputXYPoints=1000,
~truncateTo=Some(100),
)
|> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
</div>

View File

@ -40,7 +40,7 @@ module DistPlusChart = {
height=120
?discrete
?continuous
color={`hex("333")}
color={`hex("5f6b7e")}
onHover
timeScale
/>;
@ -71,7 +71,7 @@ module IntegralChart = {
maxX
height=80
?continuous
color={`hex("333")}
color={`hex("5f6b7e")}
timeScale
onHover
/>;
@ -94,78 +94,78 @@ let make = (~distPlus: DistTypes.distPlus) => {
<div>
chart
chart2
<table className="table-auto">
<table className="table-auto text-sm">
<thead>
<tr>
<th className="px-4 py-2"> {"X Point" |> ReasonReact.string} </th>
<th className="px-4 py-2">
<td className="px-4 py-2 "> {"X Point" |> ReasonReact.string} </td>
<td className="px-4 py-2">
{"Discrete Value" |> ReasonReact.string}
</th>
<th className="px-4 py-2">
</td>
<td className="px-4 py-2">
{"Continuous Value" |> ReasonReact.string}
</th>
<th className="px-4 py-2">
</td>
<td className="px-4 py-2">
{"Y Integral to Point" |> ReasonReact.string}
</th>
<th className="px-4 py-2">
</td>
<td className="px-4 py-2">
{"Y Integral Total" |> ReasonReact.string}
</th>
</td>
</tr>
</thead>
<tbody>
<tr>
<th className="px-4 py-2 border ">
<td className="px-4 py-2 border">
{x |> E.Float.toString |> ReasonReact.string}
</th>
<th className="px-4 py-2 border ">
</td>
<td className="px-4 py-2 border ">
{distPlus
|> Distributions.DistPlus.T.xToY(x)
|> DistTypes.MixedPoint.toDiscreteValue
|> Js.Float.toPrecisionWithPrecision(_, ~digits=7)
|> ReasonReact.string}
</th>
<th className="px-4 py-2 border ">
</td>
<td className="px-4 py-2 border ">
{distPlus
|> Distributions.DistPlus.T.xToY(x)
|> DistTypes.MixedPoint.toContinuousValue
|> Js.Float.toPrecisionWithPrecision(_, ~digits=7)
|> ReasonReact.string}
</th>
<th className="px-4 py-2 border ">
</td>
<td className="px-4 py-2 border ">
{distPlus
|> Distributions.DistPlus.T.Integral.xToY(~cache=None, x)
|> E.Float.with2DigitsPrecision
|> ReasonReact.string}
</th>
<th className="px-4 py-2 border ">
</td>
<td className="px-4 py-2 border ">
{distPlus
|> Distributions.DistPlus.T.Integral.sum(~cache=None)
|> E.Float.with2DigitsPrecision
|> ReasonReact.string}
</th>
</td>
</tr>
</tbody>
</table>
<table className="table-auto">
<table className="table-auto text-sm">
<thead>
<tr>
<th className="px-4 py-2">
<td className="px-4 py-2">
{"Continuous Total" |> ReasonReact.string}
</th>
<th className="px-4 py-2">
</td>
<td className="px-4 py-2">
{"Scaled Continuous Total" |> ReasonReact.string}
</th>
<th className="px-4 py-2">
</td>
<td className="px-4 py-2">
{"Discrete Total" |> ReasonReact.string}
</th>
<th className="px-4 py-2">
</td>
<td className="px-4 py-2">
{"Scaled Discrete Total" |> ReasonReact.string}
</th>
</td>
</tr>
</thead>
<tbody>
<tr>
<th className="px-4 py-2 border ">
<td className="px-4 py-2 border">
{distPlus
|> Distributions.DistPlus.T.toContinuous
|> E.O.fmap(
@ -174,8 +174,8 @@ let make = (~distPlus: DistTypes.distPlus) => {
|> E.O.fmap(E.Float.with2DigitsPrecision)
|> E.O.default("")
|> ReasonReact.string}
</th>
<th className="px-4 py-2 border ">
</td>
<td className="px-4 py-2 border ">
{distPlus
|> Distributions.DistPlus.T.toScaledContinuous
|> E.O.fmap(
@ -184,23 +184,23 @@ let make = (~distPlus: DistTypes.distPlus) => {
|> E.O.fmap(E.Float.with2DigitsPrecision)
|> E.O.default("")
|> ReasonReact.string}
</th>
<th className="px-4 py-2 border ">
</td>
<td className="px-4 py-2 border ">
{distPlus
|> Distributions.DistPlus.T.toDiscrete
|> E.O.fmap(Distributions.Discrete.T.Integral.sum(~cache=None))
|> E.O.fmap(E.Float.with2DigitsPrecision)
|> E.O.default("")
|> ReasonReact.string}
</th>
<th className="px-4 py-2 border ">
</td>
<td className="px-4 py-2 border ">
{distPlus
|> Distributions.DistPlus.T.toScaledDiscrete
|> E.O.fmap(Distributions.Discrete.T.Integral.sum(~cache=None))
|> E.O.fmap(E.Float.with2DigitsPrecision)
|> E.O.default("")
|> ReasonReact.string}
</th>
</td>
</tr>
</tbody>
</table>

View File

@ -76,7 +76,7 @@ module Styles = {
selector(".x-axis", [fontSize(`px(9))]),
selector(".x-axis .domain", [display(`none)]),
selector(".x-axis .tick line", [display(`none)]),
selector(".x-axis .tick text", [color(`hex("bfcad4"))]),
selector(".x-axis .tick text", [color(`hex("7a8998"))]),
selector(".chart .area-path", [SVG.fill(chartColor)]),
selector(".lollipops-line", [SVG.stroke(`hex("bfcad4"))]),
selector(

View File

@ -3,7 +3,7 @@
<head>
<meta charset="UTF-8">
<title>Estiband</title>
<title>Highly Speculative Forecasts</title>
<link href="https://fonts.googleapis.com/css?family=Lato:300,400,700,900" rel="stylesheet">
<link href="./styles/index.css" rel="stylesheet">
<script src="./Index.re" defer></script>