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 = () => { let make = () => {
<div className="w-full max-w-screen-xl mx-auto px-6"> <div className="w-full max-w-screen-xl mx-auto px-6">
<FormBuilder.ModelForm model=EAFunds.Interface.model /> <FormBuilder.ModelForm model=EAFunds.Interface.model />
<FormBuilder.ModelForm model=GlobalCatastrophe.Interface.model />
</div>; </div>;
}; };

4
src/models/GlobalCatastrophe.re
View File

@ -1,7 +1,7 @@
module Model = { module Model = {
let make = (dateTime: MomentRe.Moment.t, currentDateTime: MomentRe.Moment.t) => { let make = (dateTime: MomentRe.Moment.t, currentDateTime: MomentRe.Moment.t) => {
let yearDiff = MomentRe.diff(dateTime, currentDateTime, `days) /. 365.; 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 = let model: Prop.Model.t =
Prop.{ Prop.{
name: "Global Catastrophe", 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", version: "1.0.0",
author: "Ozzie Gooen", author: "Ozzie Gooen",
inputTypes: [| inputTypes: [|