Lemina
A molecular dynamics package for network, granular material and point particles with a range of interaction potential.
 
Loading...
Searching...
No Matches
ApplyDrivingForce.c File Reference
#include <stdio.h>
#include <stdlib.h>
#include "global.h"
+ Include dependency graph for ApplyDrivingForce.c:

Go to the source code of this file.

Functions

void ApplyDrivingForce ()
 

Function Documentation

◆ ApplyDrivingForce()

void ApplyDrivingForce ( )

Definition at line 25 of file ApplyDrivingForce.c.

25 {
26 int n;
27 double Vxblock, Vyblock;
28 double Vxsubstrate, Vysubstrate;
29 Vxblock = 0.0; Vyblock = 0.0;
30 Vxsubstrate = 0.0; Vysubstrate = 0.0;
31 double gammav;
32 gammav = 0.0;
33
34 double count_substrate = 0;
35 double count_block = 0;
36
37 for(n = 1 ; n <= nAtom; n ++){
38 if(atomType[n] == 1 || atomType[n] == 2){
39 Vxsubstrate += vx[n]; Vysubstrate += vy[n];
40 count_substrate++;
41 }
42 if(atomType[n] == 3 || atomType[n] == 4){
43 Vxblock += vx[n]; Vyblock += vy[n];
44 count_block++;
45 } }
46
47 if(count_substrate > 0) {
48 Vxsubstrate /= count_substrate;
49 Vysubstrate /= count_substrate;
50 }
51
52 if(count_block > 0) {
53 Vxblock /= count_block;
54 Vyblock /= count_block;
55 }
56
57 for(n = 1 ; n <= nAtom; n ++){
58 if(atomType[n] == 1 || atomType[n] == 2){
59 ax[n] += -gammav * (vx[n] - Vxsubstrate);
60 ay[n] += -gammav * (vy[n] - Vysubstrate);
61 }
62 if(atomType[n] == 3 || atomType[n] == 4){
63 ax[n] += -gammav * (vx[n] - Vxblock);
64 ay[n] += -gammav * (vy[n] - Vyblock);
65 } } }
int nAtom
Definition global.h:24
double * ay
Definition global.h:17
double * vx
Definition global.h:17
double * ax
Definition global.h:17
int * atomType
double * vy
Definition global.h:17

References atomType, ax, ay, nAtom, vx, and vy.