From 3006183b769f2e126b1a96e6bf697c2b7f657df7 Mon Sep 17 00:00:00 2001
From: Samo Penic <samo.penic@gmail.com>
Date: Sun, 26 Apr 2020 17:35:26 +0000
Subject: [PATCH] Code for incremental adding of inclusions done
---
src/initial_distribution.c | 25 +++++++++++++++++--------
1 files changed, 17 insertions(+), 8 deletions(-)
diff --git a/src/initial_distribution.c b/src/initial_distribution.c
index 21eda68..23c5827 100644
--- a/src/initial_distribution.c
+++ b/src/initial_distribution.c
@@ -122,13 +122,23 @@
ts_bool initial_population_with_c0(ts_vesicle *vesicle, ts_tape *tape){
- int rndvtx,i,j;
+// OVERRIDE! JUST FOR TEST BRANCH!!!
+// WARNING !!!!
+// WARNING !!!!
+// WARNING !!!!
+ return TS_SUCCESS;
if(tape->number_of_vertices_with_c0>0){
// ts_fprintf(stderr,"Setting values for spontaneous curvature as defined in tape\n");
- j=0;
- for(i=0;i<tape->number_of_vertices_with_c0;i++){
+ add_vertices_with_c0(vesicle, tape->number_of_vertices_with_c0, tape->c0, tape->w);
+ }
+ return TS_SUCCESS;
+}
+
+ts_bool add_vertices_with_c0(ts_vesicle *vesicle, ts_int n, ts_double c0, ts_double w){
+ ts_int rndvtx,i,j=0;
+ for(i=0;i<n;i++){
rndvtx=rand() % vesicle->vlist->n;
- if(fabs(vesicle->vlist->vtx[rndvtx]->c-tape->c0)<1e-15){
+ if(fabs(vesicle->vlist->vtx[rndvtx]->c-c0)<1e-15){
j++;
i--;
if(j>10*vesicle->vlist->n){
@@ -136,17 +146,16 @@
}
continue;
}
- vesicle->vlist->vtx[rndvtx]->c=tape->c0;
+ vesicle->vlist->vtx[rndvtx]->c=c0;
}
mean_curvature_and_energy(vesicle);
- if(fabs(tape->w)>1e-16){ //if nonzero energy
+ if(fabs(w)>1e-16){ //if nonzero energy
// ts_fprintf(stderr,"Setting attraction between vertices with spontaneous curvature\n");
sweep_attraction_bond_energy(vesicle);
}
- }
return TS_SUCCESS;
-}
+}
ts_bool pentagonal_dipyramid_vertex_distribution(ts_vertex_list *vlist){
/* Some often used relations */
--
Gitblit v1.9.3