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

Go to the source code of this file.

Functions

void BrownianStep ()
 

Function Documentation

◆ BrownianStep()

void BrownianStep ( )

Definition at line 26 of file BrownianStep.c.

26 {
27 if(stepCount <= stepEquil){
28 double A, S1, S2, T;
29 int n;
30 S1 = 0.; S2 = 0;
31 double halfdt = 0.5*deltaT;
32 for (n = 1; n <= nAtom; n++){
33 T = vx[n] + halfdt * ax[n];
34 S1 += T * ax[n];
35 S2 += Sqr(T);
36
37 T = vy[n] + halfdt * ay[n];
38 S1 += T * ay[n];
39 S2 += Sqr(T);
40 }
41 A = -S1 / S2;
42 double C = 1 + A*deltaT ;
43 double D = deltaT * (1 + 0.5 * A * deltaT);
44 for (n = 1; n <= nAtom; n++){
45 vx[n] = C * vx[n] + D * ax[n];
46 rx[n] += deltaT * vx[n];
47 vy[n] = C * vy[n] + D * ay[n];
48 ry[n] += deltaT * vy[n];
49 }
50 }else{
51 int n;
52 //SETTING TEMP = 0.0
53 if (stepCount == stepEquil+1){
54 for(n = 1 ; n <= nAtom ; n ++){
55 vx[n] = 0.0;
56 vy[n] = 0.0;
57 }}
58 double zeta = 1.0;
59 double dx, dy;
60 for(n = 1 ; n <= nAtom ; n ++){
61 dx = rx[n];
62 rx[n] += zeta * ax[n] * deltaT;
63 dx = rx[n] - dx;
64 vx[n] = dx/deltaT;
65 dy = ry[n];
66 ry[n] += zeta * ay[n] * deltaT;
67 dy = ry[n] - dy;
68 vy[n] = dy/deltaT;
69 }
70 }
71}
int nAtom
Definition global.h:24
double * ay
Definition global.h:17
double * vx
Definition global.h:17
double deltaT
Definition global.h:20
double * rx
double * ax
Definition global.h:17
#define Sqr(x)
Definition global.h:14
int stepEquil
Definition global.h:24
int stepCount
Definition global.h:24
double * vy
Definition global.h:17
double * ry
Definition global.h:17

References ax, ay, deltaT, nAtom, rx, ry, Sqr, stepCount, stepEquil, vx, and vy.