transposed.hpp

Go to the documentation of this file.

#ifndef IRLBA_TATAMI_TRANSPOSED_HPP
#define IRLBA_TATAMI_TRANSPOSED_HPP
 
#include "tatami/tatami.hpp"
#include "tatami_mult/tatami_mult.hpp"
#include "irlba/irlba.hpp"
#include "sanisizer/sanisizer.hpp"
 
#include <memory>
 
namespace irlba_tatami {
 
template<class EigenVector_, typename TValue_, typename TIndex_, class TMatrix_ = tatami::Matrix<TValue_, TIndex_> >
class TransposedWorkspace final : public irlba::Workspace<EigenVector_> {
public:
    TransposedWorkspace(const TMatrix_& mat, int num_threads) : my_mat(mat) {
        opt.num_threads = num_threads;
    }
 
private:
    const TMatrix_& my_mat;
    tatami_mult::Options opt;
 
public:
    void multiply(const EigenVector_& right, EigenVector_& out) {
        tatami_mult::multiply(right.data(), my_mat, out.data(), opt);
    }
};
 
template<class EigenVector_, typename TValue_, typename TIndex_, class TMatrix_ = tatami::Matrix<TValue_, TIndex_> >
class TransposedAdjointWorkspace final : public irlba::AdjointWorkspace<EigenVector_> {
public:
    TransposedAdjointWorkspace(const TMatrix_& mat, int num_threads) : my_mat(mat) {
        opt.num_threads = num_threads;
    }
 
private:
    const TMatrix_& my_mat;
    tatami_mult::Options opt;
 
public:
    void multiply(const EigenVector_& right, EigenVector_& out) {
        tatami_mult::multiply(my_mat, right.data(), out.data(), opt);
    }
};
 
template<class EigenMatrix_, typename TValue_, typename TIndex_, class TMatrix_ = tatami::Matrix<TValue_, TIndex_> >
class TransposedRealizeWorkspace final : public irlba::RealizeWorkspace<EigenMatrix_> {
public:
    TransposedRealizeWorkspace(const TMatrix_& mat, int num_threads) : my_mat(mat), my_num_threads(num_threads) {}
 
private:
    const TMatrix_& my_mat;
    int my_num_threads;
 
public:
    const EigenMatrix_& realize(EigenMatrix_& buffer) {
        // Copying into a transposed matrix, hence the switch of the ncol/nrow order.
        // Both values can be cast to Eigen::Index, as we checked this in the Transposed constructor.
        buffer.resize(my_mat.ncol(), my_mat.nrow());
 
        tatami::convert_to_dense(
            my_mat,
            !buffer.IsRowMajor,
            buffer.data(),
            [&]{
                tatami::ConvertToDenseOptions opt;
                opt.num_threads = my_num_threads;
                return opt;
            }()
        );
 
        return buffer;
    }
};
template<class EigenVector_, class EigenMatrix_, typename TValue_, typename TIndex_, class TMatrixPointer_ = std::shared_ptr<const tatami::Matrix<TValue_, TIndex_> > >
class Transposed final : public irlba::Matrix<EigenVector_, EigenMatrix_> {
public:
    Transposed(TMatrixPointer_ mat, int num_threads) : my_mat(std::move(mat)), my_num_threads(num_threads) {
        // Check that these casts are safe in rows(), cols() below.
        sanisizer::cast<Eigen::Index>(tatami::attest_for_Index(my_mat->nrow()));
        sanisizer::cast<Eigen::Index>(tatami::attest_for_Index(my_mat->ncol()));
    }
 
public:
    Eigen::Index rows() const {
        return my_mat->ncol(); // transposed, remember.
    }
 
    Eigen::Index cols() const {
        return my_mat->nrow();
    }
 
private:
    TMatrixPointer_ my_mat;
    int my_num_threads;
 
    typedef std::remove_cv_t<std::remove_reference_t<decltype(*my_mat)> > TMatrix;
 
public:
    std::unique_ptr<irlba::Workspace<EigenVector_> > new_workspace() const {
        return new_known_workspace();
    }
 
    std::unique_ptr<irlba::AdjointWorkspace<EigenVector_> > new_adjoint_workspace() const {
        return new_known_adjoint_workspace();
    }
 
    std::unique_ptr<irlba::RealizeWorkspace<EigenMatrix_> > new_realize_workspace() const {
        return new_known_realize_workspace();
    }
 
public:
    auto new_known_workspace() const {
        return std::make_unique<TransposedWorkspace<EigenVector_, TValue_, TIndex_, TMatrix> >(*my_mat, my_num_threads);
    }
 
    auto new_known_adjoint_workspace() const {
        return std::make_unique<TransposedAdjointWorkspace<EigenVector_, TValue_, TIndex_, TMatrix> >(*my_mat, my_num_threads);
    }
 
    auto new_known_realize_workspace() const {
        return std::make_unique<TransposedRealizeWorkspace<EigenMatrix_, TValue_, TIndex_, TMatrix> >(*my_mat, my_num_threads);
    }
};
 
}
 
#endif