1 /*---------------------------------------------------------------------------*\
3 \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
5 \\ / A nd | Copyright (C) 2008-2009 OpenCFD Ltd.
7 -------------------------------------------------------------------------------
9 This file is part of OpenFOAM.
11 OpenFOAM is free software; you can redistribute it and/or modify it
12 under the terms of the GNU General Public License as published by the
13 Free Software Foundation; either version 2 of the License, or (at your
14 option) any later version.
16 OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
21 You should have received a copy of the GNU General Public License
22 along with OpenFOAM; if not, write to the Free Software Foundation,
23 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
25 \*---------------------------------------------------------------------------*/
27 #include "pitchForkRing.H"
28 #include "addToRunTimeSelectionTable.H"
30 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
34 namespace tetherPotentials
37 // * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
39 defineTypeNameAndDebug(pitchForkRing, 0);
41 addToRunTimeSelectionTable
49 // * * * * * * * * * * * * * * * * Constructors * * * * * * * * * * * * * * //
51 pitchForkRing::pitchForkRing
54 const dictionary& tetherPotentialProperties
57 tetherPotential(name, tetherPotentialProperties),
60 tetherPotentialProperties.subDict(typeName + "Coeffs")
62 mu_(readScalar(pitchForkRingCoeffs_.lookup("mu"))),
63 alpha_(readScalar(pitchForkRingCoeffs_.lookup("alpha"))),
64 rOrbit_(readScalar(pitchForkRingCoeffs_.lookup("rOrbit")))
68 // * * * * * * * * * * * * * * Member Functions * * * * * * * * * * * * * * //
70 scalar pitchForkRing::energy(const vector r) const
72 scalar p = sqrt(r.x()*r.x() + r.y()*r.y());
74 scalar pMinusRSqr = (p - rOrbit_)*(p - rOrbit_);
76 return -0.5 * mu_ * pMinusRSqr
77 + 0.25 * pMinusRSqr * pMinusRSqr
78 + 0.5 * alpha_ * r.z() * r.z();
82 vector pitchForkRing::force(const vector r) const
84 scalar p = sqrt(r.x()*r.x() + r.y()*r.y());
86 scalar pMinusR = (p - rOrbit_);
90 (mu_ - pMinusR * pMinusR) * pMinusR * r.x()/p,
91 (mu_ - pMinusR * pMinusR) * pMinusR * r.y()/p,
97 bool pitchForkRing::read(const dictionary& tetherPotentialProperties)
99 tetherPotential::read(tetherPotentialProperties);
101 pitchForkRingCoeffs_ =
102 tetherPotentialProperties.subDict(typeName + "Coeffs");
104 pitchForkRingCoeffs_.lookup("mu") >> mu_;
105 pitchForkRingCoeffs_.lookup("alpha") >> alpha_;
106 pitchForkRingCoeffs_.lookup("rOrbit") >> rOrbit_;
112 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
114 } // End namespace tetherPotentials
115 } // End namespace Foam
117 // ************************************************************************* //