ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/primitives/Torsion.cpp
Revision: 2759
Committed: Wed May 17 21:51:42 2006 UTC (18 years, 2 months ago) by tim
File size: 3595 byte(s)
Log Message:
Adding single precision capabilities to c++ side

File Contents

# User Rev Content
1 gezelter 2204 /*
2 gezelter 1930 * Copyright (c) 2005 The University of Notre Dame. All Rights Reserved.
3     *
4     * The University of Notre Dame grants you ("Licensee") a
5     * non-exclusive, royalty free, license to use, modify and
6     * redistribute this software in source and binary code form, provided
7     * that the following conditions are met:
8     *
9     * 1. Acknowledgement of the program authors must be made in any
10     * publication of scientific results based in part on use of the
11     * program. An acceptable form of acknowledgement is citation of
12     * the article in which the program was described (Matthew
13     * A. Meineke, Charles F. Vardeman II, Teng Lin, Christopher
14     * J. Fennell and J. Daniel Gezelter, "OOPSE: An Object-Oriented
15     * Parallel Simulation Engine for Molecular Dynamics,"
16     * J. Comput. Chem. 26, pp. 252-271 (2005))
17     *
18     * 2. Redistributions of source code must retain the above copyright
19     * notice, this list of conditions and the following disclaimer.
20     *
21     * 3. Redistributions in binary form must reproduce the above copyright
22     * notice, this list of conditions and the following disclaimer in the
23     * documentation and/or other materials provided with the
24     * distribution.
25     *
26     * This software is provided "AS IS," without a warranty of any
27     * kind. All express or implied conditions, representations and
28     * warranties, including any implied warranty of merchantability,
29     * fitness for a particular purpose or non-infringement, are hereby
30     * excluded. The University of Notre Dame and its licensors shall not
31     * be liable for any damages suffered by licensee as a result of
32     * using, modifying or distributing the software or its
33     * derivatives. In no event will the University of Notre Dame or its
34     * licensors be liable for any lost revenue, profit or data, or for
35     * direct, indirect, special, consequential, incidental or punitive
36     * damages, however caused and regardless of the theory of liability,
37     * arising out of the use of or inability to use software, even if the
38     * University of Notre Dame has been advised of the possibility of
39     * such damages.
40     */
41    
42     #include "primitives/Torsion.hpp"
43 gezelter 1490
44 gezelter 1930 namespace oopse {
45 gezelter 1490
46 gezelter 2204 Torsion::Torsion(Atom *atom1, Atom *atom2, Atom *atom3, Atom *atom4,
47     TorsionType *tt) :
48 gezelter 1930 atom1_(atom1), atom2_(atom2), atom3_(atom3), atom4_(atom4), torsionType_(tt) { }
49 gezelter 1490
50 tim 2759 void Torsion::calcForce(RealType& angle) {
51 tim 2448
52 gezelter 1930 Vector3d pos1 = atom1_->getPos();
53     Vector3d pos2 = atom2_->getPos();
54     Vector3d pos3 = atom3_->getPos();
55     Vector3d pos4 = atom4_->getPos();
56 gezelter 1490
57 gezelter 1930 Vector3d r21 = pos1 - pos2;
58     Vector3d r32 = pos2 - pos3;
59     Vector3d r43 = pos3 - pos4;
60 gezelter 1490
61 gezelter 1930 // Calculate the cross products and distances
62     Vector3d A = cross(r21, r32);
63 tim 2759 RealType rA = A.length();
64 gezelter 1930 Vector3d B = cross(r32, r43);
65 tim 2759 RealType rB = B.length();
66 gezelter 1930 Vector3d C = cross(r32, A);
67 tim 2759 RealType rC = C.length();
68 gezelter 1490
69 gezelter 1930 A.normalize();
70     B.normalize();
71     C.normalize();
72    
73     // Calculate the sin and cos
74 tim 2759 RealType cos_phi = dot(A, B) ;
75 tim 2448 if (cos_phi > 1.0) cos_phi = 1.0;
76     if (cos_phi < -1.0) cos_phi = -1.0;
77 gezelter 1490
78 tim 2759 RealType dVdcosPhi;
79 tim 2448 torsionType_->calcForce(cos_phi, potential_, dVdcosPhi);
80 gezelter 1930 Vector3d f1;
81     Vector3d f2;
82     Vector3d f3;
83 gezelter 1490
84 gezelter 2204 Vector3d dcosdA = (cos_phi * A - B) /rA;
85     Vector3d dcosdB = (cos_phi * B - A) /rB;
86 gezelter 1490
87 gezelter 2204 f1 = dVdcosPhi * cross(r32, dcosdA);
88     f2 = dVdcosPhi * ( cross(r43, dcosdB) - cross(r21, dcosdA));
89     f3 = dVdcosPhi * cross(dcosdB, r32);
90 tim 2448
91 gezelter 1930 atom1_->addFrc(f1);
92     atom2_->addFrc(f2 - f1);
93     atom3_->addFrc(f3 - f2);
94     atom4_->addFrc(-f3);
95 tim 2448 angle = acos(cos_phi) /M_PI * 180.0;
96 gezelter 2204 }
97 gezelter 1490
98     }