mgh 0.1.12

A Collection of Moré-Garbow-Hilstrom https://dl.acm.org/doi/pdf/10.1145/355934.355936
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

pub fn extended_powell_singular(x: &[f64]) -> f64 {
    if x.len() & 3 != 0 {
        panic!("input dimension must be in multiple of 4");
    }
    let mut res = 0.;
    for i in 0..(x.len() / 4) {
        let x_1 = 4 * i;
        let x_2 = 4 * i + 1;
        let x_3 = 4 * i + 2;
        let x_4 = 4 * i + 3;

        let f1 = x[x_1] + 10. * x[x_2];
        let f2 = 5.0_f64.sqrt() * (x[x_3] - x[x_4]);
        let f3 = (x[x_2] - 2. * x[x_3]).powi(2);
        let f4 = 10.0_f64.sqrt() * (x[x_1] - x[x_4]).powi(2);
        res += f1.powi(2) + f2.powi(2) + f3.powi(2) + f4.powi(2);
    }
    res
}

pub fn init(n: usize) -> Vec<f64> {
    let mut vec = vec![0.; n];
    for (i, item) in vec.iter_mut().enumerate().take(n) {
        *item = if (i & 3) == 3 {
            1.
        } else if (i & 2) == 2 {
            0.
        } else if (i & 1) == 1 {
            -1.
        } else {
            3.
        }
    }
    vec
}

pub fn min(n: usize) -> Vec<f64> {
    vec![0.; n]
}

#[cfg(test)]
mod tests {
    use super::*;

    #[test]
    fn test_extended_powell_singular() {
        let n = 4;
        let x = init(n);
        let val = extended_powell_singular(&x);
        assert!(val.is_finite());
    }

    #[test]
    fn test_min() {
        let n = 4;
        let x = min(n);
        let val = extended_powell_singular(&x);
        assert_eq!(val, 0.);
    }
}