Trisurf Monte Carlo simulator
mihaf
2014-03-21 bcf4557ddd61890f130247430267feac5b05c5b7
commit | author | age
d7639a 1 #include<stdlib.h>
SP 2 #include "general.h"
3 #include "cell.h"
f74313 4 #include "frame.h"
d7639a 5 ts_bool centermass(ts_vesicle *vesicle){
3a018d 6     ts_uint i,j, n=vesicle->vlist->n;
f74313 7     ts_vertex **vtx=vesicle->vlist->vtx;
d7639a 8     vesicle->cm[0]=0;
SP 9     vesicle->cm[1]=0;
10     vesicle->cm[2]=0;
f74313 11     for(i=0;i<n;i++){
8f6a69 12         vesicle->cm[0]+=vtx[i]->x;
SP 13         vesicle->cm[1]+=vtx[i]->y;
14         vesicle->cm[2]+=vtx[i]->z; 
d7639a 15     } 
dac2e5 16     vesicle->cm[0]/=(ts_float)n;
SP 17     vesicle->cm[1]/=(ts_float)n;
18     vesicle->cm[2]/=(ts_float)n;
919555 19
SP 20     for(i=0;i<n;i++){
21         vtx[i]->x-=vesicle->cm[0];
22         vtx[i]->y-=vesicle->cm[1];
23         vtx[i]->z-=vesicle->cm[2]; 
24     } 
58230a 25 //move polymers for the same vector as we moved vesicle
3a018d 26     for(i=0;i<vesicle->poly_list->n;i++){
M 27         for(j=0;j<vesicle->poly_list->poly[i]->vlist->n;j++){
28             vesicle->poly_list->poly[i]->vlist->vtx[j]->x-=vesicle->cm[0];
29             vesicle->poly_list->poly[i]->vlist->vtx[j]->y-=vesicle->cm[1];
30             vesicle->poly_list->poly[i]->vlist->vtx[j]->z-=vesicle->cm[2];
31         }
32     }
58230a 33 //move filaments for the same vector as we moved vesicle
M 34     for(i=0;i<vesicle->filament_list->n;i++){
35         for(j=0;j<vesicle->filament_list->poly[i]->vlist->n;j++){
36             vesicle->filament_list->poly[i]->vlist->vtx[j]->x-=vesicle->cm[0];
37             vesicle->filament_list->poly[i]->vlist->vtx[j]->y-=vesicle->cm[1];
38             vesicle->filament_list->poly[i]->vlist->vtx[j]->z-=vesicle->cm[2];
39         }
40     }
3a018d 41
58230a 42     vesicle->cm[0]=0.0;
M 43     vesicle->cm[1]=0.0;
44     vesicle->cm[2]=0.0;
a63f17 45
d7639a 46     return TS_SUCCESS;
SP 47 }
48
f74313 49 ts_bool cell_occupation(ts_vesicle *vesicle){
48bb92 50     ts_uint i,j,cellidx, n=vesicle->vlist->n;
d7639a 51
f74313 52     cell_list_cell_occupation_clear(vesicle->clist);
SP 53     for(i=0;i<n;i++){
54     cellidx=vertex_self_avoidance(vesicle, vesicle->vlist->vtx[i]);
a63f17 55 //    already done in cell_add_vertex
SP 56 //    vesicle->vlist->vtx[i]->cell=vesicle->clist->cell[cellidx];
d7639a 57
f74313 58     cell_add_vertex(vesicle->clist->cell[cellidx],vesicle->vlist->vtx[i]);
d7639a 59     }
48bb92 60
58230a 61 //Add all polymers to cells
48bb92 62     for(i=0;i<vesicle->poly_list->n;i++){
M 63     for(j=0;j<vesicle->poly_list->poly[i]->vlist->n;j++){
64         cellidx=vertex_self_avoidance(vesicle, vesicle->poly_list->poly[i]->vlist->vtx[j]);
65         cell_add_vertex(vesicle->clist->cell[cellidx],vesicle->poly_list->poly[i]->vlist->vtx[j]);
66     }
67     }
58230a 68 //Add all filaments to cells
M 69      for(i=0;i<vesicle->filament_list->n;i++){
70     for(j=0;j<vesicle->filament_list->poly[i]->vlist->n;j++){
71         cellidx=vertex_self_avoidance(vesicle, vesicle->filament_list->poly[i]->vlist->vtx[j]);
72         cell_add_vertex(vesicle->clist->cell[cellidx],vesicle->filament_list->poly[i]->vlist->vtx[j]);
73     }
74     }
75    
48bb92 76
d7639a 77     return TS_SUCCESS;
SP 78 }