From 2c4278db6ead5c27e30a3000097ed898c968534e Mon Sep 17 00:00:00 2001
From: Samo Penic <samo.penic@gmail.com>
Date: Sat, 09 Mar 2019 19:45:22 +0000
Subject: [PATCH] Added direct force plugin and fixes in stretching energy

---
 src/vesicle.c |   15 +++++++++++++++
 1 files changed, 15 insertions(+), 0 deletions(-)

diff --git a/src/vesicle.c b/src/vesicle.c
index 4d9e5cd..99e21f9 100644
--- a/src/vesicle.c
+++ b/src/vesicle.c
@@ -9,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){
@@ -38,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;
 }
@@ -78,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;
+}

--
Gitblit v1.9.3