Added stretching energy plugin

Samo Penic

2019-03-09 4df6ed05246cf8bc9fe0cb0c8766ebc368d2f512

 src/vesicle.c

@@ -1,3 +1,4 @@
/* vim: set ts=4 sts=4 sw=4 noet : */
#include<general.h>
#include "vesicle.h"
#include "vertex.h"
@@ -8,6 +9,7 @@
#include "poly.h"
#include "sh.h"
#include "shcomplex.h"
#include "plugins.h"

ts_vesicle *init_vesicle(ts_uint N, ts_uint ncmax1, ts_uint ncmax2, ts_uint
ncmax3, ts_double stepsize){
@@ -37,7 +39,9 @@
    triangle_list_free(vesicle->tlist);
    cell_list_free(vesicle->clist);
    poly_list_free(vesicle->poly_list);
    poly_list_free(vesicle->filament_list);
    complex_sph_free(vesicle->sphHarmonics);
    plugin_list_free(vesicle->plist);
    free(vesicle);
    return TS_SUCCESS;
}
@@ -77,3 +81,15 @@
    vesicle->area=area;
    return TS_SUCCESS;
}

ts_double vesicle_meancurvature(ts_vesicle *vesicle){
// Integrates (H dA) over vesicle area A, where H=(C1+C2)/2.
// (To be devided by A outside of function)
   ts_double mc;
   ts_uint i;
   mc=0;
   for(i=0;i<vesicle->vlist->n;i++){
      mc=mc+vesicle->vlist->vtx[i]->curvature;
   }
   return mc/2.0;
}