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
use ndarray::*;
use super::convert::*;
use super::error::*;
use super::layout::*;
use super::types::*;
#[derive(Clone, Copy, Eq, PartialEq)]
#[repr(u8)]
pub enum UVTFlag {
Full = b'A',
Some = b'S',
None = b'N',
}
pub trait SVDDC {
type U;
type VT;
type Sigma;
fn svddc(&self, uvt_flag: UVTFlag) -> Result<(Option<Self::U>, Self::Sigma, Option<Self::VT>)>;
}
pub trait SVDDCInto {
type U;
type VT;
type Sigma;
fn svddc_into(self, uvt_flag: UVTFlag) -> Result<(Option<Self::U>, Self::Sigma, Option<Self::VT>)>;
}
pub trait SVDDCInplace {
type U;
type VT;
type Sigma;
fn svddc_inplace(&mut self, uvt_flag: UVTFlag) -> Result<(Option<Self::U>, Self::Sigma, Option<Self::VT>)>;
}
impl<A, S> SVDDC for ArrayBase<S, Ix2>
where
A: Scalar + Lapack,
S: DataMut<Elem = A>,
{
type U = Array2<A>;
type VT = Array2<A>;
type Sigma = Array1<A::Real>;
fn svddc(&self, uvt_flag: UVTFlag) -> Result<(Option<Self::U>, Self::Sigma, Option<Self::VT>)> {
self.to_owned().svddc_into(uvt_flag)
}
}
impl<A, S> SVDDCInto for ArrayBase<S, Ix2>
where
A: Scalar + Lapack,
S: DataMut<Elem = A>,
{
type U = Array2<A>;
type VT = Array2<A>;
type Sigma = Array1<A::Real>;
fn svddc_into(mut self, uvt_flag: UVTFlag) -> Result<(Option<Self::U>, Self::Sigma, Option<Self::VT>)> {
self.svddc_inplace(uvt_flag)
}
}
impl<A, S> SVDDCInplace for ArrayBase<S, Ix2>
where
A: Scalar + Lapack,
S: DataMut<Elem = A>,
{
type U = Array2<A>;
type VT = Array2<A>;
type Sigma = Array1<A::Real>;
fn svddc_inplace(&mut self, uvt_flag: UVTFlag) -> Result<(Option<Self::U>, Self::Sigma, Option<Self::VT>)> {
let l = self.layout()?;
let svd_res = unsafe { A::svddc(l, uvt_flag, self.as_allocated_mut()?)? };
let (m, n) = l.size();
let k = m.min(n);
let (ldu, tdu, ldvt, tdvt) = match uvt_flag {
UVTFlag::Full => (m, m, n, n),
UVTFlag::Some => (m, k, k, n),
UVTFlag::None => (1, 1, 1, 1),
};
let u = svd_res
.u
.map(|u| into_matrix(l.resized(ldu, tdu), u).expect("Size of U mismatches"));
let vt = svd_res
.vt
.map(|vt| into_matrix(l.resized(ldvt, tdvt), vt).expect("Size of VT mismatches"));
let s = ArrayBase::from(svd_res.s);
Ok((u, s, vt))
}
}