行列式
(library/matrix/determinant.hpp)

View this file on GitHub
Last update: 2025-03-03 00:33:48+09:00
Include: #include "library/matrix/determinant.hpp"

行列式を求める。

掃き出し法を用いて上三角行列に変形し、対角成分の積をとることで行列式を求める。以下の性質を利用。

ある行に、他の行の実数倍を加えても、行列式の値は不変。
ある行と他の行を swap すると、行列式は -1 倍。

計算量は $O(n^3)$。

Depends on

Verified with

Code

#pragma once

#include "../_internal/modint-base.hpp"
#include "../data-structure/matrix.hpp"

namespace asalib {
  namespace matrix {
    template<_internal::numeric_like T>
    constexpr T Matrix<T>::determinant() const { return determinant<T>(); }

    template<_internal::numeric_like T>
    template<_internal::numeric_like U>
    constexpr U Matrix<T>::determinant() const {
      assert(_n_row == _n_col);
      valarray<U> t(_data);
      U res = 1;
      for (size_t i = 0; i < _n_row; ++i) {
        if (t[i * _n_col + i] == 0) {
          // ピボットが 0 のとき、他の行と交換
          for (size_t j = i + 1; j < _n_row; ++j) {
            if (t[j * _n_col + i] != 0) {
              for (size_t k = 0; k < _n_col; ++k) swap(t[j * _n_col + k], t[i * _n_col + k]);
              res *= -1;
              break;
            }
          }
        }
        if (t[i * _n_col + i] == 0) return 0;
        // 掃き出し
        for (size_t j = i + 1; j < _n_row; ++j) {
          if (t[j * _n_col + i] == 0) continue;
          try {
            U r = t[j * _n_col + i] / t[i * _n_col + i];
            t[slice(j * _n_col + i, _n_col - i, 1)] -= r * valarray<U>(t[slice(i * _n_col + i, _n_col - i, 1)]);
          }
          catch (...) {
            // t[i][i] != 0 なのでゼロ割りは発生しない -> modint で逆元がないときにこっちに来る
            assert(_internal::is_modint<U>);
            // 以下の方法は modint 以外でも使える (はず) だが、 q 計算で .val してるので try-catch にしてやる
            // 拡張ユークリッドして、 A * (t[i][i], t[j][i]) = (gcd, 0) となるような 2x2 の A を作ってやる
            // | a  b | | tii | = | x |
            // | c  d | | tji |   | y |
            // となるように保持する
            // 初期値は a = 1, b = 0, x = tii; c = 0, d = 1, y = tji;
            U a = 1, b = 0, c = 0, d = 1, x = t[i * _n_col + i], y = t[j * _n_col + i];
            bool neg = false;
            while (y != 0) {
              // ただの数だと思って計算するといいらしい？
              U q = x.val() / y.val();
              U z = x - q * y;
              U e = a - q * c, f = b - q * d;
              x = y, y = z, a = c, b = d, c = e, d = f;
              neg = !neg;
            }
            if (neg) c = -c, d = -d;
            assert(a * t[i * _n_col + i] + b * t[j * _n_col + i] == x);
            assert(c * t[i * _n_col + i] + d * t[j * _n_col + i] == 0);
            valarray<U> tmpi = t[slice(i * _n_col + i, _n_col - i, 1)];
            valarray<U> tmpj = t[slice(j * _n_col + i, _n_col - i, 1)];
            t[slice(i * _n_col + i, _n_col - i, 1)] = a * tmpi + b * tmpj;  // なんでこっちも更新するんだろ、よくわからん
            t[slice(j * _n_col + i, _n_col - i, 1)] = c * tmpi + d * tmpj;
            assert(t[i * _n_col + i] == x);
            assert(t[j * _n_col + i] == 0);
          }
        }
      }
      for (size_t i = 0; i < _n_row; ++i) res *= t[i * _n_col + i];
      return res;
    }
  }  // namespace matrix
}  // namespace asalib

#line 2 "library/matrix/determinant.hpp"

#line 2 "library/_internal/modint-base.hpp"

#include <concepts>
#include <type_traits>
using namespace std;

namespace asalib {
  namespace _internal {
    class modint_base {};

    template<typename T>
    concept is_modint = is_base_of_v<modint_base, T>;
  }  // namespace _internal
}  // namespace asalib
#line 2 "library/data-structure/matrix.hpp"

#include <valarray>
using namespace std;

#line 2 "library/_internal/types.hpp"

#line 5 "library/_internal/types.hpp"
using namespace std;

#line 8 "library/_internal/types.hpp"

namespace asalib {
  namespace _internal {
    // ---------- concept definition ---------- //
    template<class T>
    concept integral_like = integral<T> || is_modint<T>;

    template<class T>
    concept floating_like = floating_point<T>;

    template<class T>
    concept numeric_like = integral_like<T> || floating_like<T>;

    // ---------- function definition ---------- //
    template<class T>
    T plus(T a, T b) { return a + b; }

    template<class T>
    T minus(T a, T b) { return a - b; }

    // ---------- constant definition ---------- //
    template<class T>
    T zero() { return 0; }
  }  // namespace _internal
}  // namespace asalib
#line 7 "library/data-structure/matrix.hpp"

namespace asalib {
  namespace matrix {
    template<_internal::numeric_like T>
    class Matrix {
      public:
      constexpr Matrix(): _n_row(0), _n_col(0) {};
      constexpr Matrix(size_t n_row, size_t n_col): _n_row(n_row), _n_col(n_col), _data(n_row * n_col) {};
      constexpr Matrix(size_t n_row, size_t n_col, T x): _n_row(n_row), _n_col(n_col), _data(n_row * n_col, x) {};

      // constexpr T& operator[](size_t i, size_t j) { return _data[i * _n_col + j]; }
      // constexpr const T& operator[](size_t i, size_t j) const { return _data[i * _n_col + j]; }
      // 使えないっぽいので at で代用
      constexpr inline T& at(size_t i, size_t j) { return _data[i * _n_col + j]; }
      constexpr T at(size_t i, size_t j) const { return _data[i * _n_col + j]; }

      constexpr valarray<T> row(size_t i) const { return valarray<T>(_data[slice(i * _n_col, _n_col, 1)]); }
      constexpr valarray<T> col(size_t j) const { return valarray<T>(_data[slice(j, _n_row, _n_col)]); }

      constexpr Matrix operator+=(const T& x) {
        _data += x;
        return *this;
      }
      constexpr Matrix operator-=(const T& x) {
        _data -= x;
        return *this;
      }
      constexpr Matrix operator*=(const T& x) {
        _data *= x;
        return *this;
      }
      constexpr Matrix operator/=(const T& x) {
        _data /= x;
        return *this;
      }
      constexpr Matrix operator%=(const T& x) {
        _data %= x;
        return *this;
      }
      constexpr Matrix operator+(const T& x) const { return Matrix(*this) += x; }
      constexpr Matrix operator-(const T& x) const { return Matrix(*this) -= x; }
      constexpr Matrix operator*(const T& x) const { return Matrix(*this) *= x; }
      constexpr Matrix operator/(const T& x) const { return Matrix(*this) /= x; }
      constexpr Matrix operator%(const T& x) const { return Matrix(*this) %= x; }

      constexpr Matrix operator+=(const Matrix& x) {
        assert(_n_row == x._n_row);
        assert(_n_col == x._n_col);
        _data += x._data;
        return *this;
      }
      constexpr Matrix operator-=(const Matrix& x) {
        assert(_n_row == x._n_row);
        assert(_n_col == x._n_col);
        _data -= x._data;
        return *this;
      }
      constexpr Matrix operator*=(const Matrix& x) {
        assert(_n_col == x._n_row);
        Matrix res(_n_row, x._n_col);
        for (size_t i = 0; i < _n_row; ++i) {
          for (size_t j = 0; j < x._n_col; ++j) {
            res.at(i, j) = (this->_data[slice(i * _n_col, _n_col, 1)] * x._data[slice(j, x._n_row, x._n_col)]).sum();
          }
        }
        return *this = res;
      }
      constexpr Matrix operator+(const Matrix& x) const { return Matrix(*this) += x; }
      constexpr Matrix operator-(const Matrix& x) const { return Matrix(*this) -= x; }
      constexpr Matrix operator*(const Matrix& x) const { return Matrix(*this) *= x; }

      constexpr bool operator==(const Matrix& x) const { return _n_row == x._n_row && _n_col == x._n_col && _data == x._data; }
      constexpr bool operator!=(const Matrix& x) const { return !(*this == x); }
      constexpr bool operator<(const Matrix& x) const { return _data < x._data; }

      constexpr const Matrix transpose() const {
        Matrix res(_n_col, _n_row);
        for (size_t i = 0; i < _n_row; ++i) res._data[slice(i, _n_col, _n_row)] = _data[slice(i * _n_col, _n_col, 1)];
        return res;
      }

      template<integral U>
      constexpr Matrix pow(U x) {
        assert(_n_row == _n_col);
        Matrix res = I(_n_row);
        Matrix a(*this);
        while (x) {
          if (x & 1) res *= a;
          a *= a;
          x >>= 1;
        }
        return res;
      }

      constexpr static Matrix I(size_t n) {
        Matrix res(n, n);
        res._data[slice(0, n, n + 1)] = 1;
        return res;
      }

      constexpr size_t n_row() const { return _n_row; }
      constexpr size_t n_col() const { return _n_col; }

      private:
      size_t _n_row, _n_col;
      valarray<T> _data;

      public:
      // ---------- prototype ---------- //
      constexpr T determinant() const;
      template<_internal::numeric_like U>
      constexpr U determinant() const;
    };
  }  // namespace matrix
}  // namespace asalib
#line 5 "library/matrix/determinant.hpp"

namespace asalib {
  namespace matrix {
    template<_internal::numeric_like T>
    constexpr T Matrix<T>::determinant() const { return determinant<T>(); }

    template<_internal::numeric_like T>
    template<_internal::numeric_like U>
    constexpr U Matrix<T>::determinant() const {
      assert(_n_row == _n_col);
      valarray<U> t(_data);
      U res = 1;
      for (size_t i = 0; i < _n_row; ++i) {
        if (t[i * _n_col + i] == 0) {
          // ピボットが 0 のとき、他の行と交換
          for (size_t j = i + 1; j < _n_row; ++j) {
            if (t[j * _n_col + i] != 0) {
              for (size_t k = 0; k < _n_col; ++k) swap(t[j * _n_col + k], t[i * _n_col + k]);
              res *= -1;
              break;
            }
          }
        }
        if (t[i * _n_col + i] == 0) return 0;
        // 掃き出し
        for (size_t j = i + 1; j < _n_row; ++j) {
          if (t[j * _n_col + i] == 0) continue;
          try {
            U r = t[j * _n_col + i] / t[i * _n_col + i];
            t[slice(j * _n_col + i, _n_col - i, 1)] -= r * valarray<U>(t[slice(i * _n_col + i, _n_col - i, 1)]);
          }
          catch (...) {
            // t[i][i] != 0 なのでゼロ割りは発生しない -> modint で逆元がないときにこっちに来る
            assert(_internal::is_modint<U>);
            // 以下の方法は modint 以外でも使える (はず) だが、 q 計算で .val してるので try-catch にしてやる
            // 拡張ユークリッドして、 A * (t[i][i], t[j][i]) = (gcd, 0) となるような 2x2 の A を作ってやる
            // | a  b | | tii | = | x |
            // | c  d | | tji |   | y |
            // となるように保持する
            // 初期値は a = 1, b = 0, x = tii; c = 0, d = 1, y = tji;
            U a = 1, b = 0, c = 0, d = 1, x = t[i * _n_col + i], y = t[j * _n_col + i];
            bool neg = false;
            while (y != 0) {
              // ただの数だと思って計算するといいらしい？
              U q = x.val() / y.val();
              U z = x - q * y;
              U e = a - q * c, f = b - q * d;
              x = y, y = z, a = c, b = d, c = e, d = f;
              neg = !neg;
            }
            if (neg) c = -c, d = -d;
            assert(a * t[i * _n_col + i] + b * t[j * _n_col + i] == x);
            assert(c * t[i * _n_col + i] + d * t[j * _n_col + i] == 0);
            valarray<U> tmpi = t[slice(i * _n_col + i, _n_col - i, 1)];
            valarray<U> tmpj = t[slice(j * _n_col + i, _n_col - i, 1)];
            t[slice(i * _n_col + i, _n_col - i, 1)] = a * tmpi + b * tmpj;  // なんでこっちも更新するんだろ、よくわからん
            t[slice(j * _n_col + i, _n_col - i, 1)] = c * tmpi + d * tmpj;
            assert(t[i * _n_col + i] == x);
            assert(t[j * _n_col + i] == 0);
          }
        }
      }
      for (size_t i = 0; i < _n_row; ++i) res *= t[i * _n_col + i];
      return res;
    }
  }  // namespace matrix
}  // namespace asalib

行列式 (library/matrix/determinant.hpp)

Depends on

Verified with

Code

行列式
(library/matrix/determinant.hpp)