tmfie.hpp

Go to the documentation of this file.

// OpenBEM - Copyright (C) 2026 Shashwat Sharma
 
// This file is part of OpenBEM.
 
// OpenBEM is free software: you can redistribute it and/or modify it under the terms of the
// GNU General Public License as published by the Free Software Foundation, either version 3
// of the License, or (at your option) any later version.
 
// You should have received a copy of the GNU General Public License along with OpenBEM.
// If not, see <https://www.gnu.org/licenses/>.
 
 
#ifndef BEM_RWG_INTEQ_TMFIE_H
#define BEM_RWG_INTEQ_TMFIE_H
 
#include "types.hpp"
#include "constants.hpp"
#include "materials.hpp"
 
#include "geometry/point_cloud.hpp"
 
#include "matrix/base.hpp"
#include "matrix/eigen_dense.hpp"
 
#include "rwg/integral_equations/base.hpp"
 
#include "rwg/operators/single_layer.hpp"
#include "rwg/operators/double_layer.hpp"
#include "rwg/operators/gram.hpp"
 
#include "rwg/projectors/single_layer.hpp"
#include "rwg/projectors/double_layer.hpp"
 
#include "rwg/excitations/base.hpp"
 
#include "rwg/assemblers/operator_matrix.hpp"
#include "rwg/assemblers/excitation_matrix.hpp"
#include "rwg/assemblers/projector_matrix.hpp"
 
 
namespace bem::rwg
{
 
template <typename MatrixType = EigenDenseMatrix<Complex>>
class Tmfie: public IntegralEquationBase<MatrixType>
{
 
    using base = IntegralEquationBase<MatrixType>;
    using base::base;
 
public:
 
    void set_operators(
        const VectorHypersingularOp<>& op_T,
        const VectorDoubleLayerPvOp<>& op_K
        )
    {
        op_T_ = op_T;
        op_K_ = op_K;
        return;
    };
 
 
    MatrixType j_matrix(
        const Float f,
        const Material& material
        )
    {
        Complex k = material.k(f);
 
        MatrixType K;
        assembler_.assemble(K, op_K_, k);
 
        K.add_ax(id_matrix(), half);
 
        return K;
    };
 
 
    MatrixType m_matrix(
        const Float f,
        const Material& material
        )
    {
        Complex k = material.k(f);
        Complex eps = material.eps();
        Complex sigma = material.sigma();
 
        MatrixType T;
        assembler_.assemble(T, op_T_, k);
 
        T.scale(-(J * two_pi * f * eps + sigma));
 
        return T;
    };
 
 
    MatrixType id_matrix()
    {
        RotRwgRwgOp<> op_Ir;
        MatrixType Ir;
        assembler_.assemble(Ir, op_Ir, 0);
        if (base::flip_normals_)
            Ir.scale(-one);
        return Ir;
    };
 
 
    MatrixType exc_matrix(
        const Float f,
        const Material& material,
        ExcitationBase<3>& exc
        )
    {
        std::vector<Index> obs_elems_vec (base::elem_pairs_.cols());
        EigRowVec<Index>::Map(&obs_elems_vec[0], base::elem_pairs_.row(0).size()) = base::elem_pairs_.row(0);
 
        std::sort(obs_elems_vec.begin(), obs_elems_vec.end());
        obs_elems_vec.erase(std::unique(obs_elems_vec.begin(), obs_elems_vec.end()), obs_elems_vec.end());
 
        EigRowVec<Index> obs_elems = EigRowVec<Index>::Map(&obs_elems_vec[0], obs_elems_vec.size());
        EdgeExcitationAssembler exc_assembler (base::obs_mesh_, obs_elems);
 
        Complex k = material.k(f);
        MatrixType inc (base::obs_mesh_.num_edges(), exc.num_excitations());
        exc_assembler.assemble(inc, exc, k);
 
        return inc;
    };
 
 
    MatrixType j_projector(
        const Float f,
        const Material& material,
        const PointCloud<3>& points
        )
    {
        Complex k = material.k(f);
 
        EdgeProjectorAssembler<3> proj_assembler (points, base::src_mesh_);
 
        MatrixType K;
        proj_assembler.assemble(K, proj_K_, k);
 
        return K;
    };
 
 
    MatrixType m_projector(
        const Float f,
        const Material& material,
        const PointCloud<3>& points
        )
    {
        Complex k = material.k(f);
        Complex eps = material.eps();
        Complex sigma = material.sigma();
 
        EdgeProjectorAssembler<3> proj_assembler (points, base::src_mesh_);
 
        MatrixType T;
        proj_assembler.assemble(T, proj_T_, k);
 
        T.scale(-(J * two_pi * f * eps + sigma));
 
        return T;
    };
 
 
protected:
 
    VectorHypersingularOp<> op_T_;
    VectorDoubleLayerPvOp<> op_K_;
 
    VectorHypersingularProj<> proj_T_;
    VectorDoubleLayerProj<> proj_K_;
 
    EdgeOperatorAssembler assembler_ = EdgeOperatorAssembler(base::obs_mesh_, base::src_mesh_, base::elem_pairs_);
 
};
 
}
 
#endif