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

tweak: start building new function from scratch

Browse Source
This commit is contained in:
NunoSempere 2022-05-06 10:04:41 -04:00
parent 87d6f8d4f6
commit b393af8762
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/squiggle-lang/src/rescript/Utility/XYShape.res
View File

@ -455,6 +455,27 @@ module PointwiseCombination = {
T.filterOkYs(newXs, newYs)->Ok T.filterOkYs(newXs, newYs)->Ok
} }
let iterpolator2: (xyShape, float) => option<float> = (dist: xyShape, x: float) => {
let l = E.A.length(dist.xs)
let firstPoint = dist.xs[0]
let lastPoint = dist.xs[l - 1]
switch (firstPoint < x, lastPoint > x) {
| (false, false) => Some(0.0)
| (false, true) => Some(0.0)
| (true, false) => Some(0.0)
| (true, true) => None
}
}
let combineAlongSupportOfSecondArgument2: (
(float, float) => result<float, Operation.Error.t>,
interpolator,
T.t,
T.t,
) => result<T.t, Operation.Error.t> = (fn, interpolator, t1, t2) => {
T.filterOkYs([], [])->Ok
}
let addCombine = (interpolator: interpolator, t1: T.t, t2: T.t): T.t => let addCombine = (interpolator: interpolator, t1: T.t, t2: T.t): T.t =>
combine((a, b) => Ok(a +. b), interpolator, t1, t2)->E.R.toExn( combine((a, b) => Ok(a +. b), interpolator, t1, t2)->E.R.toExn(
"Add operation should never fail", "Add operation should never fail",