Minor tweaks

src/components/DistBuilder.re

@@ -171,7 +171,7 @@ let make = () => {
       ~schema,
       ~onSubmit=({state}) => {None},
       ~initialState={
-        guesstimatorString: "mm(normal(10, 2), uniform(16, 20), normal(15,1))",
+        guesstimatorString: "mm(normal(-10, 2), uniform(18, 25), lognormal({mean: 10, stdev: 8}), triangular(31,40,50))",
         domainType: "Complete",
         xPoint: "50.0",
         xPoint2: "60.0",
@@ -313,7 +313,7 @@ let make = () => {
       <Form.Provider value=reform>
         <Antd.Form onSubmit>
           <Row _type=`flex className=Styles.rows>
-            <Col span=12>
+            <Col span=24>
               <FieldString
                 field=FormConfig.GuesstimatorString
                 label="Guesstimator String"

src/components/charts/DistPlusPlot.re

@@ -1,4 +1,5 @@
 open DistPlusPlotReducer;
+let plotBlue = `hex("1860ad");
 
 let showAsForm = (distPlus: DistTypes.distPlus) => {
   <div>
@@ -264,7 +265,7 @@ module DistPlusChart = {
       yMaxContinuousDomainFactor
       ?discrete
       ?continuous
-      color={`hex("1894d6")}
+      color=plotBlue
       onHover
       timeScale
     />;
@@ -280,9 +281,13 @@ module IntegralChart = {
       integral
       |> Distributions.Continuous.toLinear
       |> E.O.fmap(Distributions.Continuous.getShape);
-    let range = T.xTotalRange(distPlus);
+    let minX = {
-    let minX = T.minX(distPlus) -. range *. 0.001;
+      distPlus |> Distributions.DistPlus.T.Integral.yToX(~cache=None, 0.00001);
-    let maxX = integral |> Distributions.Continuous.T.maxX;
+    };
+
+    let maxX = {
+      distPlus |> Distributions.DistPlus.T.Integral.yToX(~cache=None, 0.99);
+    };
     let timeScale = distPlus.unit |> DistTypes.DistributionUnit.toJson;
     <DistributionPlot
       xScale={config.xLog ? "log" : "linear"}
@@ -291,7 +296,7 @@ module IntegralChart = {
       minX
       maxX
       ?continuous
-      color={`hex("1894d6")}
+      color=plotBlue
       timeScale
       onHover
     />;

src/components/charts/DistPlusPlotReducer.re

@@ -107,5 +107,6 @@ let init = {
   showPercentiles: true,
   distributions: [
     {yLog: false, xLog: false, isCumulative: false, height: 4},
+    {yLog: false, xLog: false, isCumulative: true, height: 1},
   ],
 };