Homec4science
Diffusion tamaas (features/netcdf-mpi) Browse

tamaas/src/complimentary_term_functional.cpp
d65c3b324a47features/netcdf-mpi

Last Change
Raw File

complimentary_term_functional.cpp
View Options

/**
*
* @author Lucas Frérot <lucas.frerot@epfl.ch>
*
* @section LICENSE
*
* Copyright (©) 2016 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 "complimentary_term_functional.hh"
/* -------------------------------------------------------------------------- */
__BEGIN_TAMAAS__
ComplimentaryTermFunctional::ComplimentaryTermFunctional(BemFFTBase & bem):
Functional(bem)
{}
ComplimentaryTermFunctional::~ComplimentaryTermFunctional()
{}
Real ComplimentaryTermFunctional::computeF() {
const Surface<Real> & tractions = bem.getTractions();
const Surface<Real> & surface = bem.getSurface();
Real F = 0;
UInt n = surface.size();
UInt size = n * n;
#pragma omp parallel for reduction(+: F)
for (UInt i = 0 ; i < size ; ++i)
F += tractions(i) * surface(i);
return F;
}
void ComplimentaryTermFunctional::computeGradFP() {
*this->gradF -= bem.getSurface();
}
void ComplimentaryTermFunctional::computeGradFU() {
SURFACE_FATAL("complimentary term cannot be differentiated with respect to u");
}
__END_TAMAAS__
c4science · Help