opensrdk-linear-algebra 0.9.1

Standard linear algebra library using blas and lapack for OpenSRDK toolchain.
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
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

use crate::c64;
use crate::Matrix;
use blas::dgemm;
use blas::zgemm;

impl Matrix<f64> {
    pub fn dot(&self, rhs: &Self) -> Self {
        let lhs = self;
        if lhs.cols != rhs.rows {
            panic!("Dimension mismatch.")
        }

        let m = lhs.rows as i32;
        let k = lhs.cols as i32;
        let n = rhs.cols as i32;

        let mut new_matrix = Matrix::new(lhs.rows, rhs.cols);

        unsafe {
            dgemm(
                'N' as u8,
                'N' as u8,
                m,
                n,
                k,
                1.0,
                lhs.elems.as_slice(),
                m,
                rhs.elems.as_slice(),
                k,
                0.0,
                &mut new_matrix.elems,
                m,
            );
        }

        new_matrix
    }
}

impl Matrix<c64> {
    pub fn dot(&self, rhs: &Self) -> Self {
        let lhs = self;
        if lhs.cols != rhs.rows {
            panic!("Dimension mismatch.")
        }

        let m = lhs.rows as i32;
        let k = lhs.cols as i32;
        let n = rhs.cols as i32;

        let mut new_matrix = Matrix::<c64>::new(lhs.rows, rhs.cols);

        unsafe {
            zgemm(
                'N' as u8,
                'N' as u8,
                m,
                n,
                k,
                blas::c64::new(1.0, 0.0),
                &lhs.elems,
                m,
                &rhs.elems,
                k,
                blas::c64::new(0.0, 0.0),
                &mut new_matrix.elems,
                m,
            );
        }

        new_matrix
    }
}

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

    #[test]
    fn it_works() {
        let a = mat!(
            1.0, 2.0;
            3.0, 4.0
        )
        .dot(&mat!(
            5.0, 6.0;
            7.0, 8.0
        ));
        assert_eq!(a[(0, 0)], 19.0);
    }
}