| | |
| | | ts_vertex *k=bond->vtx2; |
| | | ts_uint nei,neip,neim; |
| | | ts_uint i,j; |
| | | ts_double oldenergy, delta_energy, dvol=0.0, darea=0.0; |
| | | ts_double oldenergy=0.0, delta_energy=0.0, dvol=0.0, darea=0.0; |
| | | ts_triangle *lm=NULL,*lp=NULL, *lp1=NULL, *lm2=NULL; |
| | | |
| | | ts_vertex *kp,*km; |
| | |
| | | /* end backup vertex */ |
| | | |
| | | /* Save old energy */ |
| | | oldenergy=0; |
| | | oldenergy=0.0; |
| | | oldenergy+=k->xk* k->energy; |
| | | oldenergy+=kp->xk* kp->energy; |
| | | oldenergy+=km->xk* km->energy; |
| | |
| | | /* vesicle_volume(vesicle); |
| | | fprintf(stderr,"Volume in the beginning=%1.16e\n", vesicle->volume); |
| | | */ |
| | | |
| | | /* fix data structure for flipped bond */ |
| | | ts_flip_bond(k,it,km,kp, bond,lm, lp, lm2, lp1, vesicle->tape->w); |
| | | |
| | | |
| | | /* Calculating the new energy */ |
| | | delta_energy=0; |
| | | delta_energy=0.0; |
| | | delta_energy+=k->xk* k->energy; |
| | | delta_energy+=kp->xk* kp->energy; |
| | | delta_energy+=km->xk* km->energy; |
| | | delta_energy+=it->xk* it->energy; |
| | | delta_energy+=bond->energy; /* attraction with neighboring vertices, that have spontaneous curvature */ |
| | | //Neigbours of k, it, km, kp don't change its energy. |
| | | if(vesicle->tape->stretchswitch==1){ |
| | | oldenergy+=lm->energy+lp->energy; |
| | | stretchenergy(vesicle,lm); |
| | | stretchenergy(vesicle,lp); |
| | | delta_energy+=lm->energy+lp->energy; |
| | | } |
| | | |
| | | delta_energy-=oldenergy; |
| | | if(vesicle->pswitch == 1 || vesicle->tape->constvolswitch>0){ |
| | |
| | | // fprintf(stderr,"Restoration complete!!!\n"); |
| | | // vesicle_volume(vesicle); |
| | | // fprintf(stderr,"Volume after fail=%1.16e\n", vesicle->volume); |
| | | if(vesicle->tape->stretchswitch==1){ |
| | | stretchenergy(vesicle,lm); |
| | | stretchenergy(vesicle,lp); |
| | | } |
| | | |
| | | return TS_FAIL; |
| | | } |