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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
/////////////////////////////////////////////////////////////
// //
// Copyright (c) 2003-2014 by The University of Queensland //
// Centre for Geoscience Computing //
// http://earth.uq.edu.au/centre-geoscience-computing //
// //
// Primary Business: Brisbane, Queensland, Australia //
// Licensed under the Open Software License version 3.0 //
// http://www.apache.org/licenses/LICENSE-2.0 //
// //
/////////////////////////////////////////////////////////////
#include "BEdge2DInteraction.h"
#include "tml/message/packed_message_interface.h"
#include "console.h"
/*!
default constructor
*/
BEdge2DInteraction::BEdge2DInteraction()
{
m_p=NULL;
m_ed=NULL;
m_eid=-1;
m_pid=-1;
}
/*!
constructor with parameters
\param p a pointer to the particle
\param e a pointer to the triangle
\param param the interaction parameters
\param iflag
*/
BEdge2DInteraction::BEdge2DInteraction(CParticle* p,Edge2D* e,BMesh2DIP param,bool iflag)
{
m_p=p;
m_ed=e;
m_k=param.k;
m_break=param.brk*m_p->getRad();
m_inner_flag=iflag;
// setup anchor point
m_ap=m_ed->toLocal(m_p->getPos());
m_dist=0.0; // inital distance is always 0.0 !
m_eid=m_ed->getID();
m_pid=m_p->getID();
console.XDebug() << "BEdge2Dint " << m_eid << " is inner " << m_inner_flag << "\n";
}
/*!
destructor
*/
BEdge2DInteraction::~BEdge2DInteraction()
{}
/*!
calculate & apply forces
*/
void BEdge2DInteraction::calcForces()
{
// transform anchor point to world coords
Vec3 ap_global=m_ed->toGlobal(m_ap);
// get dist between anchor and particle
const Vec3 D=ap_global-m_p->getPos();
m_dist=sqrt(D*D);
// calc force
Vec3 force=D*m_k;
Vec3 pos=m_p->getPos();
// apply force
m_p->applyForce(force,pos);
if(m_inner_flag) m_ed->applyForce(-1.0*force);
}
/*!
return if the interaction is broken, i.e. the distance between
particle and anchor point exceeds breaking distance, i.e. relative
breaking distance x particle readius
*/
bool BEdge2DInteraction::broken()
{
return (m_dist>m_break);
}
/*!
returns the projection of the anchor point on the edge
*/
Vec3 BEdge2DInteraction::getAP() const
{
Vec3 app=Vec3(m_ap.X(),0.0,0.0); // move point onto edge
Vec3 ap_global=m_ed->toGlobal(app); // transfrom point to global coordinates
return ap_global;
}
/*!
Pack a BEdge2DInteraction into a TML packed message
\param I the interaction
*/
template<>
void TML_PackedMessageInterface::pack<BEdge2DInteraction>(const BEdge2DInteraction& I)
{
append(I.m_k);
append(I.m_dist);
append(I.m_break);
append(I.m_ap);
append(I.getTid());
append(I.getPid());
}
/*!
Unpack a BEdge2DInteraction from a TML packed message
\param I the interaction
*/
template<>
void TML_PackedMessageInterface::unpack<BEdge2DInteraction>(BEdge2DInteraction& I)
{
I.m_k=pop_double();
I.m_dist=pop_double();
I.m_break=pop_double();
I.m_ap=pop_vec3();
I.m_eid=pop_int();
I.m_pid=pop_int();
}
|
