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

Minor addition

Browse Source
This commit is contained in:
Ozzie Gooen 2020-02-10 23:45:54 +00:00
parent 641c3aadde
commit 71f3c6290d
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/App.re
View File

@ -2,5 +2,6 @@
let make = () => {
<div className="w-full max-w-screen-xl mx-auto px-6">
<FormBuilder.ModelForm model=EAFunds.Interface.model />
<FormBuilder.ModelForm model=GlobalCatastrophe.Interface.model />
</div>;
};

4
src/models/GlobalCatastrophe.re
View File

@ -1,7 +1,7 @@
module Model = {
let make = (dateTime: MomentRe.Moment.t, currentDateTime: MomentRe.Moment.t) => {
let yearDiff = MomentRe.diff(dateTime, currentDateTime, `days) /. 365.;
Prop.Value.Probability((100. -. yearDiff) /. 100.);
Prop.Value.Probability(0.001 *. yearDiff);
};
};
@ -19,7 +19,7 @@ module Interface = {
let model: Prop.Model.t =
Prop.{
name: "Global Catastrophe",
description: "The chances of catastrophe per year in the future.",
description: "The chances of having at least one catastrophe per year in the future, assuming no other catastrophe until then.",
version: "1.0.0",
author: "Ozzie Gooen",
inputTypes: [|