Polymers thermicaly move now! HArmonic potential added.

Miha

2014-02-06 fedf2b217113800a15f367e111e2dbcad4a3c92c

 src/energy.c

@@ -20,6 +20,12 @@
}


inline ts_bool bond_energy(ts_bond *bond,ts_poly *poly){
   bond->energy=poly->k*pow(bond->bond_length-1,2);
   return TS_SUCCESS;
};


inline ts_bool energy_vertex(ts_vertex *vtx){
//    ts_vertex *vtx=&vlist->vertex[n]-1; // Caution! 0 Indexed value!
//    ts_triangle *tristar=vtx->tristar-1;