pub fn okamoto_bound(confidence: f64, precision: f64) -> f64 {
(2f64 / (1f64 - confidence)).ln() / (2f64 * precision.powf(2f64))
}
pub fn adaptive_bound(avg: f64, confidence: f64, precision: f64) -> f64 {
4f64 * okamoto_bound(confidence, precision)
* (0.25f64 - ((avg - 0.5f64).abs() - (2f64 * precision / 3f64)).powf(2f64))
}
pub fn derive_precision(s: u32, f: u32, confidence: f64) -> f64 {
let n = s + f;
let avg = s as f64 / n as f64;
let k = 2f64 * (2f64 / (1f64 - confidence)).ln();
let a = (n as f64) + (4f64 * k / 9f64);
let b = -4f64 * k * (avg - 0.5f64).abs() / 3f64;
let c = k * ((avg - 0.5f64).powf(2f64) - 0.25f64);
(-b + (b.powf(2f64) - 4f64 * a * c).sqrt()) / (2f64 * a)
}