Homec4science
Diffusion tamaas (maxwell_viscoelastic-branch) Browse

tamaas/src/model/kelvin.cpp
0d4a6a6379a1maxwell_viscoelastic…

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 "influence.hh"
#include "elasto_plastic_model.hh"
/* -------------------------------------------------------------------------- */
__BEGIN_TAMAAS__
/* -------------------------------------------------------------------------- */
/* -------------------------------------------------------------------------- */
/* Volume 2D implementation */
/* -------------------------------------------------------------------------- */
template <>
void Kelvin<model_type::volume_2d>::applyVolumeForcePotential(
GridBase<Real>& source, GridBase<Real>& out) const {
Real nu = model->getPoissonRatio(), mu = model->getShearModulus();
StaticVector<const Real, trait::dimension> domain(model->getSystemSize()[0]);
influence::Kelvin<trait::dimension, 0> kelvin(mu, nu, domain);
auto apply = [this, &kelvin](decltype(source_buffers)& source_buffers,
decltype(disp_buffers)& disp_buffers) {
constexpr UInt dim = trait::dimension;
const Real L = this->model->getSystemSize().front();
const UInt N = this->model->getDiscretization().front();
const Real dl = L / N;
// Do the matrix vector product
for (UInt i = 0; i < N; ++i) {
const Real xi = i * dl;
// Compute displacements u_i
auto & displacement = disp_buffers[i];
for (UInt j = 0; j < N; ++j) {
const Real yj = j * dl;
auto & source = source_buffers[j];
#define VOLUME_FORCE_POTENTIAL(yj_xi) \
do { \
Loop::stridedLoop( \
[&kelvin, xi, yj, dl](StaticVector<Complex, dim>&& u, \
StaticVector<Complex, dim>&& f, \
StaticVector<const Real, dim - 1>&& q) { \
constexpr UInt dim = trait::dimension; \
Complex F_mem[dim * dim]; \
StaticMatrix<Complex, dim, dim> F(*F_mem); \
Complex u_mem[dim * dim]; \
StaticVector<Complex, dim> u_tmp(*u_mem); \
influence::KelvinIntegrator<dim, 0, yj_xi>::integrate(kelvin, yj, \
xi, dl, q, F); \
u_tmp.mul(F, f); \
u += u_tmp; \
}, \
displacement, source, this->wavevectors); \
} while (0)
if (j > i) {
VOLUME_FORCE_POTENTIAL(1);
} else if (j == i) {
VOLUME_FORCE_POTENTIAL(0);
} else {
VOLUME_FORCE_POTENTIAL(-1);
}
#undef VOLUME_FORCE_POTENTIAL
}
// Setting fundamental frequency to zero
StaticVector<Complex, dim> u_fundamental(displacement(0));
u_fundamental = 0;
}
};
this->fourierApply(apply, source, out);
}
template <>
void Kelvin<model_type::volume_2d>::applyVolumeStressPotential(
GridBase<Real>& source, GridBase<Real>& out) const {
//
}
template <>
void Kelvin<model_type::volume_2d>::applyHypersingularStressPotential(
GridBase<Real>& source, GridBase<Real>& out) const {
//
}
/* -------------------------------------------------------------------------- */
/* Volume 1D implementation */
/* -------------------------------------------------------------------------- */
template <>
void Kelvin<model_type::volume_1d>::applyVolumeForcePotential(
GridBase<Real>& source, GridBase<Real>& out) const {
//
}
template <>
void Kelvin<model_type::volume_1d>::applyVolumeStressPotential(
GridBase<Real>& source, GridBase<Real>& out) const {
//
}
template <>
void Kelvin<model_type::volume_1d>::applyHypersingularStressPotential(
GridBase<Real>& source, GridBase<Real>& out) const {
//
}
/* -------------------------------------------------------------------------- */
/* Template instanciation */
/* -------------------------------------------------------------------------- */
template class Kelvin<model_type::volume_1d>;
template class Kelvin<model_type::volume_2d>;
/* -------------------------------------------------------------------------- */
__END_TAMAAS__
c4science · Help