Trisurf Monte Carlo simulator
Samo Penic
2016-02-15 383644169457b45c9c6bc047c469c8e1ca1d2562
src/frame.c
@@ -1,56 +1,86 @@
#include<stdlib.h>
#include "general.h"
#include "cell.h"
#include "frame.h"
#include "triangle.h"
ts_bool centermass(ts_vesicle *vesicle){
    ts_uint i;
    ts_uint i,j, n=vesicle->vlist->n;
    ts_vertex **vtx=vesicle->vlist->vtx;
    vesicle->cm[0]=0;
    vesicle->cm[1]=0;
    vesicle->cm[2]=0;
    for(i=0;i<vesicle->vlist.n;i++){
        vesicle->cm[0]+=vesicle->vlist.vertex[i].x;
        vesicle->cm[1]+=vesicle->vlist.vertex[i].y;
        vesicle->cm[2]+=vesicle->vlist.vertex[i].z;
    for(i=0;i<n;i++){
        vesicle->cm[0]+=vtx[i]->x;
        vesicle->cm[1]+=vtx[i]->y;
        vesicle->cm[2]+=vtx[i]->z;
    } 
    vesicle->cm[0]/=(float)vesicle->vlist.n;
    vesicle->cm[1]/=(float)vesicle->vlist.n;
    vesicle->cm[2]/=(float)vesicle->vlist.n;
    vesicle->cm[0]/=(ts_float)n;
    vesicle->cm[1]/=(ts_float)n;
    vesicle->cm[2]/=(ts_float)n;
    for(i=0;i<n;i++){
        vtx[i]->x-=vesicle->cm[0];
        vtx[i]->y-=vesicle->cm[1];
        vtx[i]->z-=vesicle->cm[2];
    }
//move polymers for the same vector as we moved vesicle
   for(i=0;i<vesicle->poly_list->n;i++){
      for(j=0;j<vesicle->poly_list->poly[i]->vlist->n;j++){
         vesicle->poly_list->poly[i]->vlist->vtx[j]->x-=vesicle->cm[0];
         vesicle->poly_list->poly[i]->vlist->vtx[j]->y-=vesicle->cm[1];
         vesicle->poly_list->poly[i]->vlist->vtx[j]->z-=vesicle->cm[2];
      }
    }
//move filaments for the same vector as we moved vesicle
   for(i=0;i<vesicle->filament_list->n;i++){
      for(j=0;j<vesicle->filament_list->poly[i]->vlist->n;j++){
         vesicle->filament_list->poly[i]->vlist->vtx[j]->x-=vesicle->cm[0];
         vesicle->filament_list->poly[i]->vlist->vtx[j]->y-=vesicle->cm[1];
         vesicle->filament_list->poly[i]->vlist->vtx[j]->z-=vesicle->cm[2];
      }
    }
    vesicle->cm[0]=0.0;
    vesicle->cm[1]=0.0;
    vesicle->cm[2]=0.0;
    for(i=0;i<vesicle->tlist->n;i++){
        triangle_normal_vector(vesicle->tlist->tria[i]);
    }
    return TS_SUCCESS;
}
ts_bool cell_ocupation(ts_vesicle *vesicle){
    ts_uint i,j,cellidx;
    ts_double shift;
    ts_double dcell;
    shift=(ts_double) vesicle->clist.ncmax[0]/2;
    dcell=1.0/(1.0 + vesicle->stepsize);
    ts_uint ncx, ncy,ncz;
ts_bool cell_occupation(ts_vesicle *vesicle){
    ts_uint i,j,cellidx, n=vesicle->vlist->n;
    cell_list_cell_ocupation_clear(&vesicle->clist);
    for(i=0;i<vesicle->vlist.n;i++){
    cellidx=vertex_self_avoidance(vesicle, &vesicle->vlist.vertex[i]);
    vesicle->vlist.vertex[i].cell=&(vesicle->clist.cell[cellidx]);
    cell_list_cell_occupation_clear(vesicle->clist);
    for(i=0;i<n;i++){
    cellidx=vertex_self_avoidance(vesicle, vesicle->vlist->vtx[i]);
//   already done in cell_add_vertex
//    vesicle->vlist->vtx[i]->cell=vesicle->clist->cell[cellidx];
    cell_add_vertex(&vesicle->clist.cell[cellidx],&vesicle->vlist.vertex[i]);
  //  if(ncx > vesicle->clist.ncmax[0]) vesicle->clist.ncmax[0]=ncx;
  //  if(ncy > vesicle->clist.ncmax[1]) vesicle->clist.ncmax[1]=ncy;
  //  if(ncz > vesicle->clist.ncmax[2]) vesicle->clist.ncmax[2]=ncz;
    cell_add_vertex(vesicle->clist->cell[cellidx],vesicle->vlist->vtx[i]);
    }
/* This was already done in previous for loop.... Have I gained some time?
    for(i=0;i<vesicle->clist.ncmax[0]*vesicle->clist.ncmax[1]*vesicle->clist.ncmax[2];i++){
        vesicle->clist.cell[i].nvertex=0;
        for(j=0;j<vesicle->vlist.n;j++){
            //add_vertextocell;
            //add_vertextomonomer;
        }
//Add all polymers to cells
    for(i=0;i<vesicle->poly_list->n;i++){
   for(j=0;j<vesicle->poly_list->poly[i]->vlist->n;j++){
       cellidx=vertex_self_avoidance(vesicle, vesicle->poly_list->poly[i]->vlist->vtx[j]);
       cell_add_vertex(vesicle->clist->cell[cellidx],vesicle->poly_list->poly[i]->vlist->vtx[j]);
   }
    }
//Add all filaments to cells
     for(i=0;i<vesicle->filament_list->n;i++){
   for(j=0;j<vesicle->filament_list->poly[i]->vlist->n;j++){
       cellidx=vertex_self_avoidance(vesicle, vesicle->filament_list->poly[i]->vlist->vtx[j]);
       cell_add_vertex(vesicle->clist->cell[cellidx],vesicle->filament_list->poly[i]->vlist->vtx[j]);
   }
    }
*/
    return TS_SUCCESS;
}