File: RepulsiveSpringForceField.inl

package info (click to toggle)
sofa-framework 1.0~beta4-9
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 88,688 kB
  • ctags: 27,205
  • sloc: cpp: 151,126; ansic: 2,387; xml: 581; sh: 417; makefile: 67
file content (104 lines) | stat: -rw-r--r-- 3,846 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
/******************************************************************************
*       SOFA, Simulation Open-Framework Architecture, version 1.0 beta 4      *
*                (c) 2006-2009 MGH, INRIA, USTL, UJF, CNRS                    *
*                                                                             *
* This library 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 2.1 of the License, or (at     *
* your option) any later version.                                             *
*                                                                             *
* This library 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 this library; if not, write to the Free Software Foundation,     *
* Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301 USA.          *
*******************************************************************************
*                               SOFA :: Modules                               *
*                                                                             *
* Authors: The SOFA Team and external contributors (see Authors.txt)          *
*                                                                             *
* Contact information: contact@sofa-framework.org                             *
******************************************************************************/
#ifndef SOFA_COMPONENT_INTERACTIONFORCEFIELD_REPULSIVESPRINGFORCEFIELD_INL
#define SOFA_COMPONENT_INTERACTIONFORCEFIELD_REPULSIVESPRINGFORCEFIELD_INL

#include <sofa/component/interactionforcefield/RepulsiveSpringForceField.h>
#include <sofa/component/forcefield/StiffSpringForceField.inl>

namespace sofa
{

namespace component
{

namespace interactionforcefield
{



template<class DataTypes>
void RepulsiveSpringForceField<DataTypes>::addForce(VecDeriv& f1, VecDeriv& f2, const VecCoord& x1, const VecCoord& x2, const VecDeriv& v1, const VecDeriv& v2)
{
        const helper::vector<Spring>& springs= this->springs.getValue();
	this->dfdx.resize(springs.size());
	f1.resize(x1.size());
	f2.resize(x2.size());
	for (unsigned int i=0; i<springs.size(); i++)
	{
#if 1
		int a = springs[i].m1;
		int b = springs[i].m2;
		Coord u = x2[b]-x1[a];
		Real d = u.norm();
		if (d < springs[i].initpos)
		{
			Real inverseLength = 1.0f/d;
			u *= inverseLength;
			Real elongation = (Real)(d - springs[i].initpos);
			Deriv relativeVelocity = v2[b]-v1[a];
			Real elongationVelocity = dot(u,relativeVelocity);
			Real forceIntensity = (Real)(springs[i].ks*elongation+springs[i].kd*elongationVelocity);
			Deriv force = u*forceIntensity;
			f1[a]+=force;
			f2[b]-=force;
			
			Mat& m = this->dfdx[i];
			Real tgt = forceIntensity * inverseLength;
			for( int j=0; j<N; ++j )
			{
				for( int k=0; k<N; ++k )
				{
					m[j][k] = ((Real)springs[i].ks-tgt) * u[j] * u[k];
				}
				m[j][j] += tgt;
			}
		}
		else
#endif
		{
			Mat& m = this->dfdx[i];
			for( int j=0; j<N; ++j )
				for( int k=0; k<N; ++k )
					m[j][k] = 0.0;
		}
	}
}

template <class DataTypes> 
    double RepulsiveSpringForceField<DataTypes>::getPotentialEnergy()
{
    serr<<"RepulsiveSpringForceField::getPotentialEnergy-not-implemented !!!"<<sendl;
    return 0;
}


} // namespace interactionforcefield

} // namespace component

} // namespace sofa

#endif