| 1 |
/*****************************************************************
|
| 2 |
|
| 3 |
m3d_analyse.cpp Type:Func
|
| 4 |
|
| 5 |
Analyse du respect de la densite en 3D
|
| 6 |
|
| 7 |
Date de creation : 15-4-1999 14 :30 :43
|
| 8 |
Derniere version : 15-4-1999 14 :30 :43
|
| 9 |
|
| 10 |
Vincent FRANCOIS
|
| 11 |
|
| 12 |
*****************************************************************/
|
| 13 |
|
| 14 |
|
| 15 |
|
| 16 |
|
| 17 |
|
| 18 |
/**************************/
|
| 19 |
/* include */
|
| 20 |
#include <stdio.h>
|
| 21 |
#include <math.h>
|
| 22 |
#include <string.h>
|
| 23 |
#include "memoire.h"
|
| 24 |
#include "const.h"
|
| 25 |
#include "struct.h"
|
| 26 |
#include "prototype.h"
|
| 27 |
|
| 28 |
/**************************/
|
| 29 |
/* variables globales */
|
| 30 |
extern struct environnement env;
|
| 31 |
extern struct s_mesh *mesh;
|
| 32 |
extern struct s_acis *acis;
|
| 33 |
|
| 34 |
|
| 35 |
|
| 36 |
/**************************/
|
| 37 |
/* programme principal */
|
| 38 |
|
| 39 |
void m3d_analyse(void)
|
| 40 |
{
|
| 41 |
struct s_tetra *tet;
|
| 42 |
struct s_noeud *no1,*no2,*no3,*no4;
|
| 43 |
float a,b,poids_gauss[4],xsi_gauss[4],eta_gauss[4],zeta_gauss[4];
|
| 44 |
float total_integ,integ;
|
| 45 |
float n1n2[4],n1n3[4],n1n4[4],vec[4];
|
| 46 |
float det_j,facteur;
|
| 47 |
float x,y,z,dens;
|
| 48 |
int i,j,n;
|
| 49 |
char mess[255];
|
| 50 |
|
| 51 |
a=0.1381966012;
|
| 52 |
b=0.5854101965;
|
| 53 |
poids_gauss[0]=0.041666666666666;xsi_gauss[0]=a;eta_gauss[0]=a;zeta_gauss[0]=a;
|
| 54 |
poids_gauss[1]=0.041666666666666;xsi_gauss[1]=a;eta_gauss[1]=a;zeta_gauss[1]=b;
|
| 55 |
poids_gauss[2]=0.041666666666666;xsi_gauss[2]=a;eta_gauss[2]=b;zeta_gauss[2]=a;
|
| 56 |
poids_gauss[3]=0.041666666666666;xsi_gauss[3]=b;eta_gauss[3]=a;zeta_gauss[3]=a;
|
| 57 |
total_integ=0.;
|
| 58 |
|
| 59 |
for (i=0;i<mesh->nb_tetra;i++)
|
| 60 |
{
|
| 61 |
tet=ADRESSE(i,tetra,mesh->);
|
| 62 |
no1=ADRESSE(tet->n1,noeud,mesh->);
|
| 63 |
no2=ADRESSE(tet->n2,noeud,mesh->);
|
| 64 |
no3=ADRESSE(tet->n3,noeud,mesh->);
|
| 65 |
no4=ADRESSE(tet->n4,noeud,mesh->);
|
| 66 |
VEC(n1n2,no1,no2);
|
| 67 |
VEC(n1n3,no1,no3);
|
| 68 |
VEC(n1n4,no1,no4);
|
| 69 |
PVEC(vec,n1n2,n1n3);
|
| 70 |
det_j=PSCA(vec,n1n4);
|
| 71 |
facteur=8.485281374*det_j;
|
| 72 |
integ=0.;
|
| 73 |
for (j=0;j<4;j++)
|
| 74 |
{
|
| 75 |
x=(1-xsi_gauss[j]-eta_gauss[j]-zeta_gauss[j])*no1->x+xsi_gauss[j]*no2->x+eta_gauss[j]*no3->x+zeta_gauss[j]*no4->x;
|
| 76 |
y=(1-xsi_gauss[j]-eta_gauss[j]-zeta_gauss[j])*no1->y+xsi_gauss[j]*no2->y+eta_gauss[j]*no3->y+zeta_gauss[j]*no4->y;
|
| 77 |
z=(1-xsi_gauss[j]-eta_gauss[j]-zeta_gauss[j])*no1->z+xsi_gauss[j]*no2->z+eta_gauss[j]*no3->z+zeta_gauss[j]*no4->z;
|
| 78 |
dens=eval_fdn3(x,y,z);
|
| 79 |
dens=dens*dens*dens;
|
| 80 |
integ=integ+poids_gauss[j]*facteur/dens;
|
| 81 |
}
|
| 82 |
total_integ=total_integ+integ;
|
| 83 |
}
|
| 84 |
n=(int)floor(total_integ);
|
| 85 |
if (total_integ-n>0.5) n++;
|
| 86 |
sprintf(mess,M2D_ANA_RES1,n,mesh->nb_tetra);
|
| 87 |
aff_text(mess);
|
| 88 |
sprintf(mess,M2D_ANA_RES2,(n-mesh->nb_tetra)*1.0/n);
|
| 89 |
aff_text(mess);
|
| 90 |
}
|
