Statistiques
| Révision :

root / bin / initialize.cpp @ 1

Historique | Voir | Annoter | Télécharger (1,72 ko)

1 1 akiss
#include "compute_areas.h"
2 1 akiss
#include "compute_cell_areas.h"
3 1 akiss
#include "compute_barycenters.h"
4 1 akiss
#include "compute_shapes.h"
5 1 akiss
#include "compute_lengths.h"
6 1 akiss
#include "initialize.h"
7 1 akiss
#include "constants.h"
8 1 akiss
#include <stdio.h>
9 1 akiss
#include "compute_cell_walls.h"
10 1 akiss
11 1 akiss
/* this function initializes the various lists used in the program */
12 1 akiss
13 1 akiss
void initialize(double *vertices, int vertices_number, int *cells_vertices, int *vertices_number_in_each_cell, int cell_number, int *wall_vertices, int wall_number, int *cell_walls,
14 1 akiss
                double *barycenters, double *shapes, double *targets, double *lengths, double *target_lengths, double *areas, double *cell_areas, double *forces, double *stress_periclinal, double *stress_anticlinal){
15 1 akiss
16 1 akiss
int i;
17 1 akiss
compute_barycenters(vertices,vertices_number,cells_vertices,vertices_number_in_each_cell,cell_number,barycenters);
18 1 akiss
compute_shapes(vertices, cells_vertices, vertices_number_in_each_cell, cell_number, barycenters, shapes);
19 1 akiss
compute_areas(vertices, cells_vertices, vertices_number_in_each_cell, cell_number, areas);
20 1 akiss
compute_cell_areas(vertices, cells_vertices, vertices_number_in_each_cell, cell_number, areas, cell_areas);
21 1 akiss
compute_cell_walls(vertices, cells_vertices, vertices_number_in_each_cell, cell_number, cell_walls, wall_vertices, wall_number);
22 1 akiss
compute_lengths(vertices, wall_vertices, wall_number, lengths);
23 1 akiss
for (i=0;i<cell_number;i++){
24 1 akiss
    targets[3*i]=initial_growth*shapes[3*i]; targets[3*i+1]=initial_growth*shapes[3*i+1]; targets[3*i+2]=initial_growth*shapes[3*i+2];
25 1 akiss
    stress_periclinal[3*i]=0.; stress_periclinal[3*i+1]=0.; stress_periclinal[3*i+2]=0.;
26 1 akiss
}
27 1 akiss
for (i=0;i<wall_number;i++){
28 1 akiss
    target_lengths[i]=lengths[i]; stress_anticlinal[3*i]=0.; stress_anticlinal[3*i+1]=0.; stress_anticlinal[3*i+2]=0.;
29 1 akiss
}
30 1 akiss
}