@explorable-viz/fluid 0.0.23 → 0.7.2

package/dist/fluid/fluid/example/text-viz/explainable-table.fld

@@ -0,0 +1,7 @@
+[
+    { scenario: "SSP1-1.9", bestEstNear: 1.5, lowNear: 1.2, highNear: 1.7, bestEstMid: 1.6, lowMid: 1.2, highMid: 2.0, bestEstLate: 1.4, lowLate: 1.0, highLate: 1.8},
+    { scenario: "SSP1-2.6", bestEstNear: 1.5, lowNear: 1.2, highNear: 1.8, bestEstMid: 1.7, lowMid: 1.3, highMid: 2.2, bestEstLate: 1.8, lowLate: 1.3, highLate: 2.4},
+    { scenario: "SSP2-4.5", bestEstNear: 1.5, lowNear: 1.2, highNear: 1.8, bestEstMid: 2.0, lowMid: 1.6, highMid: 2.5, bestEstLate: 2.7, lowLate: 2.1, highLate: 3.5},
+    { scenario: "SSP3-7.0", bestEstNear: 1.5, lowNear: 1.2, highNear: 1.8, bestEstMid: 2.1, lowMid: 1.7, highMid: 2.6, bestEstLate: 3.6, lowLate: 2.8, highLate: 4.6},
+    { scenario: "SSP5-8.5", bestEstNear: 1.6, lowNear: 1.3, highNear: 1.9, bestEstMid: 2.4, lowMid: 1.9, highMid: 3.0, bestEstLate: 4.4, lowLate: 3.3, highLate: 5.7}
+]

package/dist/fluid/fluid/example/text-viz/fake-probabilities.fld

@@ -0,0 +1,3 @@
+[
+    { model: "SSP1-1.9", probability: 0.92 }
+]

package/dist/fluid/fluid/example/text-viz/figure-spm-4.fld

@@ -0,0 +1,42 @@
+let getByX x table = fromSome (findWithKey "x" x table);
+
+let referToBar bar = "the bar representing scenario " ++ bar.x ++ " has a z value of " ++ (numToStr (head bar.bars).z);
+
+let stackedBarHeight stackedBar = sum [ bar.z | bar <- stackedBar.bars ];
+
+let getTotal (BarChart record) = fromSome (findWithKey "x" "Total" record.stackedBars);
+let getCO2 (BarChart record)= fromSome (findWithKey "x" "CO2" record.stackedBars);
+let getNonCO2 (BarChart record) = fromSome (findWithKey "x" "Non-CO2" record.stackedBars);
+
+
+let barHeight (BarChart bc) x =
+    let bar = fromSome (findWithKey "x" x bc.stackedBars)
+    in sum [ segment.z | segment <- bar.bars ];
+
+let explainBars bars x = 
+    if length bars == length (filter (fun bar -> bar.x == x) bars)
+    then "(°C; " ++ x ++ " bar)"
+    else error "absurd";
+
+let mkBarChart scenName table = 
+    BarChart {
+        caption: "Example bar chart for scenario " ++ scenName,
+        size: { width: 275, height: 185 },
+        stackedBars: map (fun record -> { x: record.type, bars: [ { y: "emissions", z: record.emissions } ]}) table
+    };
+
+let getHeight bar offset = (head bar.bars).z + offset;
+
+let ssp119 = mkBarChart "SSP1-1.9" ssp119Source;
+    ssp245 = mkBarChart "SSP2-4.5" ssp245Source;
+    total = map getTotal [ssp119, ssp245];
+    co2 = map getCO2 [ssp119, ssp245];
+    nonco2 = map getNonCO2 [ssp119, ssp245];
+    meanTotal = (sum (map stackedBarHeight total)) / (length total)
+in MultiView {
+    leftBarChart: ssp119,
+    rightBarChart: ssp245,
+    explanation:
+        LinkedText [ "Within each scenario bar plot, the bars represent: total warming ", explainBars total "Total",
+                     ", warming contributions from CO2 ", explainBars co2 "CO2", " and from non-CO2 GHG's ", explainBars nonco2 "Non-CO2"]
+}

package/dist/fluid/fluid/example/text-viz/left-barchart-table.fld

@@ -0,0 +1,5 @@
+[
+    { type: "Total", emissions: 1.35 }, 
+    { type: "CO2", emissions: 1.1 },
+    { type: "Non-CO2", emissions: 0.41 }
+]

package/dist/fluid/fluid/example/text-viz/likelihoods.fld

@@ -0,0 +1,9 @@
+[
+  { prob: 0.99, msg: "virtually certain" },
+  { prob: 0.9, msg: "very likely"},
+  { prob: 0.66, msg: "likely"},
+  { prob: 0.33, msg: "about as likely as not"},
+  { prob: 0.1, msg: "unlikely"},
+  { prob: 0.01, msg: "very unlikely"},
+  { prob: 0.0, msg: "exceptionally unlikely"}
+]

package/dist/fluid/fluid/example/text-viz/right-barchart-table.fld

@@ -0,0 +1,5 @@
+[
+    { type: "Total", emissions: 2.7 },
+    { type: "CO2", emissions: 2.1 },
+    { type: "Non-CO2", emissions: 0.6 }
+]

package/dist/fluid/fluid/example/text-viz/table-spm-1.fld

@@ -0,0 +1,30 @@
+let newDataTable offset = map (fun s -> { scenario: s.scenario, beNear: s.bestEstNear + offset, nearRange: (s.lowNear, s.highNear), beMid: s.bestEstMid, midRange: (s.lowMid, s.highMid), beLong: s.bestEstLate, longRange: (s.lowLate, s.highLate)}) tableData;
+
+let getByScenario data scenario = fromSome (findWithKey "scenario" scenario data);
+
+let probAsText = likelihoodMap likelihoods;
+
+let mean list = (sum list) / (length list); 
+
+let calcLikelihood (min, max) target = 
+    if max < target
+    then 0.05
+    else if target <= min
+    then 0.95
+    else (target - min)/(max - min);
+
+let realTable = newDataTable 0;
+    getByScenario' = getByScenario realTable;
+    ssp119 = getByScenario' "SSP1-1.9";
+    ssp245 = getByScenario' "SSP2-4.5"
+in MultiView {
+    explanation119:
+        LinkedText [ "Under the low GHG emissions scenario (SSP1-1.9), global warming of 2°C would ",
+                      probAsText (calcLikelihood ssp119.longRange 2.0), 
+                     " be exceeded at the end of the 21st century." ],
+    explanation245:
+        LinkedText [ "Under the intermediate GHG emissions scenario (SSP2-4.5), global warming of 2°C would ",
+                     probAsText (calcLikelihood ssp245.longRange 2.0),
+                     " be exceeded by the end of the 21st century. In the mid-term period (2041-2060)",
+                     " crossing the 2°C mark is ", probAsText (calcLikelihood ssp245.midRange 2.0), "to occur" ]
+    }

package/dist/{article → fluid}/fluid/lib/prelude.fld

@@ -77,16 +77,36 @@ let head [] = error "Can't take head of empty list";
 let tail [] = error "Can't take tail of empty list";
     tail (_ : xs) = xs;
 
--- Int -> List Int -> Bool
+-- Eq a => a -> List a -> Bool
 let elem x [] = False;
     elem x (x' : xs) = (x == x') `or` (elem x xs);
 
+-- (a -> Bool) -> List a -> Option a
+let find p [] = error "not found";
+    find p (x : xs) = if p x then Some x else find p xs;
+
+-- String -> String -> List Dict -> Option Dict
+let findWithKey fname fval table = find (fun y -> y.[fname] == fval) table;
+
+let fromSome option = match option as {
+    None -> error "Expected Some!";
+    Some x -> x
+};
+
 -- (a -> Bool) -> List a -> List a
 let filter p [] = [];
     filter p (x : xs) =
       let ys = filter p xs in
       if p x then x : ys else ys;
 
+-- (a -> Option b) -> List a -> List b
+let filterMap p [] = [];
+    filterMap p (x : xs) =
+      match p x as {
+         None -> filterMap f xs;
+         Some y -> y : filterMap f xs
+      };
+
 -- (a -> b -> a) -> a -> List b -> a
 let foldl op z [] = z;
     foldl op z (x : xs) = foldl op (op z x) xs;

package/dist/{article/fluid/lib/nombre.fld → fluid/fluid/lib/text-viz.fld}

@@ -1,3 +1,7 @@
+let likelihoodMap table prob = (fromSome (find (fun x -> x.prob <= prob) table)).msg;
+
+let mkPercent num = (numToStr (num * 100)) ++ "%";
+
 let leqP n m = 
     if n <= m
     then "less"