projects
/
physik
/
posic.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
even more testing ...
[physik/posic.git]
/
moldyn.c
diff --git
a/moldyn.c
b/moldyn.c
index
db575e9
..
7f9745a
100644
(file)
--- a/
moldyn.c
+++ b/
moldyn.c
@@
-33,7
+33,7
@@
int moldyn_usage(char **argv) {
printf("-V <steps> <filebase> (rasmol file)\n");
printf("--- physics options ---\n");
printf("-T <temperature> [K] (%f)\n",MOLDYN_TEMP);
printf("-V <steps> <filebase> (rasmol file)\n");
printf("--- physics options ---\n");
printf("-T <temperature> [K] (%f)\n",MOLDYN_TEMP);
- printf("-t <timestep tau> [s] (%f)\n",MOLDYN_TAU);
+ printf("-t <timestep tau> [s] (%
.15
f)\n",MOLDYN_TAU);
printf("-R <runs> (%d)\n",MOLDYN_RUNS);
printf("\n");
printf("-R <runs> (%d)\n",MOLDYN_RUNS);
printf("\n");
@@
-520,7
+520,7
@@
int force_harmonic_oscillator(t_moldyn *moldyn) {
d=v3_norm(&distance);
if(d<=moldyn->cutoff) {
v3_scale(&force,&distance,
d=v3_norm(&distance);
if(d<=moldyn->cutoff) {
v3_scale(&force,&distance,
-
(-sc*(1.0-(equi_dist/d)
)));
+
-sc*(1.0-(equi_dist/d
)));
v3_add(&(atom[i].f),&(atom[i].f),&force);
v3_sub(&(atom[j].f),&(atom[j].f),&force);
}
v3_add(&(atom[i].f),&(atom[i].f),&force);
v3_sub(&(atom[j].f),&(atom[j].f),&force);
}
@@
-554,7
+554,7
@@
double potential_lennard_jones(t_moldyn *moldyn) {
u=0.0;
for(i=0;i<count;i++) {
for(j=0;j<i;j++) {
u=0.0;
for(i=0;i<count;i++) {
for(j=0;j<i;j++) {
- v3_sub(&distance,&(atom[
j].r),&(atom[i
].r));
+ v3_sub(&distance,&(atom[
i].r),&(atom[j
].r));
d=1.0/v3_absolute_square(&distance); /* 1/r^2 */
help=d*d; /* 1/r^4 */
help*=d; /* 1/r^6 */
d=1.0/v3_absolute_square(&distance); /* 1/r^2 */
help=d*d; /* 1/r^4 */
help*=d; /* 1/r^6 */
@@
-580,14
+580,14
@@
int force_lennard_jones(t_moldyn *moldyn) {
count=moldyn->count;
params=moldyn->pot_params;
eps=params->epsilon4;
count=moldyn->count;
params=moldyn->pot_params;
eps=params->epsilon4;
- sig6=params->sigma6;
- sig12=params->sigma12;
+ sig6=
6*
params->sigma6;
+ sig12=
12*
params->sigma12;
for(i=0;i<count;i++) v3_zero(&(atom[i].f));
for(i=0;i<count;i++) {
for(j=0;j<i;j++) {
for(i=0;i<count;i++) v3_zero(&(atom[i].f));
for(i=0;i<count;i++) {
for(j=0;j<i;j++) {
- v3_sub(&distance,&(atom[
j].r),&(atom[i
].r));
+ v3_sub(&distance,&(atom[
i].r),&(atom[j
].r));
v3_per_bound(&distance,&(moldyn->dim));
d=v3_absolute_square(&distance);
if(d<=moldyn->cutoff_square) {
v3_per_bound(&distance,&(moldyn->dim));
d=v3_absolute_square(&distance);
if(d<=moldyn->cutoff_square) {
@@
-600,7
+600,7
@@
int force_lennard_jones(t_moldyn *moldyn) {
h2*=sig6;
/* actually there would be a '-', *
* but f=-d/dr potential */
h2*=sig6;
/* actually there would be a '-', *
* but f=-d/dr potential */
- d=
-12.0*h1+6.0*
h2;
+ d=
h1+
h2;
d*=eps;
v3_scale(&force,&distance,d);
v3_add(&(atom[i].f),&(atom[i].f),&force);
d*=eps;
v3_scale(&force,&distance,d);
v3_add(&(atom[i].f),&(atom[i].f),&force);