Homec4science
Diffusion tamaas (ci-fix-static-checks) Browse

tamaas/src/model/kelvin.cpp
c74466647365ci-fix-static-checks

Last Change
Raw File

kelvin.cpp
View Options

/**
* @file
*
* @author Lucas Frérot <lucas.frerot@epfl.ch>
*
* @section LICENSE
*
* Copyright (©) 2017 EPFL (Ecole Polytechnique Fédérale de
* Lausanne) Laboratory (LSMS - Laboratoire de Simulation en Mécanique des
* Solides)
*
* Tamaas is free software: you can redistribute it and/or modify it under the
* terms of the GNU Lesser General Public License as published by the Free
* Software Foundation, either version 3 of the License, or (at your option) any
* later version.
*
* Tamaas is distributed in the hope that it will be useful, but WITHOUT ANY
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
* A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more
* details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with Tamaas. If not, see <http://www.gnu.org/licenses/>.
*
*/
/* -------------------------------------------------------------------------- */
#include "kelvin.hh"
#include "elasto_plastic_model.hh"
/* -------------------------------------------------------------------------- */
__BEGIN_TAMAAS__
/* -------------------------------------------------------------------------- */
/* -------------------------------------------------------------------------- */
/* Constructors */
/* -------------------------------------------------------------------------- */
template <>
Kelvin<model_type::volume_2d, 0>::Kelvin(Model* model)
: VolumePotential(model),
accumulator(
this->source_buffer,
GridHermitian<Real, trait::boundary_dimension>::hermitianDimensions(
model->getBoundaryDiscretization()),
this->wavevectors) {
initialize(trait::components, trait::components);
}
template <>
Kelvin<model_type::volume_2d, 1>::Kelvin(Model* model)
: VolumePotential(model),
accumulator(
this->source_buffer,
GridHermitian<Real, trait::boundary_dimension>::hermitianDimensions(
model->getBoundaryDiscretization()),
this->wavevectors) {
initialize(trait::components * trait::components, trait::components);
}
template <>
Kelvin<model_type::volume_2d, 2>::Kelvin(Model* model)
: VolumePotential(model),
accumulator(
this->source_buffer,
GridHermitian<Real, trait::boundary_dimension>::hermitianDimensions(
model->getBoundaryDiscretization()),
this->wavevectors) {
initialize(trait::components * trait::components,
trait::components * trait::components);
}
/* -------------------------------------------------------------------------- */
/* Operator implementation */
/* -------------------------------------------------------------------------- */
template <model_type type, UInt derivative>
void Kelvin<type, derivative>::applyIf(GridBase<Real>& source,
GridBase<Real>& out,
filter_t pred) const {
Real nu = this->model->getPoissonRatio(), mu = this->model->getShearModulus();
influence::Kelvin<trait::dimension, derivative> kelvin(mu, nu);
using Out = typename detail::KelvinTrait<decltype(kelvin)>::out_t;
using integ = Integrator<1>;
auto apply = [&](auto&& source_buffer, auto&& out_buffer) {
// Setting initial layer to zero
out_buffer.front() = 0;
for (auto [l, xl_, acc_g0, acc_g1] : accumulator.forward()) {
auto& output = out_buffer[l];
Real xl = xl_; // hack: standard forbids capture of structured bindings
Loop::loop(
[&](auto qv, auto u, auto acc_g0, auto acc_g1) {
Real q = qv.l2norm();
u = kelvin.template applyU1<false, true>(qv, acc_g0);
u *= -q * xl;
u += kelvin.template applyU0<false, true>(qv, acc_g0);
u += kelvin.template applyU1<false, true>(qv, acc_g1);
u *= std::exp(-q * xl);
},
range<VectorProxy<const Real, trait::boundary_dimension>>(
this->wavevectors),
range<Out>(output), range<Source>(acc_g0), range<Source>(acc_g1));
}
for (auto [l, xl_, acc_g0, acc_g1] : accumulator.backward()) {
auto& output = out_buffer[l];
Real xl = xl_; // hack: standard forbids capture of structured bindings
Loop::loop(
[&](auto qv, auto u, auto acc_g0, auto acc_g1) {
Real q = qv.l2norm();
typename Out::stack_type tmp;
tmp = kelvin.template applyU1<true, true>(qv, acc_g0);
tmp *= -q * xl;
tmp += kelvin.template applyU0<true, true>(qv, acc_g0);
tmp += kelvin.template applyU1<true, true>(qv, acc_g1);
tmp *= std::exp(q * xl);
u += tmp;
},
range<VectorProxy<const Real, trait::boundary_dimension>>(
this->wavevectors),
range<Out>(output), range<Source>(acc_g0), range<Source>(acc_g1));
}
};
this->fourierApplyIf(apply, source, out, pred);
}
/* -------------------------------------------------------------------------- */
template <model_type type, UInt derivative>
void Kelvin<type, derivative>::initialize(UInt source_components,
UInt out_components) {
auto hermitian_sizes =
GridHermitian<Real, trait::boundary_dimension>::hermitianDimensions(
this->model->getBoundaryDiscretization());
// Initializing buffers
this->source_buffer.resize(this->model->getDiscretization()[0]);
this->disp_buffer.resize(this->model->getDiscretization()[0]);
// Resizing source buffer
std::for_each(this->source_buffer.begin(), this->source_buffer.end(),
[&](auto& buffer) {
buffer.setNbComponents(source_components);
buffer.resize(hermitian_sizes);
});
// Resizing output buffer
std::for_each(this->disp_buffer.begin(), this->disp_buffer.end(),
[&](auto& buffer) {
buffer.setNbComponents(out_components);
buffer.resize(hermitian_sizes);
});
}
/* -------------------------------------------------------------------------- */
/* Template instanciation */
/* -------------------------------------------------------------------------- */
template class Kelvin<model_type::volume_2d, 0>;
template class Kelvin<model_type::volume_2d, 1>;
template class Kelvin<model_type::volume_2d, 2>;
/* -------------------------------------------------------------------------- */
__END_TAMAAS__
c4science · Help