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