ViewVC Help

View File | Revision Log | Show Annotations | View Changeset | Root Listing

root/OpenMD/branches/development/src/integrators/LDForceManager.cpp

Comparing:
trunk/src/integrators/LDForceManager.cpp (file contents), Revision 963 by tim, Wed May 17 21:51:42 2006 UTC vs.
branches/development/src/integrators/LDForceManager.cpp (file contents), Revision 1874 by gezelter, Wed May 15 15:09:35 2013 UTC

#	Line 6 | Line 6
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
9	>	* 1. Redistributions of source code must retain the above copyright
10		*    notice, this list of conditions and the following disclaimer.
11		*
12	<	* 3. Redistributions in binary form must reproduce the above copyright
12	>	* 2. Redistributions in binary form must reproduce the above copyright
13		*    notice, this list of conditions and the following disclaimer in the
14		*    documentation and/or other materials provided with the
15		*    distribution.
#	Line 37 | Line 28
28		* arising out of the use of or inability to use software, even if the
29		* University of Notre Dame has been advised of the possibility of
30		* such damages.
31	+	*
32	+	* SUPPORT OPEN SCIENCE!  If you use OpenMD or its source code in your
33	+	* research, please cite the appropriate papers when you publish your
34	+	* work.  Good starting points are:
35	+	*
36	+	* [1]  Meineke, et al., J. Comp. Chem. 26, 252-271 (2005).
37	+	* [2]  Fennell & Gezelter, J. Chem. Phys. 124, 234104 (2006).
38	+	* [3]  Sun, Lin & Gezelter, J. Chem. Phys. 128, 234107 (2008).
39	+	* [4]  Kuang & Gezelter,  J. Chem. Phys. 133, 164101 (2010).
40	+	* [5]  Vardeman, Stocker & Gezelter, J. Chem. Theory Comput. 7, 834 (2011).
41		*/
42		#include <fstream>
43	+	#include <iostream>
44		#include "integrators/LDForceManager.hpp"
45		#include "math/CholeskyDecomposition.hpp"
46	<	#include "utils/OOPSEConstant.hpp"
46	>	#include "utils/PhysicalConstants.hpp"
47		#include "hydrodynamics/Sphere.hpp"
48		#include "hydrodynamics/Ellipsoid.hpp"
49	<	#include "openbabel/mol.hpp"
49	>	#include "utils/ElementsTable.hpp"
50	>	#include "types/LennardJonesAdapter.hpp"
51	>	#include "types/GayBerneAdapter.hpp"
52
53	<	using namespace OpenBabel;
50	<	namespace oopse {
53	>	namespace OpenMD {
54
55	<	LDForceManager::LDForceManager(SimInfo* info) : ForceManager(info){
56	<	Globals* simParams = info->getSimParams();
57	<
55	>	LDForceManager::LDForceManager(SimInfo* info) : ForceManager(info), forceTolerance_(1e-6), maxIterNum_(4) {
56	>	simParams = info->getSimParams();
57	>	veloMunge = new Velocitizer(info);
58	>
59		sphericalBoundaryConditions_ = false;
60		if (simParams->getUseSphericalBoundaryConditions()) {
61		sphericalBoundaryConditions_ = true;
#	Line 61 | Line 65 | namespace oopse {
65		sprintf( painCave.errMsg,
66		"langevinBufferRadius must be specified "
67		"when useSphericalBoundaryConditions is turned on.\n");
68	<	painCave.severity = OOPSE_ERROR;
68	>	painCave.severity = OPENMD_ERROR;
69		painCave.isFatal = 1;
70		simError();
71		}
#	Line 72 | Line 76 | namespace oopse {
76		sprintf( painCave.errMsg,
77		"frozenBufferRadius must be specified "
78		"when useSphericalBoundaryConditions is turned on.\n");
79	<	painCave.severity = OOPSE_ERROR;
79	>	painCave.severity = OPENMD_ERROR;
80		painCave.isFatal = 1;
81		simError();
82		}
#	Line 81 | Line 85 | namespace oopse {
85		sprintf( painCave.errMsg,
86		"frozenBufferRadius has been set smaller than the "
87		"langevinBufferRadius.  This is probably an error.\n");
88	<	painCave.severity = OOPSE_WARNING;
88	>	painCave.severity = OPENMD_WARNING;
89		painCave.isFatal = 0;
90		simError();
91		}
92		}
93
94		// Build the hydroProp map:
95	<	std::map<std::string, HydroProp> hydroPropMap;
95	>	std::map<std::string, HydroProp*> hydroPropMap;
96
97		Molecule* mol;
98	<	StuntDouble* integrableObject;
98	>	StuntDouble* sd;
99		SimInfo::MoleculeIterator i;
100		Molecule::IntegrableObjectIterator  j;
101		bool needHydroPropFile = false;
102
103		for (mol = info->beginMolecule(i); mol != NULL;
104		mol = info->nextMolecule(i)) {
105	<	for (integrableObject = mol->beginIntegrableObject(j);
106	<	integrableObject != NULL;
107	<	integrableObject = mol->nextIntegrableObject(j)) {
105	>
106	>	for (sd = mol->beginIntegrableObject(j); sd != NULL;
107	>	sd = mol->nextIntegrableObject(j)) {
108
109	<	if (integrableObject->isRigidBody()) {
110	<	RigidBody* rb = static_cast<RigidBody*>(integrableObject);
109	>	if (sd->isRigidBody()) {
110	>	RigidBody* rb = static_cast<RigidBody*>(sd);
111		if (rb->getNumAtoms() > 1) needHydroPropFile = true;
112		}
113
#	Line 116 | Line 120 | namespace oopse {
120		hydroPropMap = parseFrictionFile(simParams->getHydroPropFile());
121		} else {
122		sprintf( painCave.errMsg,
123	<	"HydroPropFile must be set to a file name if Langevin\n"
124	<	"\tDynamics is specified for rigidBodies which contain more\n"
125	<	"\tthan one atom.  To create a HydroPropFile, run \"Hydro\".\n");
126	<	painCave.severity = OOPSE_ERROR;
123	>	"HydroPropFile must be set to a file name if Langevin Dynamics\n"
124	>	"\tis specified for rigidBodies which contain more than one atom\n"
125	>	"\tTo create a HydroPropFile, run the \"Hydro\" program.\n");
126	>	painCave.severity = OPENMD_ERROR;
127		painCave.isFatal = 1;
128		simError();
129		}
130	<	std::map<std::string, HydroProp>::iterator iter = hydroPropMap.find(integrableObject->getType());
131	<	if (iter != hydroPropMap.end()) {
132	<	hydroProps_.push_back(iter->second);
133	<	} else {
134	<	sprintf( painCave.errMsg,
135	<	"Can not find resistance tensor for atom [%s]\n", integrableObject->getType().c_str());
136	<	painCave.severity = OOPSE_ERROR;
137	<	painCave.isFatal = 1;
138	<	simError();
130	>
131	>	for (mol = info->beginMolecule(i); mol != NULL;
132	>	mol = info->nextMolecule(i)) {
133	>
134	>	for (sd = mol->beginIntegrableObject(j);  sd != NULL;
135	>	sd = mol->nextIntegrableObject(j)) {
136	>
137	>	std::map<std::string, HydroProp*>::iterator iter = hydroPropMap.find(sd->getType());
138	>	if (iter != hydroPropMap.end()) {
139	>	hydroProps_.push_back(iter->second);
140	>	} else {
141	>	sprintf( painCave.errMsg,
142	>	"Can not find resistance tensor for atom [%s]\n", sd->getType().c_str());
143	>	painCave.severity = OPENMD_ERROR;
144	>	painCave.isFatal = 1;
145	>	simError();
146	>	}
147	>	}
148		}
149		} else {
150	<
151	<	std::map<std::string, HydroProp> hydroPropMap;
150	>
151	>	std::map<std::string, HydroProp*> hydroPropMap;
152		for (mol = info->beginMolecule(i); mol != NULL;
153		mol = info->nextMolecule(i)) {
154	<	for (integrableObject = mol->beginIntegrableObject(j);
155	<	integrableObject != NULL;
156	<	integrableObject = mol->nextIntegrableObject(j)) {
154	>
155	>	for (sd = mol->beginIntegrableObject(j); sd != NULL;
156	>	sd = mol->nextIntegrableObject(j)) {
157	>
158		Shape* currShape = NULL;
159	<	if (integrableObject->isDirectionalAtom()) {
160	<	DirectionalAtom* dAtom = static_cast<DirectionalAtom*>(integrableObject);
161	<	AtomType* atomType = dAtom->getAtomType();
148	<	if (atomType->isGayBerne()) {
149	<	DirectionalAtomType* dAtomType = dynamic_cast<DirectionalAtomType*>(atomType);
150	<
151	<	GenericData* data = dAtomType->getPropertyByName("GayBerne");
152	<	if (data != NULL) {
153	<	GayBerneParamGenericData* gayBerneData = dynamic_cast<GayBerneParamGenericData*>(data);
154	<
155	<	if (gayBerneData != NULL) {
156	<	GayBerneParam gayBerneParam = gayBerneData->getData();
157	<	currShape = new Ellipsoid(V3Zero,
158	<	gayBerneParam.GB_sigma/2.0,
159	<	gayBerneParam.GB_l2b_ratio*gayBerneParam.GB_sigma/2.0,
160	<	Mat3x3d::identity());
161	<	} else {
162	<	sprintf( painCave.errMsg,
163	<	"Can not cast GenericData to GayBerneParam\n");
164	<	painCave.severity = OOPSE_ERROR;
165	<	painCave.isFatal = 1;
166	<	simError();
167	<	}
168	<	} else {
169	<	sprintf( painCave.errMsg, "Can not find Parameters for GayBerne\n");
170	<	painCave.severity = OOPSE_ERROR;
171	<	painCave.isFatal = 1;
172	<	simError();
173	<	}
174	<	}
175	<	} else {
176	<	Atom* atom = static_cast<Atom*>(integrableObject);
159	>
160	>	if (sd->isAtom()){
161	>	Atom* atom = static_cast<Atom*>(sd);
162		AtomType* atomType = atom->getAtomType();
163	<	if (atomType->isLennardJones()){
164	<	GenericData* data = atomType->getPropertyByName("LennardJones");
165	<	if (data != NULL) {
166	<	LJParamGenericData* ljData = dynamic_cast<LJParamGenericData*>(data);
167	<
168	<	if (ljData != NULL) {
169	<	LJParam ljParam = ljData->getData();
170	<	currShape = new Sphere(atom->getPos(), ljParam.sigma/2.0);
163	>	GayBerneAdapter gba = GayBerneAdapter(atomType);
164	>	if (gba.isGayBerne()) {
165	>	currShape = new Ellipsoid(V3Zero, gba.getL() / 2.0,
166	>	gba.getD() / 2.0,
167	>	Mat3x3d::identity());
168	>	} else {
169	>	LennardJonesAdapter lja = LennardJonesAdapter(atomType);
170	>	if (lja.isLennardJones()){
171	>	currShape = new Sphere(atom->getPos(), lja.getSigma()/2.0);
172	>	} else {
173	>	int aNum = etab.GetAtomicNum((atom->getType()).c_str());
174	>	if (aNum != 0) {
175	>	currShape = new Sphere(atom->getPos(), etab.GetVdwRad(aNum));
176		} else {
177		sprintf( painCave.errMsg,
178	<	"Can not cast GenericData to LJParam\n");
179	<	painCave.severity = OOPSE_ERROR;
178	>	"Could not find atom type in default element.txt\n");
179	>	painCave.severity = OPENMD_ERROR;
180		painCave.isFatal = 1;
181		simError();
182	<	}
182	>	}
183		}
194	–	} else {
195	–	int obanum = etab.GetAtomicNum((atom->getType()).c_str());
196	–	if (obanum != 0) {
197	–	currShape = new Sphere(atom->getPos(), etab.GetVdwRad(obanum));
198	–	} else {
199	–	sprintf( painCave.errMsg,
200	–	"Could not find atom type in default element.txt\n");
201	–	painCave.severity = OOPSE_ERROR;
202	–	painCave.isFatal = 1;
203	–	simError();
204	–	}
184		}
185		}
186	<	HydroProps currHydroProp = currShape->getHydroProps(simParams->getViscosity(),simParams->getTargetTemp());
187	<	std::map<std::string, HydroProp>::iterator iter = hydroPropMap.find(integrableObject->getType());
186	>
187	>	if (!simParams->haveTargetTemp()) {
188	>	sprintf(painCave.errMsg, "You can't use LangevinDynamics without a targetTemp!\n");
189	>	painCave.isFatal = 1;
190	>	painCave.severity = OPENMD_ERROR;
191	>	simError();
192	>	}
193	>
194	>	if (!simParams->haveViscosity()) {
195	>	sprintf(painCave.errMsg, "You can't use LangevinDynamics without a viscosity!\n");
196	>	painCave.isFatal = 1;
197	>	painCave.severity = OPENMD_ERROR;
198	>	simError();
199	>	}
200	>
201	>
202	>	HydroProp* currHydroProp = currShape->getHydroProp(simParams->getViscosity(),simParams->getTargetTemp());
203	>	std::map<std::string, HydroProp*>::iterator iter = hydroPropMap.find(sd->getType());
204		if (iter != hydroPropMap.end())
205		hydroProps_.push_back(iter->second);
206		else {
207	<	HydroProp myProp;
208	<	myProp.cor = V3Zero;
209	<	for (int i1 = 0; i1 < 3; i1++) {
215	<	for (int j1 = 0; j1 < 3; j1++) {
216	<	myProp.Xirtt(i1,j1) = currHydroProp.Xi(i1,j1);
217	<	myProp.Xirrt(i1,j1) = currHydroProp.Xi(i1,j1+3);
218	<	myProp.Xirtr(i1,j1) = currHydroProp.Xi(i1+3,j1);
219	<	myProp.Xirrr(i1,j1) = currHydroProp.Xi(i1+3,j1+3);
220	<	}
221	<	}
222	<	CholeskyDecomposition(currHydroProp.Xi, myProp.S);
223	<	hydroPropMap.insert(std::map<std::string, HydroProp>::value_type(integrableObject->getType(), myProp));
224	<	hydroProps_.push_back(myProp);
207	>	currHydroProp->complete();
208	>	hydroPropMap.insert(std::map<std::string, HydroProp*>::value_type(sd->getType(), currHydroProp));
209	>	hydroProps_.push_back(currHydroProp);
210		}
211	+	delete currShape;
212		}
213		}
214		}
215	<	variance_ = 2.0 * OOPSEConstant::kb*simParams->getTargetTemp()/simParams->getDt();
216	<	}
231	<
232	<
215	>	variance_ = 2.0 * PhysicalConstants::kb*simParams->getTargetTemp()/simParams->getDt();
216	>	}
217
218	<
219	<
236	<	std::map<std::string, HydroProp> LDForceManager::parseFrictionFile(const std::string& filename) {
237	<	std::map<std::string, HydroProp> props;
218	>	std::map<std::string, HydroProp*> LDForceManager::parseFrictionFile(const std::string& filename) {
219	>	std::map<std::string, HydroProp*> props;
220		std::ifstream ifs(filename.c_str());
221		if (ifs.is_open()) {
222
#	Line 243 | Line 225 | namespace oopse {
225		const unsigned int BufferSize = 65535;
226		char buffer[BufferSize];
227		while (ifs.getline(buffer, BufferSize)) {
228	<	StringTokenizer tokenizer(buffer);
229	<	HydroProp currProp;
248	<	if (tokenizer.countTokens() >= 40) {
249	<	std::string atomName = tokenizer.nextToken();
250	<	currProp.cor[0] = tokenizer.nextTokenAsDouble();
251	<	currProp.cor[1] = tokenizer.nextTokenAsDouble();
252	<	currProp.cor[2] = tokenizer.nextTokenAsDouble();
253	<
254	<	currProp.Xirtt(0,0) = tokenizer.nextTokenAsDouble();
255	<	currProp.Xirtt(0,1) = tokenizer.nextTokenAsDouble();
256	<	currProp.Xirtt(0,2) = tokenizer.nextTokenAsDouble();
257	<	currProp.Xirtt(1,0) = tokenizer.nextTokenAsDouble();
258	<	currProp.Xirtt(1,1) = tokenizer.nextTokenAsDouble();
259	<	currProp.Xirtt(1,2) = tokenizer.nextTokenAsDouble();
260	<	currProp.Xirtt(2,0) = tokenizer.nextTokenAsDouble();
261	<	currProp.Xirtt(2,1) = tokenizer.nextTokenAsDouble();
262	<	currProp.Xirtt(2,2) = tokenizer.nextTokenAsDouble();
263	<
264	<	currProp.Xirrt(0,0) = tokenizer.nextTokenAsDouble();
265	<	currProp.Xirrt(0,1) = tokenizer.nextTokenAsDouble();
266	<	currProp.Xirrt(0,2) = tokenizer.nextTokenAsDouble();
267	<	currProp.Xirrt(1,0) = tokenizer.nextTokenAsDouble();
268	<	currProp.Xirrt(1,1) = tokenizer.nextTokenAsDouble();
269	<	currProp.Xirrt(1,2) = tokenizer.nextTokenAsDouble();
270	<	currProp.Xirrt(2,0) = tokenizer.nextTokenAsDouble();
271	<	currProp.Xirrt(2,1) = tokenizer.nextTokenAsDouble();
272	<	currProp.Xirrt(2,2) = tokenizer.nextTokenAsDouble();
273	<
274	<	currProp.Xirtr(0,0) = tokenizer.nextTokenAsDouble();
275	<	currProp.Xirtr(0,1) = tokenizer.nextTokenAsDouble();
276	<	currProp.Xirtr(0,2) = tokenizer.nextTokenAsDouble();
277	<	currProp.Xirtr(1,0) = tokenizer.nextTokenAsDouble();
278	<	currProp.Xirtr(1,1) = tokenizer.nextTokenAsDouble();
279	<	currProp.Xirtr(1,2) = tokenizer.nextTokenAsDouble();
280	<	currProp.Xirtr(2,0) = tokenizer.nextTokenAsDouble();
281	<	currProp.Xirtr(2,1) = tokenizer.nextTokenAsDouble();
282	<	currProp.Xirtr(2,2) = tokenizer.nextTokenAsDouble();
283	<
284	<	currProp.Xirrr(0,0) = tokenizer.nextTokenAsDouble();
285	<	currProp.Xirrr(0,1) = tokenizer.nextTokenAsDouble();
286	<	currProp.Xirrr(0,2) = tokenizer.nextTokenAsDouble();
287	<	currProp.Xirrr(1,0) = tokenizer.nextTokenAsDouble();
288	<	currProp.Xirrr(1,1) = tokenizer.nextTokenAsDouble();
289	<	currProp.Xirrr(1,2) = tokenizer.nextTokenAsDouble();
290	<	currProp.Xirrr(2,0) = tokenizer.nextTokenAsDouble();
291	<	currProp.Xirrr(2,1) = tokenizer.nextTokenAsDouble();
292	<	currProp.Xirrr(2,2) = tokenizer.nextTokenAsDouble();
293	<
294	<	SquareMatrix<RealType, 6> Xir;
295	<	Xir.setSubMatrix(0, 0, currProp.Xirtt);
296	<	Xir.setSubMatrix(0, 3, currProp.Xirrt);
297	<	Xir.setSubMatrix(3, 0, currProp.Xirtr);
298	<	Xir.setSubMatrix(3, 3, currProp.Xirrr);
299	<	CholeskyDecomposition(Xir, currProp.S);
300	<
301	<	props.insert(std::map<std::string, HydroProp>::value_type(atomName, currProp));
302	<	}
228	>	HydroProp* currProp = new HydroProp(buffer);
229	>	props.insert(std::map<std::string, HydroProp*>::value_type(currProp->getName(), currProp));
230		}
231	<
231	>
232		return props;
233		}
234	<
235	<	void LDForceManager::postCalculation() {
234	>
235	>	void LDForceManager::postCalculation(){
236		SimInfo::MoleculeIterator i;
237		Molecule::IntegrableObjectIterator  j;
238		Molecule* mol;
239	<	StuntDouble* integrableObject;
240	<	Vector3d vel;
239	>	StuntDouble* sd;
240	>	RealType mass;
241		Vector3d pos;
242		Vector3d frc;
243		Mat3x3d A;
244		Mat3x3d Atrans;
245		Vector3d Tb;
246		Vector3d ji;
320	–	RealType mass;
247		unsigned int index = 0;
248		bool doLangevinForces;
249		bool freezeMolecule;
250		int fdf;
251	<
251	>
252		fdf = 0;
253	+
254		for (mol = info_->beginMolecule(i); mol != NULL; mol = info_->nextMolecule(i)) {
255	<
255	>
256	>	doLangevinForces = true;
257	>	freezeMolecule = false;
258	>
259		if (sphericalBoundaryConditions_) {
260
261		Vector3d molPos = mol->getCom();
262		RealType molRad = molPos.length();
263	<
263	>
264		doLangevinForces = false;
335	–	freezeMolecule = false;
265
266		if (molRad > langevinBufferRadius_) {
267		doLangevinForces = true;
#	Line 344 | Line 273 | namespace oopse {
273		}
274		}
275
276	<	for (integrableObject = mol->beginIntegrableObject(j); integrableObject != NULL;
277	<	integrableObject = mol->nextIntegrableObject(j)) {
276	>	for (sd = mol->beginIntegrableObject(j); sd != NULL;
277	>	sd = mol->nextIntegrableObject(j)) {
278
279		if (freezeMolecule)
280	<	fdf += integrableObject->freeze();
280	>	fdf += sd->freeze();
281
282	<	if (doLangevinForces) {
283	<	vel =integrableObject->getVel();
284	<	if (integrableObject->isDirectional()){
285	<	//calculate angular velocity in lab frame
286	<	Mat3x3d I = integrableObject->getI();
287	<	Vector3d angMom = integrableObject->getJ();
288	<	Vector3d omega;
360	<
361	<	if (integrableObject->isLinear()) {
362	<	int linearAxis = integrableObject->linearAxis();
363	<	int l = (linearAxis +1 )%3;
364	<	int m = (linearAxis +2 )%3;
365	<	omega[l] = angMom[l] /I(l, l);
366	<	omega[m] = angMom[m] /I(m, m);
367	<
368	<	} else {
369	<	omega[0] = angMom[0] /I(0, 0);
370	<	omega[1] = angMom[1] /I(1, 1);
371	<	omega[2] = angMom[2] /I(2, 2);
372	<	}
373	<
374	<	//apply friction force and torque at center of resistance
375	<	A = integrableObject->getA();
282	>	if (doLangevinForces) {
283	>	mass = sd->getMass();
284	>	if (sd->isDirectional()){
285	>
286	>	// preliminaries for directional objects:
287	>
288	>	A = sd->getA();
289		Atrans = A.transpose();
290	<	Vector3d rcr = Atrans * hydroProps_[index].cor;
291	<	Vector3d vcdLab = vel + cross(omega, rcr);
379	<	Vector3d vcdBody = A* vcdLab;
380	<	Vector3d frictionForceBody = -(hydroProps_[index].Xirtt * vcdBody + hydroProps_[index].Xirrt * omega);
381	<	Vector3d frictionForceLab = Atrans*frictionForceBody;
382	<	integrableObject->addFrc(frictionForceLab);
383	<	Vector3d frictionTorqueBody = - (hydroProps_[index].Xirtr * vcdBody + hydroProps_[index].Xirrr * omega);
384	<	Vector3d frictionTorqueLab = Atrans*frictionTorqueBody;
385	<	integrableObject->addTrq(frictionTorqueLab+ cross(rcr, frictionForceLab));
386	<
290	>	Vector3d rcrLab = Atrans * hydroProps_[index]->getCOR();
291	>
292		//apply random force and torque at center of resistance
293	+
294		Vector3d randomForceBody;
295		Vector3d randomTorqueBody;
296		genRandomForceAndTorque(randomForceBody, randomTorqueBody, index, variance_);
297	<	Vector3d randomForceLab = Atrans*randomForceBody;
298	<	Vector3d randomTorqueLab = Atrans* randomTorqueBody;
299	<	integrableObject->addFrc(randomForceLab);
300	<	integrableObject->addTrq(randomTorqueLab + cross(rcr, randomForceLab ));
297	>	Vector3d randomForceLab = Atrans * randomForceBody;
298	>	Vector3d randomTorqueLab = Atrans * randomTorqueBody;
299	>	sd->addFrc(randomForceLab);
300	>	sd->addTrq(randomTorqueLab + cross(rcrLab, randomForceLab ));
301	>
302	>	Mat3x3d I = sd->getI();
303	>	Vector3d omegaBody;
304	>
305	>	// What remains contains velocity explicitly, but the velocity required
306	>	// is at the full step: v(t + h), while we have initially the velocity
307	>	// at the half step: v(t + h/2).  We need to iterate to converge the
308	>	// friction force and friction torque vectors.
309	>
310	>	// this is the velocity at the half-step:
311
312	+	Vector3d vel =sd->getVel();
313	+	Vector3d angMom = sd->getJ();
314	+
315	+	//estimate velocity at full-step using everything but friction forces:
316	+
317	+	frc = sd->getFrc();
318	+	Vector3d velStep = vel + (dt2_ /mass * PhysicalConstants::energyConvert) * frc;
319	+
320	+	Tb = sd->lab2Body(sd->getTrq());
321	+	Vector3d angMomStep = angMom + (dt2_ * PhysicalConstants::energyConvert) * Tb;
322	+
323	+	Vector3d omegaLab;
324	+	Vector3d vcdLab;
325	+	Vector3d vcdBody;
326	+	Vector3d frictionForceBody;
327	+	Vector3d frictionForceLab(0.0);
328	+	Vector3d oldFFL;  // used to test for convergence
329	+	Vector3d frictionTorqueBody(0.0);
330	+	Vector3d oldFTB;  // used to test for convergence
331	+	Vector3d frictionTorqueLab;
332	+	RealType fdot;
333	+	RealType tdot;
334	+
335	+	//iteration starts here:
336	+
337	+	for (int k = 0; k < maxIterNum_; k++) {
338	+
339	+	if (sd->isLinear()) {
340	+	int linearAxis = sd->linearAxis();
341	+	int l = (linearAxis +1 )%3;
342	+	int m = (linearAxis +2 )%3;
343	+	omegaBody[l] = angMomStep[l] /I(l, l);
344	+	omegaBody[m] = angMomStep[m] /I(m, m);
345	+
346	+	} else {
347	+	omegaBody[0] = angMomStep[0] /I(0, 0);
348	+	omegaBody[1] = angMomStep[1] /I(1, 1);
349	+	omegaBody[2] = angMomStep[2] /I(2, 2);
350	+	}
351	+
352	+	omegaLab = Atrans * omegaBody;
353	+
354	+	// apply friction force and torque at center of resistance
355	+
356	+	vcdLab = velStep + cross(omegaLab, rcrLab);
357	+	vcdBody = A * vcdLab;
358	+	frictionForceBody = -(hydroProps_[index]->getXitt() * vcdBody + hydroProps_[index]->getXirt() * omegaBody);
359	+	oldFFL = frictionForceLab;
360	+	frictionForceLab = Atrans * frictionForceBody;
361	+	oldFTB = frictionTorqueBody;
362	+	frictionTorqueBody = -(hydroProps_[index]->getXitr() * vcdBody + hydroProps_[index]->getXirr() * omegaBody);
363	+	frictionTorqueLab = Atrans * frictionTorqueBody;
364	+
365	+	// re-estimate velocities at full-step using friction forces:
366	+
367	+	velStep = vel + (dt2_ / mass * PhysicalConstants::energyConvert) * (frc + frictionForceLab);
368	+	angMomStep = angMom + (dt2_ * PhysicalConstants::energyConvert) * (Tb + frictionTorqueBody);
369	+
370	+	// check for convergence (if the vectors have converged, fdot and tdot will both be 1.0):
371	+
372	+	fdot = dot(frictionForceLab, oldFFL) / frictionForceLab.lengthSquare();
373	+	tdot = dot(frictionTorqueBody, oldFTB) / frictionTorqueBody.lengthSquare();
374	+
375	+	if (fabs(1.0 - fdot) <= forceTolerance_ && fabs(1.0 - tdot) <= forceTolerance_)
376	+	break; // iteration ends here
377	+	}
378	+
379	+	sd->addFrc(frictionForceLab);
380	+	sd->addTrq(frictionTorqueLab + cross(rcrLab, frictionForceLab));
381	+
382	+
383		} else {
384		//spherical atom
385	<	Vector3d frictionForce = -(hydroProps_[index].Xirtt *vel);
385	>
386		Vector3d randomForce;
387		Vector3d randomTorque;
388		genRandomForceAndTorque(randomForce, randomTorque, index, variance_);
389	+	sd->addFrc(randomForce);
390	+
391	+	// What remains contains velocity explicitly, but the velocity required
392	+	// is at the full step: v(t + h), while we have initially the velocity
393	+	// at the half step: v(t + h/2).  We need to iterate to converge the
394	+	// friction force vector.
395	+
396	+	// this is the velocity at the half-step:
397
398	<	integrableObject->addFrc(frictionForce+randomForce);
398	>	Vector3d vel =sd->getVel();
399	>
400	>	//estimate velocity at full-step using everything but friction forces:
401	>
402	>	frc = sd->getFrc();
403	>	Vector3d velStep = vel + (dt2_ / mass * PhysicalConstants::energyConvert) * frc;
404	>
405	>	Vector3d frictionForce(0.0);
406	>	Vector3d oldFF;  // used to test for convergence
407	>	RealType fdot;
408	>
409	>	//iteration starts here:
410	>
411	>	for (int k = 0; k < maxIterNum_; k++) {
412	>
413	>	oldFF = frictionForce;
414	>	frictionForce = -hydroProps_[index]->getXitt() * velStep;
415	>
416	>	// re-estimate velocities at full-step using friction forces:
417	>
418	>	velStep = vel + (dt2_ / mass * PhysicalConstants::energyConvert) * (frc + frictionForce);
419	>
420	>	// check for convergence (if the vector has converged, fdot will be 1.0):
421	>
422	>	fdot = dot(frictionForce, oldFF) / frictionForce.lengthSquare();
423	>
424	>	if (fabs(1.0 - fdot) <= forceTolerance_)
425	>	break; // iteration ends here
426	>	}
427	>
428	>	sd->addFrc(frictionForce);
429	>
430		}
431		}
432
#	Line 408 | Line 434 | namespace oopse {
434
435		}
436		}
437	+
438		info_->setFdf(fdf);
439	<
439	>	veloMunge->removeComDrift();
440	>	// Remove angular drift if we are not using periodic boundary conditions.
441	>	if(!simParams->getUsePeriodicBoundaryConditions())
442	>	veloMunge->removeAngularDrift();
443	>
444		ForceManager::postCalculation();
445		}
446
#	Line 418 | Line 449 | void LDForceManager::genRandomForceAndTorque(Vector3d&
449
450		Vector<RealType, 6> Z;
451		Vector<RealType, 6> generalForce;
421	–
452
453		Z[0] = randNumGen_.randNorm(0, variance);
454		Z[1] = randNumGen_.randNorm(0, variance);
#	Line 427 | Line 457 | void LDForceManager::genRandomForceAndTorque(Vector3d&
457		Z[4] = randNumGen_.randNorm(0, variance);
458		Z[5] = randNumGen_.randNorm(0, variance);
459
460	<
431	<	generalForce = hydroProps_[index].S*Z;
460	>	generalForce = hydroProps_[index]->getS()*Z;
461
462		force[0] = generalForce[0];
463		force[1] = generalForce[1];
#	Line 437 | Line 466 | void LDForceManager::genRandomForceAndTorque(Vector3d&
466		torque[1] = generalForce[4];
467		torque[2] = generalForce[5];
468
469	<	}
469	>	}
470
471		}

Comparing:
trunk/src/integrators/LDForceManager.cpp (property svn:keywords), Revision 963 by tim, Wed May 17 21:51:42 2006 UTC vs.
branches/development/src/integrators/LDForceManager.cpp (property svn:keywords), Revision 1874 by gezelter, Wed May 15 15:09:35 2013 UTC

#	Line 0 | Line 1
1	+	Author Id Revision Date

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines