/usr/include/armadillo_bits/op_toeplitz_meat.hpp is in libarmadillo-dev 1:4.200.0+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | // Copyright (C) 2013 Conrad Sanderson
// Copyright (C) 2013 NICTA (www.nicta.com.au)
//
// This Source Code Form is subject to the terms of the Mozilla Public
// License, v. 2.0. If a copy of the MPL was not distributed with this
// file, You can obtain one at http://mozilla.org/MPL/2.0/.
//! \addtogroup op_toeplitz
//! @{
template<typename T1>
inline
void
op_toeplitz::apply(Mat<typename T1::elem_type>& out, const Op<T1,op_toeplitz>& in)
{
arma_extra_debug_sigprint();
typedef typename T1::elem_type eT;
const unwrap_check<T1> tmp(in.m, out);
const Mat<eT>& X = tmp.M;
arma_debug_check( ((X.is_vec() == false) && (X.is_empty() == false)), "toeplitz(): given object is not a vector" );
const uword N = X.n_elem;
const eT* X_mem = X.memptr();
out.set_size(N,N);
for(uword col=0; col < N; ++col)
{
eT* col_mem = out.colptr(col);
uword i;
i = col;
for(uword row=0; row < col; ++row, --i) { col_mem[row] = X_mem[i]; }
i = 0;
for(uword row=col; row < N; ++row, ++i) { col_mem[row] = X_mem[i]; }
}
}
template<typename T1>
inline
void
op_toeplitz_c::apply(Mat<typename T1::elem_type>& out, const Op<T1,op_toeplitz_c>& in)
{
arma_extra_debug_sigprint();
typedef typename T1::elem_type eT;
const unwrap_check<T1> tmp(in.m, out);
const Mat<eT>& X = tmp.M;
arma_debug_check( ((X.is_vec() == false) && (X.is_empty() == false)), "circ_toeplitz(): given object is not a vector" );
const uword N = X.n_elem;
const eT* X_mem = X.memptr();
out.set_size(N,N);
if(X.is_rowvec() == true)
{
for(uword row=0; row < N; ++row)
{
uword i;
i = row;
for(uword col=0; col < row; ++col, --i) { out.at(row,col) = X_mem[N-i]; }
i = 0;
for(uword col=row; col < N; ++col, ++i) { out.at(row,col) = X_mem[i]; }
}
}
else
{
for(uword col=0; col < N; ++col)
{
eT* col_mem = out.colptr(col);
uword i;
i = col;
for(uword row=0; row < col; ++row, --i) { col_mem[row] = X_mem[N-i]; }
i = 0;
for(uword row=col; row < N; ++row, ++i) { col_mem[row] = X_mem[i]; }
}
}
}
//! @}
|