ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/acismesh/m2d_fin.cpp
Revision: 1
Committed: Mon Jun 11 22:53:07 2007 UTC (17 years, 11 months ago)
File size: 1961 byte(s)
Log Message:

File Contents

# Content
1 /*****************************************************************
2
3 m2d_fin.c Type:Func
4
5 mise a jour finales
6
7 Date de creation : Tue May 27 10:34:13 1997
8
9 Derniere version : Tue May 27 10:34:13 1997
10
11
12
13
14
15
16 Vincent FRANCOIS
17
18 *****************************************************************/
19
20
21
22
23
24 /**************************/
25 /* include */
26 #include <stdio.h>
27 #include "const.h"
28 #include "struct.h"
29 #include "memoire.h"
30 #include "prototype.h"
31
32 /**************************/
33 /* variables globales */
34 extern struct environnement env;
35 extern struct s_mesh *mesh;
36
37
38
39 /**************************/
40 /* programme principal */
41
42 void m2d_fin(void)
43 {
44 struct s_triangle *ac_tri;
45 int i;
46
47
48
49 mesh->critmoy=0.;
50 mesh->critmin=1.;
51 mesh->critmax=0.;
52 mesh->tabcrit[0]=0;
53 mesh->tabcrit[1]=0;
54 mesh->tabcrit[2]=0;
55 mesh->tabcrit[3]=0;
56 for (i=0;i<mesh->nb_triangle;i++)
57 {
58 ac_tri=ADRESSE(i,triangle,mesh->);
59 mesh->critmoy=mesh->critmoy+ac_tri->crit;
60 if (mesh->critmin>ac_tri->crit) mesh->critmin=ac_tri->crit;
61 if (mesh->critmax<ac_tri->crit) mesh->critmax=ac_tri->crit;
62 if (ac_tri->crit>0.5) mesh->tabcrit[3]++;
63 else if (ac_tri->crit>0.2) mesh->tabcrit[2]++;
64 else if (ac_tri->crit>0.1) mesh->tabcrit[1]++;
65 else mesh->tabcrit[0]++;
66 }
67 }