Added stretching energy plugin

Samo Penic

2019-03-09 4df6ed05246cf8bc9fe0cb0c8766ebc368d2f512

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
#include <stdlib.h>
#include<math.h>
 
#include "general.h"
#include "vertex.h"
#include "cell.h"
#include "vesicle.h"
#include "frame.h"
char plugin_name[] = "Stretching energy";
char plugin_description[]= "Plugin adds stretching energy to Monte Carlo steps";
char plugin_author[] = "SAMO PENIC";
 
 
typedef struct {
    ts_double dstretchenergy;
    ts_double A0;
    ts_double epsarea;
} plugin_data;
 
 
ts_plugin_details *init (){
    ts_plugin_details *details=(ts_plugin_details *)calloc(1,sizeof(ts_plugin_details));
    details->name = plugin_name;
    details->data = (plugin_data *)calloc(1,sizeof(plugin_data)); //storing data
    return details;    
}
 
 
/*
ts_vesicle *after_vesicle_init(ts_vesicle *vesicle){
    plugin_data *data=(plugin_data *)vesicle->plist->pointer->plugin->details->data;
    ts_fprintf(stdout,"area volume initialized\n");
    centermass(vesicle);
    cell_occupation(vesicle);
    vesicle_area(vesicle);
    data->A0=vesicle->area;
    data->epsarea=data->A0/(ts_double)vesicle->tlist->n;
    return vesicle;
}
*/
 
void vm_energy_before_prepare(ts_vesicle *vesicle, ts_vertex *vtx){        
    if(vesicle->tape->stretchswitch==1){
        plugin_data *data=(plugin_data *)vesicle->plist->pointer->plugin->details->data;
        ts_uint i;
        data->dstretchenergy=0.0;
        for(i=0;i<vtx->tristar_no;i++) data->dstretchenergy-=vtx->tristar[i]->energy;
    }
}
 
 
ts_double vm_energy_after_execute(ts_vesicle *vesicle, ts_vertex *vtx){
    //stretching energy 2 of 3
    if(vesicle->tape->stretchswitch==1){
        plugin_data *data=(plugin_data *)vesicle->plist->pointer->plugin->details->data;
        ts_uint i;
        for(i=0;i<vtx->tristar_no;i++){ 
            stretchenergy(vesicle, vtx->tristar[i]);
            data->dstretchenergy+=vtx->tristar[i]->energy;
            }
    }
    return data->dstretchenergy;
}
 
 
 
void vm_new_state_rejected(ts_vesicle *vesicle, ts_vertex *vtx, ts_vertex *old_vtx){
    //stretching energy 3 of 3
    if(vesicle->tape->stretchswitch==1){
        ts_uint i;
        for(i=0;i<vtx->tristar_no;i++){ 
            stretchenergy(vesicle,vtx->tristar[i]);
            }
    }
}