| | |
| | | ts_double dist; |
| | | ts_bool retval; |
| | | ts_uint cellidx; |
| | | ts_double delta_energy, delta_energy_cv,oenergy,dvol=0.0, darea=0.0; |
| | | ts_double delta_energy, delta_energy_cv,oenergy,dvol=0.0, darea=0.0, dstretchenergy=0.0; |
| | | ts_double costheta,sintheta,phi,r; |
| | | //This will hold all the information of vtx and its neighbours |
| | | ts_vertex backupvtx[20], *constvol_vtx_moved=NULL, *constvol_vtx_backup=NULL; |
| | |
| | | for(i=0;i<vtx->tristar_no;i++) darea-=vtx->tristar[i]->area; |
| | | |
| | | } |
| | | |
| | | //stretching energy 1 of 3 |
| | | if(vesicle->tape->stretchswitch==1){ |
| | | for(i=0;i<vtx->tristar_no;i++) dstretchenergy-=vtx->tristar[i]->energy/3.0; |
| | | } |
| | | delta_energy=0; |
| | | |
| | | // vesicle_volume(vesicle); |
| | |
| | | delta_energy+=delta_energy_cv; |
| | | // fprintf(stderr,"Denergy after=%e\n",delta_energy); |
| | | } |
| | | /* Vertices with spontaneous curvature may have spontaneous force perpendicular to the surface of the vesicle. additional delta energy is calculated in this function */ |
| | | delta_energy+=direct_force_energy(vesicle,vtx,backupvtx); |
| | | |
| | | //stretching energy 2 of 3 |
| | | if(vesicle->tape->stretchswitch==1){ |
| | | for(i=0;i<vtx->tristar_no;i++){ |
| | | stretchenergy(vesicle, vtx->tristar[i]); |
| | | dstretchenergy+=vtx->tristar[i]->energy/3.0; |
| | | } |
| | | } |
| | | |
| | | delta_energy+=dstretchenergy; |
| | | |
| | | /* No poly-bond energy for now! |
| | | if(vtx->grafted_poly!=NULL){ |
| | | delta_energy+= |
| | |
| | | */ |
| | | // fprintf(stderr, "DE=%f\n",delta_energy); |
| | | //MONTE CARLOOOOOOOO |
| | | // if(vtx->c!=0.0) printf("DE=%f\n",delta_energy); |
| | | if(delta_energy>=0){ |
| | | #ifdef TS_DOUBLE_DOUBLE |
| | | if(exp(-delta_energy)< drand48()) |
| | |
| | | |
| | | //update the normals of triangles that share bead i. |
| | | for(i=0;i<vtx->tristar_no;i++) triangle_normal_vector(vtx->tristar[i]); |
| | | //stretching energy 3 of 3 |
| | | if(vesicle->tape->stretchswitch==1){ |
| | | for(i=0;i<vtx->tristar_no;i++){ |
| | | stretchenergy(vesicle,vtx->tristar[i]); |
| | | } |
| | | } |
| | | |
| | | // fprintf(stderr, "before vtx(x,y,z)=%e,%e,%e\n",constvol_vtx_moved->x, constvol_vtx_moved->y, constvol_vtx_moved->z); |
| | | if(vesicle->tape->constvolswitch == 1){ |