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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

// Copyright 2018-2024 argmin developers
//
// Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
// http://apache.org/licenses/LICENSE-2.0> or the MIT license <LICENSE-MIT or
// http://opensource.org/licenses/MIT>, at your option. This file may not be
// copied, modified, or distributed except according to those terms.

use crate::{Allocator, ArgminEye};

use num_traits::{One, Zero};

use nalgebra::{base::dimension::Dim, DefaultAllocator, OMatrix, Scalar};

impl<N, R, C> ArgminEye for OMatrix<N, R, C>
where
    N: Scalar + Zero + One,
    R: Dim,
    C: Dim,
    DefaultAllocator: Allocator<N, R, C>,
{
    #[inline]
    fn eye_like(&self) -> OMatrix<N, R, C> {
        assert!(self.is_square());
        Self::identity_generic(R::from_usize(self.nrows()), C::from_usize(self.ncols()))
    }

    #[inline]
    fn eye(n: usize) -> OMatrix<N, R, C> {
        Self::identity_generic(R::from_usize(n), C::from_usize(n))
    }
}

#[cfg(test)]
mod tests {
    use super::*;
    use approx::assert_relative_eq;
    use nalgebra::{Matrix2x3, Matrix3};
    use paste::item;

    macro_rules! make_test {
        ($t:ty) => {
            item! {
                #[test]
                fn [<test_eye_ $t>]() {
                    let e: Matrix3<$t> = <Matrix3<$t> as ArgminEye>::eye(3);
                    let res = Matrix3::new(
                        1 as $t, 0 as $t, 0 as $t,
                        0 as $t, 1 as $t, 0 as $t,
                        0 as $t, 0 as $t, 1 as $t
                    );
                    for i in 0..3 {
                        for j in 0..3 {
                            assert_relative_eq!(res[(i, j)] as f64, e[(i, j)] as f64, epsilon = f64::EPSILON);
                        }
                    }
                }
            }

            item! {
                #[test]
                fn [<test_eye_like_ $t>]() {
                    let a = Matrix3::new(
                        0 as $t, 2 as $t, 6 as $t,
                        3 as $t, 2 as $t, 7 as $t,
                        9 as $t, 8 as $t, 1 as $t
                    );
                    let e: Matrix3<$t> = a.eye_like();
                    let res = Matrix3::new(
                        1 as $t, 0 as $t, 0 as $t,
                        0 as $t, 1 as $t, 0 as $t,
                        0 as $t, 0 as $t, 1 as $t
                    );
                    for i in 0..3 {
                        for j in 0..3 {
                            assert_relative_eq!(res[(i, j)] as f64, e[(i, j)] as f64, epsilon = f64::EPSILON);
                        }
                    }
                }
            }

            item! {
                #[test]
                #[should_panic]
                #[allow(unused)]
                fn [<test_eye_like_panic_ $t>]() {
                    let a = Matrix2x3::new(
                        0 as $t, 2 as $t, 6 as $t,
                        3 as $t, 2 as $t, 7 as $t,
                    );
                    let e: Matrix2x3<$t> = a.eye_like();
                }
            }
        };
    }

    make_test!(i8);
    make_test!(u8);
    make_test!(i16);
    make_test!(u16);
    make_test!(i32);
    make_test!(u32);
    make_test!(i64);
    make_test!(u64);
    make_test!(f32);
    make_test!(f64);
}