| [791a12] | 1 | /*
 | 
|---|
 | 2 |  * Project: MoleCuilder
 | 
|---|
 | 3 |  * Description: creates and alters molecular systems
 | 
|---|
 | 4 |  * Copyright (C)  2013 Frederik Heber. All rights reserved.
 | 
|---|
 | 5 |  * 
 | 
|---|
 | 6 |  *
 | 
|---|
 | 7 |  *   This file is part of MoleCuilder.
 | 
|---|
 | 8 |  *
 | 
|---|
 | 9 |  *    MoleCuilder is free software: you can redistribute it and/or modify
 | 
|---|
 | 10 |  *    it under the terms of the GNU General Public License as published by
 | 
|---|
 | 11 |  *    the Free Software Foundation, either version 2 of the License, or
 | 
|---|
 | 12 |  *    (at your option) any later version.
 | 
|---|
 | 13 |  *
 | 
|---|
 | 14 |  *    MoleCuilder is distributed in the hope that it will be useful,
 | 
|---|
 | 15 |  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
 | 
|---|
 | 16 |  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | 
|---|
 | 17 |  *    GNU General Public License for more details.
 | 
|---|
 | 18 |  *
 | 
|---|
 | 19 |  *    You should have received a copy of the GNU General Public License
 | 
|---|
 | 20 |  *    along with MoleCuilder.  If not, see <http://www.gnu.org/licenses/>.
 | 
|---|
 | 21 |  */
 | 
|---|
 | 22 | 
 | 
|---|
 | 23 | /*
 | 
|---|
 | 24 |  * FourBodyPotential_Improper.cpp
 | 
|---|
 | 25 |  *
 | 
|---|
 | 26 |  *  Created on: Jul 10, 2013
 | 
|---|
 | 27 |  *      Author: heber
 | 
|---|
 | 28 |  */
 | 
|---|
 | 29 | 
 | 
|---|
 | 30 | // include config.h
 | 
|---|
 | 31 | #ifdef HAVE_CONFIG_H
 | 
|---|
 | 32 | #include <config.h>
 | 
|---|
 | 33 | #endif
 | 
|---|
 | 34 | 
 | 
|---|
 | 35 | #include "CodePatterns/MemDebug.hpp"
 | 
|---|
 | 36 | 
 | 
|---|
 | 37 | #include "FourBodyPotential_Improper.hpp"
 | 
|---|
 | 38 | 
 | 
|---|
 | 39 | #include <boost/assign/list_of.hpp> // for 'map_list_of()'
 | 
|---|
 | 40 | 
 | 
|---|
| [94453f1] | 41 | #include "Potentials/InternalCoordinates/FourBody_ImproperAngle.hpp"
 | 
|---|
 | 42 | 
 | 
|---|
| [791a12] | 43 | // static definitions
 | 
|---|
 | 44 | const FourBodyPotential_Improper::ParameterNames_t
 | 
|---|
 | 45 | FourBodyPotential_Improper::ParameterNames =
 | 
|---|
 | 46 |       boost::assign::list_of<std::string>
 | 
|---|
 | 47 |       ("spring_constant")
 | 
|---|
 | 48 |       ("equilibrium_distance")
 | 
|---|
 | 49 |     ;
 | 
|---|
 | 50 | const std::string FourBodyPotential_Improper::improper_token("improper");
 | 
|---|
| [7d320c] | 51 | Coordinator::ptr FourBodyPotential_Improper::coordinator(Memory::ignore(new FourBody_ImproperAngle()));
 | 
|---|
| [791a12] | 52 | 
 | 
|---|
 | 53 | FourBodyPotential_Improper::FourBodyPotential_Improper() :
 | 
|---|
 | 54 |     FourBodyPotential_Torsion()
 | 
|---|
 | 55 | {}
 | 
|---|
 | 56 | 
 | 
|---|
 | 57 | FourBodyPotential_Improper::FourBodyPotential_Improper(
 | 
|---|
 | 58 |     const ParticleTypes_t &_ParticleTypes) :
 | 
|---|
 | 59 |     FourBodyPotential_Torsion(_ParticleTypes)
 | 
|---|
 | 60 | {}
 | 
|---|
 | 61 | 
 | 
|---|
 | 62 | FourBodyPotential_Improper::FourBodyPotential_Improper(
 | 
|---|
 | 63 |     const ParticleTypes_t &_ParticleTypes,
 | 
|---|
 | 64 |     const double _spring_constant,
 | 
|---|
 | 65 |     const double _equilibrium_distance) :
 | 
|---|
 | 66 |     FourBodyPotential_Torsion(
 | 
|---|
 | 67 |         _ParticleTypes,
 | 
|---|
 | 68 |         _spring_constant,
 | 
|---|
 | 69 |         _equilibrium_distance)
 | 
|---|
 | 70 | {}
 | 
|---|
 | 71 | 
 | 
|---|
 | 72 | FourBodyPotential_Improper::result_t
 | 
|---|
 | 73 | FourBodyPotential_Improper::function_theta(
 | 
|---|
 | 74 |     const double &r_ij,
 | 
|---|
 | 75 |     const double &r_ik,
 | 
|---|
 | 76 |     const double &r_il,
 | 
|---|
 | 77 |     const double &r_jk,
 | 
|---|
 | 78 |     const double &r_jl,
 | 
|---|
 | 79 |     const double &r_kl
 | 
|---|
 | 80 |   ) const
 | 
|---|
 | 81 | {
 | 
|---|
 | 82 |   // just relay call to torsion's theta function with some flipped arguments
 | 
|---|
 | 83 |   return FourBodyPotential_Torsion::function_theta(
 | 
|---|
 | 84 |       r_jk,
 | 
|---|
 | 85 |       r_ik,
 | 
|---|
 | 86 |       r_kl,
 | 
|---|
 | 87 |       r_ij,
 | 
|---|
 | 88 |       r_jl,
 | 
|---|
 | 89 |       r_il
 | 
|---|
 | 90 |       );
 | 
|---|
 | 91 | }
 | 
|---|