personal/time-to-botec
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tweak: delete higher level match in mixture function

Browse Source
This commit is contained in:
NunoSempere 2023-10-15 00:01:05 +01:00
parent ce119253b7
commit 4983699308
5 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
ocaml/out/samples
View File

Binary file not shown.

BIN
ocaml/out/samples.cmi
View File

Binary file not shown.

BIN
ocaml/out/samples.cmx
View File

Binary file not shown.

BIN
ocaml/out/samples.o
View File

Binary file not shown.

9
ocaml/samples.ml
View File

@ -41,18 +41,17 @@ let sampleTo low high =
let logstd = (loghigh -. loglow) /. (2.0 -. normal_95_ci_length ) in
sampleLognormal logmean logstd
let (|>) x f = f x
let mixture (samplers: (unit -> float) array) (weights: float array): float option =
match (Array.length samplers == Array.length weights) with
| false -> None
| true ->
if (Array.length samplers == Array.length weights)
then None
else
let normalized_weights = normalizeXs weights in
let cumsummed_normalized_weights = cumsumXs normalized_weights in
let p = sampleZeroToOne () in
let chosenSamplerIndex = findIndex cumsummed_normalized_weights (fun x -> x < p) in
let sample = match chosenSamplerIndex with
| None -> None
| Some(i) -> Some(samplers.(i) ())
| Some(i) -> Some (samplers.(i) ())
in
sample