ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magic/lib/mailleur/src/mailleur3d_outil.cpp
Revision: 35
Committed: Thu Aug 16 21:24:14 2007 UTC (17 years, 9 months ago) by francois
Original Path: magic/lib/mailleur/mailleur/src/mailleur3d_outil.cpp
File size: 38555 byte(s)
Log Message:
Mailleur 3D + divers bugs + origine des elements de maillages

File Contents

# User Rev Content
1 5 //------------------------------------------------------------
2     //------------------------------------------------------------
3     // MAGiC
4     // Jean Christophe Cuillière et Vincent FRANCOIS
5     // Département de Génie Mécanique - UQTR
6     //------------------------------------------------------------
7     // Le projet MAGIC est un projet de recherche du département
8     // de génie mécanique de l'Université du Québec à
9     // Trois Rivières
10     // Les librairies ne peuvent être utilisées sans l'accord
11     // des auteurs (contact : francois@uqtr.ca)
12     //------------------------------------------------------------
13     //------------------------------------------------------------
14     //
15     // mailleur3d_outil.cpp
16     //
17     //------------------------------------------------------------
18     //------------------------------------------------------------
19     // COPYRIGHT 2000
20     // Version du 02/03/2006 à 11H23
21     //------------------------------------------------------------
22     //------------------------------------------------------------
23    
24    
25     #include "gestionversion.h"
26    
27    
28     //#pragma hdrstop
29    
30     #include <math.h>
31     #include <time.h>
32     #include "mailleur3d.h"
33 francois 35 #include "mailleur3d_front.h"
34 5 #include "ot_mathematique.h"
35     #include "m3d_noeud.h"
36     #include "m3d_tetra.h"
37     #include "m3d_triangle.h"
38     #include "const.h"
39    
40     //---------------------------------------------------------------------------
41    
42     //#pragma package(smart_init)
43    
44    
45    
46    
47    
48    
49    
50     double MAILLEUR3D::angle_front(MG_FRONT_3D* ft1,MG_FRONT_3D* ft2)
51     {
52     MG_NOEUD* noeud1=ft1->get_noeud1();
53     MG_NOEUD* noeud2=ft1->get_noeud2();
54     MG_NOEUD* noeud3=ft1->get_noeud3();
55     MG_NOEUD* noeud4=ft2->get_noeud1();
56     MG_NOEUD* noeud5=ft2->get_noeud2();
57     MG_NOEUD* noeud6=ft2->get_noeud3();
58    
59     MG_NOEUD* noeuda;
60     MG_NOEUD* noeudb;
61     MG_NOEUD* noeudc;
62     MG_NOEUD* noeudd;
63    
64    
65     if (!(noeud1==noeud4))
66     if (!(noeud1==noeud5))
67     if (!(noeud1==noeud6))
68     {
69     noeuda=noeud1;
70     noeudb=noeud2;
71     noeudc=noeud3;
72     }
73     if (!(noeud2==noeud4))
74     if (!(noeud2==noeud5))
75     if (!(noeud2==noeud6))
76     {
77     noeuda=noeud2;
78     noeudb=noeud1;
79     noeudc=noeud3;
80     }
81     if (!(noeud3==noeud4))
82     if (!(noeud3==noeud5))
83     if (!(noeud3==noeud6))
84     {
85     noeuda=noeud3;
86     noeudb=noeud1;
87     noeudc=noeud2;
88     }
89    
90     if (!(noeud4==noeudb))
91     if (!(noeud4==noeudc)) noeudd=noeud4;
92     if (!(noeud5==noeudb))
93     if (!(noeud5==noeudc)) noeudd=noeud5;
94     if (!(noeud6==noeudb))
95     if (!(noeud6==noeudc)) noeudd=noeud6;
96    
97     OT_VECTEUR_3D milieu(0.5*(noeudb->get_x()+noeudc->get_x()),0.5*(noeudb->get_y()+noeudc->get_y()),0.5*(noeudb->get_z()+noeudc->get_z()));
98     OT_VECTEUR_3D bc(noeudc->get_x()-noeudb->get_x(),noeudc->get_y()-noeudb->get_y(),noeudc->get_z()-noeudb->get_z());
99     bc.norme();
100     double xyz[3];
101     xyz[0]=noeuda->get_x();
102     xyz[1]=noeuda->get_y();
103     xyz[2]=noeuda->get_z();
104     OT_VECTEUR_3D n1(xyz,milieu.get_xyz());
105     n1.norme();
106     OT_VECTEUR_3D n=bc&n1;
107     n1=n&bc;
108     n1.norme();
109     xyz[0]=noeudd->get_x();
110     xyz[1]=noeudd->get_y();
111     xyz[2]=noeudd->get_z();
112     OT_VECTEUR_3D n2(xyz,milieu.get_xyz());
113     n2.norme();
114     n=bc&n2;
115     n2=n&bc;
116     n2.norme();
117    
118     double ps=n1*n2;
119     if (ps>1.) ps=1.;
120     if (ps<-1.) ps=-1.;
121     double angle=acos(ps);
122     OT_VECTEUR_3D n1n2(noeud2->get_x()-noeud1->get_x(),noeud2->get_y()-noeud1->get_y(),noeud2->get_z()-noeud1->get_z());
123     OT_VECTEUR_3D n1n3(noeud3->get_x()-noeud1->get_x(),noeud3->get_y()-noeud1->get_y(),noeud3->get_z()-noeud1->get_z());
124     OT_VECTEUR_3D nbnd(noeudd->get_x()-noeudb->get_x(),noeudd->get_y()-noeudb->get_y(),noeudd->get_z()-noeudb->get_z());
125     n=n1n2&n1n3;
126     n.norme();
127     nbnd.norme();
128    
129     ps=n*nbnd;
130     if (ps<-0.0001) angle=2*M_PI-angle;
131     return angle;
132    
133    
134     }
135    
136    
137    
138     double MAILLEUR3D::angle_front(MG_FRONT_3D* ft,MG_SEGMENT* seg)
139     {
140     MG_NOEUD* noeud1;
141     MG_NOEUD* noeud2;
142     MG_NOEUD* noeud3;
143     MG_NOEUD* noeud4;
144    
145    
146     if (seg->get_noeud1()==ft->get_noeud1())
147     {
148     noeud1=ft->get_noeud1();
149     noeud2=ft->get_noeud2();
150     noeud3=ft->get_noeud3();
151     noeud4=seg->get_noeud2();
152     }
153     if (seg->get_noeud1()==ft->get_noeud2())
154     {
155     noeud1=ft->get_noeud2();
156     noeud2=ft->get_noeud3();
157     noeud3=ft->get_noeud1();
158     noeud4=seg->get_noeud2();
159     }
160     if (seg->get_noeud1()==ft->get_noeud3())
161     {
162     noeud1=ft->get_noeud3();
163     noeud2=ft->get_noeud1();
164     noeud3=ft->get_noeud2();
165     noeud4=seg->get_noeud2();
166     }
167     if (seg->get_noeud2()==ft->get_noeud1())
168     {
169     noeud1=ft->get_noeud1();
170     noeud2=ft->get_noeud2();
171     noeud3=ft->get_noeud3();
172     noeud4=seg->get_noeud1();
173     }
174     if (seg->get_noeud2()==ft->get_noeud2())
175     {
176     noeud1=ft->get_noeud2();
177     noeud2=ft->get_noeud3();
178     noeud3=ft->get_noeud1();
179     noeud4=seg->get_noeud1();
180     }
181     if (seg->get_noeud2()==ft->get_noeud3())
182     {
183     noeud1=ft->get_noeud3();
184     noeud2=ft->get_noeud1();
185     noeud3=ft->get_noeud2();
186     noeud4=seg->get_noeud1();
187     }
188    
189     OT_VECTEUR_3D n1n2(noeud2->get_x()-noeud1->get_x(),noeud2->get_y()-noeud1->get_y(),noeud2->get_z()-noeud1->get_z());
190     OT_VECTEUR_3D n1n3(noeud3->get_x()-noeud1->get_x(),noeud3->get_y()-noeud1->get_y(),noeud3->get_z()-noeud1->get_z());
191     OT_VECTEUR_3D n1n4(noeud4->get_x()-noeud1->get_x(),noeud4->get_y()-noeud1->get_y(),noeud4->get_z()-noeud1->get_z());
192     OT_VECTEUR_3D n1n=n1n2&n1n3;
193     OT_MATRICE_3D mat(n1n2,n1n3,n1n);
194     OT_MATRICE_3D matx(n1n4,n1n3,n1n);
195     OT_MATRICE_3D maty(n1n2,n1n4,n1n);
196     OT_MATRICE_3D matz(n1n2,n1n3,n1n4);
197     double det=mat.get_determinant();
198     double xsi=matx.get_determinant()/det;
199     double eta=maty.get_determinant()/det;
200     double psi=matz.get_determinant()/det;
201    
202     double proj[3];
203     proj[0]=(1.-xsi-eta)*noeud1->get_x()+xsi*noeud2->get_x()+eta*noeud3->get_x();
204     proj[1]=(1.-xsi-eta)*noeud1->get_y()+xsi*noeud2->get_y()+eta*noeud3->get_y();
205     proj[2]=(1.-xsi-eta)*noeud1->get_z()+xsi*noeud2->get_z()+eta*noeud3->get_z();
206     OT_VECTEUR_3D n1nproj(noeud1->get_x()-proj[0],noeud1->get_y()-proj[1],noeud1->get_z()-proj[2]);
207     //n1n4.norme();
208     //n1nproj.norme();
209     double ps=n1n4*n1nproj;
210     if (!(OPERATEUR::egal(ps,0.0,0.0001))) ps=ps/n1n4.get_longueur()/n1nproj.get_longueur(); else ps=0.;
211     if (ps>1.) ps=1.;
212     if (ps<-1.) ps=-1.;
213     double angle=acos(ps);
214     if ((xsi<0.) || (eta<0.) ) angle=angle+M_PI/2.;
215     if (psi<0.) angle=2*M_PI-angle;
216     return angle;
217    
218     }
219    
220    
221    
222    
223    
224     class MG_TETRA* MAILLEUR3D::insere_tetra(class MG_VOLUME* mgvol,class MG_FRONT_3D* ft,MG_NOEUD* noeud4,int type,TPL_MAP_ENTITE<class MG_TRIANGLE*>& liste_intersection)
225     {
226     clock_t cpu1=clock(); //debug
227     liste_intersection.vide();
228     MG_NOEUD* noeud1=ft->get_noeud1();
229     MG_NOEUD* noeud2=ft->get_noeud2();
230     MG_NOEUD* noeud3=ft->get_noeud3();
231    
232     // existence du tetra
233     MG_NOEUD* noeud;
234     MG_TETRA* tet=mg_maillage->get_mg_tetra(noeud1->get_id(),noeud2->get_id(),noeud3->get_id(),noeud4->get_id());
235     if (tet!=NULL)
236     {
237     clock_t cpu2=clock(); //debug
238     cpu[11]=cpu[11]+(cpu2-cpu1)/CLK_TCK;
239     nbfois[11]++;
240    
241     return NULL;
242     }
243     // validité de la solution
244     TPL_MAP_ENTITE<MG_FRONT_3D*> liste;
245     double x=0.25*(noeud1->get_x()+noeud2->get_x()+noeud3->get_x()+noeud4->get_x());
246     double y=0.25*(noeud1->get_y()+noeud2->get_y()+noeud3->get_y()+noeud4->get_y());
247     double z=0.25*(noeud1->get_z()+noeud2->get_z()+noeud3->get_z()+noeud4->get_z());
248     double longueur=1.2*sqrt((x-noeud1->get_x())*(x-noeud1->get_x())+(y-noeud1->get_y())*(y-noeud1->get_y())+(z-noeud1->get_z())*(z-noeud1->get_z()));
249     octree_de_front->rechercher(x,y,z,longueur,liste);
250     int nb_liste=liste.get_nb();
251     for (int i=0;i<nb_liste;i++)
252     {
253     MG_FRONT_3D* fttmp=liste.get(i);
254     clock_t cpu11=clock(); //debug
255    
256     int inter=inter_tetra_triangle(noeud1,noeud2,noeud3,noeud4,fttmp->get_noeud1(),fttmp->get_noeud2(),fttmp->get_noeud3());
257     clock_t cpu22=clock(); //debug
258     cpu[12]=cpu[12]+(cpu22-cpu11)/CLK_TCK;
259     nbfois[12]++;
260    
261     if (inter==true)
262     liste_intersection.ajouter(fttmp->get_triangle());
263     }
264     int nb_inter=liste_intersection.get_nb();
265     if (nb_inter>0)
266     {
267     clock_t cpu2=clock(); //debug
268     cpu[11]=cpu[11]+(cpu2-cpu1)/CLK_TCK;
269     nbfois[11]++;
270     return NULL;
271     }
272     // evaluation de la situation locale on ne cree pas deux tetra voisin de volume presque nul
273     MG_TRIANGLE* triangle1=mg_maillage->get_mg_triangle(noeud1->get_id(),noeud3->get_id(),noeud2->get_id());
274     MG_TRIANGLE* triangle2=mg_maillage->get_mg_triangle(noeud1->get_id(),noeud2->get_id(),noeud4->get_id());
275     MG_TRIANGLE* triangle3=mg_maillage->get_mg_triangle(noeud2->get_id(),noeud3->get_id(),noeud4->get_id());
276     MG_TRIANGLE* triangle4=mg_maillage->get_mg_triangle(noeud1->get_id(),noeud4->get_id(),noeud3->get_id());
277     double vol1=-1.;
278     double vol2=-1.;
279     double vol3=-1.;
280     double vol4=-1.;
281     if (type==GENERATION_NOEUD)
282     {
283     if (triangle1!=NULL)
284     if (triangle1->get_type_entite()==IDM3D_TRIANGLE)
285     {
286     M3D_TRIANGLE* tri=(M3D_TRIANGLE*)triangle1;
287     MG_TETRA* tet=tri->get_voisin(0);
288     if (tet->get_type_entite()==IDM3D_TETRA)
289     {
290     M3D_TETRA* mtet=(M3D_TETRA*)tet;
291     vol1=mtet->get_volume();
292     }
293     }
294     if (triangle2!=NULL)
295     if (triangle2->get_type_entite()==IDM3D_TRIANGLE)
296     {
297     M3D_TRIANGLE* tri=(M3D_TRIANGLE*)triangle2;
298     MG_TETRA* tet=tri->get_voisin(0);
299     if (tet->get_type_entite()==IDM3D_TETRA)
300     {
301     M3D_TETRA* mtet=(M3D_TETRA*)tet;
302     vol2=mtet->get_volume();
303     }
304     }
305     if (triangle3!=NULL)
306     if (triangle3->get_type_entite()==IDM3D_TRIANGLE)
307     {
308     M3D_TRIANGLE* tri=(M3D_TRIANGLE*)triangle3;
309     MG_TETRA* tet=tri->get_voisin(0);
310     if (tet->get_type_entite()==IDM3D_TETRA)
311     {
312     M3D_TETRA* mtet=(M3D_TETRA*)tet;
313     vol3=mtet->get_volume();
314     }
315     }
316     if (triangle4!=NULL)
317     if (triangle4->get_type_entite()==IDM3D_TRIANGLE)
318     {
319     M3D_TRIANGLE* tri=(M3D_TRIANGLE*)triangle4;
320     MG_TETRA* tet=tri->get_voisin(0);
321     if (tet->get_type_entite()==IDM3D_TETRA)
322     {
323     M3D_TETRA* mtet=(M3D_TETRA*)tet;
324     vol4=mtet->get_volume();
325     }
326     }
327     double vol=calcule_volume(noeud1,noeud2,noeud3,noeud4);
328     // calcul du vol du tetra ideal
329     OT_VECTEUR_3D ab(noeud2->get_x()-noeud1->get_x(),noeud2->get_y()-noeud1->get_y(),noeud2->get_z()-noeud1->get_z());
330     OT_VECTEUR_3D ac(noeud3->get_x()-noeud1->get_x(),noeud3->get_y()-noeud1->get_y(),noeud3->get_z()-noeud1->get_z());
331     OT_VECTEUR_3D da(noeud1->get_x()-noeud4->get_x(),noeud1->get_y()-noeud4->get_y(),noeud1->get_z()-noeud4->get_z());
332     OT_VECTEUR_3D vec=ab&ac;
333     vec.norme();
334     double lg_tet_ideal=fabs(vec*da*ft->get_ifail()*sqrt(3./2.));
335     double vol_ideal=sqrt(2.)/12.*lg_tet_ideal*lg_tet_ideal*lg_tet_ideal;
336     if (vol<0.1*vol_ideal)
337     {
338     if ((vol1>0.) && (vol1<0.1*vol_ideal)) {clock_t cpu2=clock(); //debug
339     cpu[11]=cpu[11]+(cpu2-cpu1)/CLK_TCK;
340     nbfois[11]++;
341     return NULL;}
342     if ((vol2>0.) && (vol2<0.1*vol_ideal)) {clock_t cpu2=clock(); //debug
343     cpu[11]=cpu[11]+(cpu2-cpu1)/CLK_TCK;
344     nbfois[11]++;
345     return NULL;}
346     if ((vol3>0.) && (vol3<0.1*vol_ideal)) {clock_t cpu2=clock(); //debug
347     cpu[11]=cpu[11]+(cpu2-cpu1)/CLK_TCK;
348     nbfois[11]++;
349     return NULL;}
350     if ((vol4>0.) && (vol4<0.1*vol_ideal)) {clock_t cpu2=clock(); //debug
351     cpu[11]=cpu[11]+(cpu2-cpu1)/CLK_TCK;
352     nbfois[11]++;
353     return NULL;}
354     }
355     }
356    
357    
358    
359    
360     // insertion du tetra
361     if (triangle1==NULL) triangle1=insere_triangle(mgvol,noeud1,noeud3,noeud2);
362     if (triangle2==NULL) triangle2=insere_triangle(mgvol,noeud1,noeud2,noeud4);
363     if (triangle3==NULL) triangle3=insere_triangle(mgvol,noeud2,noeud3,noeud4);
364     if (triangle4==NULL) triangle4=insere_triangle(mgvol,noeud1,noeud4,noeud3);
365     MG_TETRA* tetra=cree_tetra(mgvol,noeud1,noeud2,noeud3,noeud4,triangle1,triangle2,triangle3,triangle4);
366     mg_maillage->ajouter_mg_tetra(tetra);
367     if (triangle1->get_type_entite()==IDM3D_TRIANGLE)
368     {
369     M3D_TRIANGLE* tri=(M3D_TRIANGLE*)triangle1;
370     tri->ajouter_voisin(tetra);
371     }
372     if (triangle2->get_type_entite()==IDM3D_TRIANGLE)
373     {
374     M3D_TRIANGLE* tri=(M3D_TRIANGLE*)triangle2;
375     tri->ajouter_voisin(tetra);
376     }
377     if (triangle3->get_type_entite()==IDM3D_TRIANGLE)
378     {
379     M3D_TRIANGLE* tri=(M3D_TRIANGLE*)triangle3;
380     tri->ajouter_voisin(tetra);
381     }
382     if (triangle4->get_type_entite()==IDM3D_TRIANGLE)
383     {
384     M3D_TRIANGLE* tri=(M3D_TRIANGLE*)triangle4;
385     tri->ajouter_voisin(tetra);
386     }
387     clock_t cpu2=clock(); //debug
388     cpu[11]=cpu[11]+(cpu2-cpu1)/CLK_TCK;
389     nbfois[11]++;
390    
391     return tetra;
392    
393     }
394    
395    
396    
397     class MG_TRIANGLE* MAILLEUR3D::insere_triangle(class MG_VOLUME* mgvol,MG_NOEUD* noeud1,MG_NOEUD* noeud2,MG_NOEUD* noeud3)
398     {
399     clock_t cpu1=clock(); //debug
400     // existence du triangle
401     MG_TRIANGLE* triangle=mg_maillage->get_mg_triangle(noeud1->get_id(),noeud3->get_id(),noeud2->get_id());
402     if (triangle!=NULL) return NULL;
403     // insertion du triangle
404     MG_SEGMENT* segment1=mg_maillage->get_mg_segment(noeud1->get_id(),noeud2->get_id());
405     MG_SEGMENT* segment2=mg_maillage->get_mg_segment(noeud1->get_id(),noeud3->get_id());
406     MG_SEGMENT* segment3=mg_maillage->get_mg_segment(noeud2->get_id(),noeud3->get_id());
407     if (segment1==NULL) segment1=cree_segment(mgvol,noeud1,noeud2);
408     if (segment2==NULL) segment2=cree_segment(mgvol,noeud1,noeud3);
409     if (segment3==NULL) segment3=cree_segment(mgvol,noeud2,noeud3);
410     MG_TRIANGLE* tri=cree_triangle(mgvol,noeud1,noeud2,noeud3,segment1,segment2,segment3);
411     clock_t cpu2=clock(); //debug
412     cpu[6]=cpu[6]+(cpu2-cpu1)/CLK_TCK;
413     nbfois[6]++;
414     return tri;
415     }
416    
417    
418    
419     class MG_SEGMENT* MAILLEUR3D::insere_segment(class MG_VOLUME* mgvol,MG_NOEUD* noeud1,MG_NOEUD* noeud2)
420     {
421     clock_t cpu1=clock(); //debug
422     //existence du segment
423     MG_SEGMENT* segment=mg_maillage->get_mg_segment(noeud1->get_id(),noeud2->get_id());
424     if (segment!=NULL) return NULL;
425     // insertion du segment
426     MG_SEGMENT* seg=cree_segment(mgvol,noeud1,noeud2);
427     clock_t cpu2=clock(); //debug
428     cpu[7]=cpu[7]+(cpu2-cpu1)/CLK_TCK;
429     nbfois[7]++;
430     return seg;
431     }
432    
433    
434    
435    
436     MG_TETRA* MAILLEUR3D::cree_tetra(class MG_VOLUME* mgvol,MG_NOEUD* noeud1,MG_NOEUD* noeud2,MG_NOEUD* noeud3,MG_NOEUD* noeud4,MG_TRIANGLE* triangle1,MG_TRIANGLE* triangle2,MG_TRIANGLE* triangle3,MG_TRIANGLE* triangle4)
437     {
438     M3D_TETRA* tetra=new M3D_TETRA(mgvol,noeud1,noeud2,noeud3,noeud4,triangle1,triangle2,triangle3,triangle4);
439     mg_maillage->ajouter_mg_tetra(tetra);
440     return tetra;
441     }
442    
443    
444     MG_TRIANGLE* MAILLEUR3D::cree_triangle(class MG_VOLUME* mgvol,MG_NOEUD* noeud1,MG_NOEUD* noeud2,MG_NOEUD* noeud3,MG_SEGMENT* segment1,MG_SEGMENT* segment2,MG_SEGMENT* segment3)
445     {
446     M3D_TRIANGLE* tri=new M3D_TRIANGLE(mgvol,noeud1,noeud2,noeud3,segment1,segment2,segment3);
447     mg_maillage->ajouter_mg_triangle(tri);
448     return tri;
449     }
450    
451    
452    
453     MG_SEGMENT* MAILLEUR3D::cree_segment(class MG_VOLUME* mgvol,MG_NOEUD* noeud1,MG_NOEUD* noeud2)
454     {
455 francois 35 MG_SEGMENT* seg=mg_maillage->ajouter_mg_segment(mgvol,noeud1,noeud2,MAILLEUR_AUTO);
456 5 return seg;
457     }
458    
459    
460    
461     double MAILLEUR3D::calcule_volume(MG_NOEUD* noeud1,MG_NOEUD* noeud2,MG_NOEUD* noeud3,MG_NOEUD* noeud4)
462     {
463     OT_VECTEUR_3D ab(noeud2->get_x()-noeud1->get_x(),noeud2->get_y()-noeud1->get_y(),noeud2->get_z()-noeud1->get_z());
464     OT_VECTEUR_3D ac(noeud3->get_x()-noeud1->get_x(),noeud3->get_y()-noeud1->get_y(),noeud3->get_z()-noeud1->get_z());
465     OT_VECTEUR_3D da(noeud1->get_x()-noeud4->get_x(),noeud1->get_y()-noeud4->get_y(),noeud1->get_z()-noeud4->get_z());
466    
467     OT_VECTEUR_3D pvec=ab&ac;
468     double volume=pvec*da;
469     volume=fabs(volume)/3.;
470     return volume;
471     }
472    
473    
474    
475     double MAILLEUR3D::calcule_longueur_caracteristique(MG_NOEUD* noeud1,MG_NOEUD* noeud2,MG_NOEUD* noeud3,MG_NOEUD* noeud4)
476     {
477    
478     OT_VECTEUR_3D ab(noeud2->get_x()-noeud1->get_x(),noeud2->get_y()-noeud1->get_y(),noeud2->get_z()-noeud1->get_z());
479     double lg=ab.get_longueur();
480     int nb=1;
481     if (noeud3!=NULL)
482     {
483     OT_VECTEUR_3D ac(noeud3->get_x()-noeud1->get_x(),noeud3->get_y()-noeud1->get_y(),noeud3->get_z()-noeud1->get_z());
484     OT_VECTEUR_3D bc(noeud3->get_x()-noeud2->get_x(),noeud3->get_y()-noeud2->get_y(),noeud3->get_z()-noeud2->get_z());
485     lg=lg+ac.get_longueur()+bc.get_longueur();
486     nb=3;
487     }
488     if (noeud4!=NULL)
489     {
490     OT_VECTEUR_3D da(noeud1->get_x()-noeud4->get_x(),noeud1->get_y()-noeud4->get_y(),noeud1->get_z()-noeud4->get_z());
491     OT_VECTEUR_3D bd(noeud4->get_x()-noeud2->get_x(),noeud4->get_y()-noeud2->get_y(),noeud4->get_z()-noeud2->get_z());
492     OT_VECTEUR_3D cd(noeud4->get_x()-noeud3->get_x(),noeud4->get_y()-noeud3->get_y(),noeud4->get_z()-noeud3->get_z());
493     lg=lg+da.get_longueur()+bd.get_longueur()+cd.get_longueur();
494     nb=6;
495     }
496     lg=lg*1./nb;
497     return lg;
498    
499     }
500    
501    
502    
503    
504 francois 35 int MAILLEUR3D::genere_noeud(MG_VOLUME* mgvol,MG_FRONT_3D* ft,TPL_MAP_ENTITE<MG_NOEUD*> &liste_noeud,std::vector<CAS_FRONT*> &liste_cas)
505 5 {
506     clock_t cpu1=clock(); //debug
507     MG_NOEUD* noeud1=ft->get_noeud1();
508     MG_NOEUD* noeud2=ft->get_noeud2();
509     MG_NOEUD* noeud3=ft->get_noeud3();
510     OT_VECTEUR_3D n1n2(noeud2->get_x()-noeud1->get_x(),noeud2->get_y()-noeud1->get_y(),noeud2->get_z()-noeud1->get_z());
511     OT_VECTEUR_3D n1n3(noeud3->get_x()-noeud1->get_x(),noeud3->get_y()-noeud1->get_y(),noeud3->get_z()-noeud1->get_z());
512     OT_VECTEUR_3D normal=n1n2&n1n3;
513     normal.norme();
514     double xyz1[3]={noeud1->get_x(),noeud1->get_y(),noeud1->get_z()};
515     double xyz2[3]={noeud2->get_x(),noeud2->get_y(),noeud2->get_z()};
516     double xyz3[3]={noeud3->get_x(),noeud3->get_y(),noeud3->get_z()};
517 francois 35 double hauteur=0.81649658*ft->get_triangle()->get_longueur();
518     double xyzg[3]={0.333333333333*(xyz1[0]+xyz2[0]+xyz3[0]),0.333333333333*(xyz1[1]+xyz2[1]+xyz3[1]),0.333333333333*(xyz1[2]+xyz2[2]+xyz3[2])};
519     double xyz4[3]={xyzg[0]+hauteur*normal.get_x(),xyzg[1]+hauteur*normal.get_y(),xyzg[2]+hauteur*normal.get_z()};
520     double l1=calcul_distance_metrique(xyz1,xyz2);
521     double l2=calcul_distance_metrique(xyz1,xyz3);
522     double l3=calcul_distance_metrique(xyz2,xyz3);
523     double l=0.333333333333333*(l1+l2+l3);
524     double longueur_desiree=0.81649658*(priorite_metrique+(1-priorite_metrique)*l);
525     longueur_desiree=longueur_desiree/ft->get_ifail();
526     ajuste_distance_metrique(xyzg,xyz4,longueur_desiree);
527     OT_VECTEUR_3D hauteurajustee(xyzg[0]-xyz4[0],xyzg[1]-xyz4[1],xyzg[2]-xyz4[2]);
528     hauteur=hauteurajustee.get_longueur();
529 5
530     // recherche des voisins
531     TPL_MAP_ENTITE<MG_FRONT_3D*> liste_front;
532     TPL_MAP_ENTITE<MG_FRONT_3D*> liste_front_proche;
533 francois 35 octree_de_front->rechercher(xyz4[0],xyz4[1],xyz4[2],hauteur*1.837117307,liste_front);
534 5 int nb_liste=liste_front.get_nb();
535 francois 35 double disref=(priorite_metrique+(1-priorite_metrique)*l)/ft->get_ifail();
536 5 MG_NOEUD* noeudref=NULL;
537     for (int i=0;i<nb_liste;i++)
538     {
539     MG_FRONT_3D* ft2=liste_front.get(i);
540     for (int j=0;j<3;j++)
541     {
542     MG_NOEUD* noeud_tmp;
543     if (j==0) noeud_tmp=ft2->get_noeud1();
544     if (j==1) noeud_tmp=ft2->get_noeud2();
545     if (j==2) noeud_tmp=ft2->get_noeud3();
546 francois 35 double *xyz_tmp=noeud_tmp->get_coord();
547     double dis=calcul_distance_metrique(xyz_tmp,xyz4,1);
548 5 if (dis<disref)
549     {
550     disref=dis;
551     noeudref=noeud_tmp;
552     }
553     }
554     if (ft2!=ft)
555     {
556 francois 35 double dismin=evaluer_distance_noeud_triangle(xyz4[0],xyz4[1],xyz4[2],ft2->get_triangle());
557     if (dismin<hauteur) liste_front_proche.ajouter(ft2);
558 5 }
559     }
560     // il y a un noeud proche
561     if (noeudref!=NULL)
562 francois 35 {
563     double dis2=calcul_distance_metrique(noeudref->get_coord(),xyzg,2);
564     if (dis2<longueur_desiree*1.5)
565 5 if (noeudref!=noeud1)
566     if (noeudref!=noeud2)
567     if (noeudref!=noeud3)
568     {
569     liste_noeud.ajouter(noeudref);
570     clock_t cpu2=clock(); //debug
571     cpu[8]=cpu[8]+(cpu2-cpu1)/CLK_TCK;
572     nbfois[8]++;
573     return EXISTE;
574     }
575 francois 35 }
576 5 // il n y a pas de noeud proche mais il y a une face proche
577     int nb_proche=liste_front_proche.get_nb();
578 francois 35 int nb_cas=liste_cas.size();
579 5 if (nb_proche>0)
580     {
581     for (int i=0;i<nb_proche;i++)
582     {
583     MG_FRONT_3D* fttmp=liste_front_proche.get(i);
584 francois 35 int ok=0;
585     for (int j=0;j<nb_cas;j++)
586     {
587     MG_NOEUD* casnoeud=liste_cas[j]->mgnoeud;
588     if ((fttmp->get_noeud1()==casnoeud) || (fttmp->get_noeud2()==casnoeud) || (fttmp->get_noeud3()==casnoeud) )
589     {
590     ok=1;
591     break;
592     }
593     }
594     if (ok==1) continue;
595 5 MG_NOEUD* noeudtmp=fttmp->get_noeud1();
596     if (noeudtmp!=noeud1)
597     if (noeudtmp!=noeud2)
598     if (noeudtmp!=noeud3) liste_noeud.ajouter(noeudtmp);
599     noeudtmp=fttmp->get_noeud2();
600     if (noeudtmp!=noeud1)
601     if (noeudtmp!=noeud2)
602     if (noeudtmp!=noeud3) liste_noeud.ajouter(noeudtmp);
603     noeudtmp=fttmp->get_noeud3();
604     if (noeudtmp!=noeud1)
605     if (noeudtmp!=noeud2)
606     if (noeudtmp!=noeud3) liste_noeud.ajouter(noeudtmp);
607    
608     }
609     clock_t cpu2=clock(); //debug
610     cpu[8]=cpu[8]+(cpu2-cpu1)/CLK_TCK;
611     nbfois[8]++;
612 francois 35 if (liste_noeud.get_nb()>0) return MULTIEXISTE;
613 5 }
614     // il faut creer un noeud c est parfait c est qu on veut.
615 francois 35 M3D_NOEUD* nouveau_noeud=new M3D_NOEUD(mgvol,xyz4[0],xyz4[1],xyz4[2]);
616 5 mg_maillage->ajouter_mg_noeud(nouveau_noeud);
617     liste_noeud.ajouter(nouveau_noeud);
618     clock_t cpu2=clock(); //debug
619     cpu[8]=cpu[8]+(cpu2-cpu1)/CLK_TCK;
620     nbfois[8]++;
621     return CREATION;
622     }
623    
624    
625    
626     double MAILLEUR3D::evaluer_distance_noeud_triangle(double x,double y,double z,MG_TRIANGLE* tri)
627     {
628     double eps=0.0001;
629     MG_NOEUD* noeud1=tri->get_noeud1();
630     MG_NOEUD* noeud2=tri->get_noeud2();
631     MG_NOEUD* noeud3=tri->get_noeud3();
632     OT_VECTEUR_3D n1n2(noeud2->get_x()-noeud1->get_x(),noeud2->get_y()-noeud1->get_y(),noeud2->get_z()-noeud1->get_z());
633     OT_VECTEUR_3D n1n3(noeud3->get_x()-noeud1->get_x(),noeud3->get_y()-noeud1->get_y(),noeud3->get_z()-noeud1->get_z());
634     OT_VECTEUR_3D n1n4(x-noeud1->get_x(),y-noeud1->get_y(),z-noeud1->get_z());
635     OT_VECTEUR_3D n1n=n1n2&n1n3;
636     OT_MATRICE_3D matbase(n1n2,n1n3,n1n);
637     OT_MATRICE_3D matxsi(n1n4,n1n3,n1n);
638     OT_MATRICE_3D mateta(n1n2,n1n4,n1n);
639     double xsi=matxsi.get_determinant()/matbase.get_determinant();
640     double eta=mateta.get_determinant()/matbase.get_determinant();
641     double dis;
642     if ((eta>-eps) && (xsi>-eps) && (eta+xsi<1.0+eps))
643     {
644     double xproj=(1-xsi-eta)*noeud1->get_x()+xsi*noeud2->get_x()+eta*noeud3->get_x();
645     double yproj=(1-xsi-eta)*noeud1->get_y()+xsi*noeud2->get_y()+eta*noeud3->get_y();
646     double zproj=(1-xsi-eta)*noeud1->get_z()+xsi*noeud2->get_z()+eta*noeud3->get_z();
647     OT_VECTEUR_3D vec(x-xproj,y-yproj,z-zproj);
648     dis=vec.get_longueur();
649     }
650     else
651     {
652     OT_VECTEUR_3D nn1(x-noeud1->get_x(),y-noeud1->get_y(),z-noeud1->get_z());
653     OT_VECTEUR_3D nn2(x-noeud2->get_x(),y-noeud2->get_y(),z-noeud2->get_z());
654     OT_VECTEUR_3D nn3(x-noeud3->get_x(),y-noeud3->get_y(),z-noeud3->get_z());
655     dis=0.3333333333333*(nn1.get_longueur()+nn2.get_longueur()+nn3.get_longueur());
656     }
657     return dis;
658     }
659    
660    
661     void MAILLEUR3D::detruit_tetra(MG_TRIANGLE* tri)
662     {
663     clock_t cpu1=clock(); //debug
664    
665     M3D_TRIANGLE* mtri;
666     //if (tri->get_type_entite()==IDMG_TRIANGLE) return;
667     //else mtri=(M3D_TRIANGLE*)tri;
668     mtri=(M3D_TRIANGLE*)tri;
669    
670     M3D_TETRA* tet=(M3D_TETRA*)mtri->get_voisin(0);
671     tet->etat_detruit();
672    
673     TPL_MAP_ENTITE<MG_FRONT_3D*> liste_de_front;
674     TPL_MAP_ENTITE<MG_FRONT_3D*> liste_de_front2;
675     MG_FRONT_3D* fttet1=NULL;
676     MG_FRONT_3D* fttet2=NULL;
677     MG_FRONT_3D* fttet3=NULL;
678     MG_FRONT_3D* fttet4=NULL;
679    
680     MG_TRIANGLE* triangle1=tet->get_triangle1();
681     M3D_TRIANGLE* mtriangle=(M3D_TRIANGLE*)triangle1;
682     if (mtriangle->get_etat_front()==FRONT_ACTIF)
683     {
684     MG_FRONT_3D* fttmp=mtriangle->get_mgfront();
685     fttet1=fttmp;
686     liste_de_front.ajouter(fttmp->get_front_voisin(0));
687     liste_de_front.ajouter(fttmp->get_front_voisin(1));
688     liste_de_front.ajouter(fttmp->get_front_voisin(2));
689     //supprimer_front_en_reculant(fttmp);
690     mtriangle->supprimer_voisin(tet);
691     }
692     else
693     {
694     MG_FRONT_3D* ftn1=ajouter_front_courant(PRIORITAIRE,tet->get_noeud1(),tet->get_noeud2(),tet->get_noeud3(),triangle1);
695     ftn1->incremente_ifail();
696     mtriangle->supprimer_voisin(tet);
697     liste_de_front2.ajouter(ftn1);
698     }
699     MG_TRIANGLE* triangle2=tet->get_triangle2();
700     mtriangle=(M3D_TRIANGLE*)triangle2;
701     if (mtriangle->get_etat_front()==FRONT_ACTIF)
702     {
703     MG_FRONT_3D* fttmp=mtriangle->get_mgfront();
704     fttet2=fttmp;
705     liste_de_front.ajouter(fttmp->get_front_voisin(0));
706     liste_de_front.ajouter(fttmp->get_front_voisin(1));
707     liste_de_front.ajouter(fttmp->get_front_voisin(2));
708     //supprimer_front_en_reculant(fttmp);
709     mtriangle->supprimer_voisin(tet);
710     }
711     else
712     {
713     MG_FRONT_3D* ftn1=ajouter_front_courant(PRIORITAIRE,tet->get_noeud1(),tet->get_noeud4(),tet->get_noeud2(),triangle2);
714     ftn1->incremente_ifail();
715     mtriangle->supprimer_voisin(tet);
716     liste_de_front2.ajouter(ftn1);
717     }
718     MG_TRIANGLE* triangle3=tet->get_triangle3();
719     mtriangle=(M3D_TRIANGLE*)triangle3;
720     if (mtriangle->get_etat_front()==FRONT_ACTIF)
721     {
722     MG_FRONT_3D* fttmp=mtriangle->get_mgfront();
723     fttet3=fttmp;
724     liste_de_front.ajouter(fttmp->get_front_voisin(0));
725     liste_de_front.ajouter(fttmp->get_front_voisin(1));
726     liste_de_front.ajouter(fttmp->get_front_voisin(2));
727     //supprimer_front_en_reculant(fttmp);
728     mtriangle->supprimer_voisin(tet);
729     }
730     else
731     {
732     MG_FRONT_3D* ftn1=ajouter_front_courant(PRIORITAIRE,tet->get_noeud2(),tet->get_noeud4(),tet->get_noeud3(),triangle3);
733     ftn1->incremente_ifail();
734     mtriangle->supprimer_voisin(tet);
735     liste_de_front2.ajouter(ftn1);
736     }
737     MG_TRIANGLE* triangle4=tet->get_triangle4();
738     mtriangle=(M3D_TRIANGLE*)triangle4;
739     if (mtriangle->get_etat_front()==FRONT_ACTIF)
740     {
741     MG_FRONT_3D* fttmp=mtriangle->get_mgfront();
742     fttet4=fttmp;
743     liste_de_front.ajouter(fttmp->get_front_voisin(0));
744     liste_de_front.ajouter(fttmp->get_front_voisin(1));
745     liste_de_front.ajouter(fttmp->get_front_voisin(2));
746     //supprimer_front_en_reculant(fttmp);
747     mtriangle->supprimer_voisin(tet);
748     }
749     else
750     {
751     MG_FRONT_3D* ftn1=ajouter_front_courant(PRIORITAIRE,tet->get_noeud1(),tet->get_noeud3(),tet->get_noeud4(),triangle4);
752     ftn1->incremente_ifail();
753     mtriangle->supprimer_voisin(tet);
754     liste_de_front2.ajouter(ftn1);
755     }
756    
757     if (fttet1!=NULL)
758     {
759     liste_de_front.supprimer(fttet1);
760     supprimer_front_en_reculant(fttet1);
761     }
762     if (fttet2!=NULL)
763     {
764     liste_de_front.supprimer(fttet2);
765     supprimer_front_en_reculant(fttet2);
766     }
767     if (fttet3!=NULL)
768     {
769     liste_de_front.supprimer(fttet3);
770     supprimer_front_en_reculant(fttet3);
771     }
772     if (fttet4!=NULL)
773     {
774     liste_de_front.supprimer(fttet4);
775     supprimer_front_en_reculant(fttet4);
776     }
777     int nb_liste1=liste_de_front.get_nb();
778     for (int i=0;i<nb_liste1;i++)
779     if (liste_de_front.get(i)!=NULL)
780     mise_a_jour_voisin_front(liste_de_front.get(i));
781     int nb_liste2=liste_de_front2.get_nb();
782     for (int i=0;i<nb_liste2;i++)
783     {
784     mise_a_jour_voisin_front(liste_de_front2.get(i));
785     mise_a_jour_voisin_front(liste_de_front2.get(i)->get_front_voisin(0));
786     mise_a_jour_voisin_front(liste_de_front2.get(i)->get_front_voisin(1));
787     mise_a_jour_voisin_front(liste_de_front2.get(i)->get_front_voisin(2));
788     }
789    
790     for (int k=0;k<4;k++)
791     {
792     MG_NOEUD* noeud;
793     if (k==0) noeud=tet->get_noeud1();
794     if (k==1) noeud=tet->get_noeud2();
795     if (k==2) noeud=tet->get_noeud3();
796     if (k==3) noeud=tet->get_noeud4();
797     int nb_tet=noeud->get_lien_tetra()->get_nb();
798    
799     if (noeud->get_type_entite()==IDM3D_NOEUD)
800     {
801     int test=false;
802     M3D_NOEUD* mnoeud=(M3D_NOEUD*)noeud;
803     for (int i=0;i<nb_tet;i++)
804     {
805     MG_TETRA* tet=noeud->get_lien_tetra()->get(i);
806     if (tet->get_type_entite()==IDM3D_TETRA)
807     {
808     M3D_TETRA* mtet=(M3D_TETRA*)tet;
809     if (mtet->get_etat()==ACTIF) test=true;
810     }
811     else test=true;
812     }
813     if (test==false) mnoeud->etat_detruit();
814     }
815     }
816     clock_t cpu2=clock();
817     cpu[9]=cpu[9]+(cpu2-cpu1)/CLK_TCK;
818     nbfois[9]++;
819    
820     }
821    
822 francois 35 double MAILLEUR3D::calcul_distance_metrique(MG_SEGMENT* seg,int pas)
823     {
824     double *xyz1=seg->get_noeud1()->get_coord();
825     double *xyz2=seg->get_noeud2()->get_coord();
826     return calcul_distance_metrique(xyz1,xyz2,pas);
827     }
828 5
829 francois 35 double MAILLEUR3D::calcul_distance_metrique(double *xyz1,double* xyz2,int pas)
830     {
831     double longueur=0.;
832     double dxyz[3];
833     dxyz[0]=xyz2[0]-xyz1[0];
834     dxyz[1]=xyz2[1]-xyz1[1];
835     dxyz[2]=xyz2[2]-xyz1[2];
836     for (int i=0;i<pas;i++)
837     {
838     double ti=1.0*i/pas;
839     double tii=1.0*(i+1)/pas;
840     double tgauss1=0.7886751345*tii+0.2113248654*ti;
841     double xyz[3];
842     xyz[0]=xyz1[0]+tgauss1*(xyz2[0]-xyz1[0]);
843     xyz[1]=xyz1[1]+tgauss1*(xyz2[1]-xyz1[1]);
844     xyz[2]=xyz1[2]+tgauss1*(xyz2[2]-xyz1[2]);
845     double tenseur[9];
846     metrique->evaluer(xyz,tenseur);
847     double val= sqrt(dxyz[0]*dxyz[0]*tenseur[0]+dxyz[0]*dxyz[1]*tenseur[3]+dxyz[0]*dxyz[2]*tenseur[6]+dxyz[1]*dxyz[0]*tenseur[1]+dxyz[1]*dxyz[1]*tenseur[4]+dxyz[1]*dxyz[2]*tenseur[7]+dxyz[2]*dxyz[0]*tenseur[2]+dxyz[2]*dxyz[1]*tenseur[5]+dxyz[2]*dxyz[2]*tenseur[8]);
848     longueur=longueur+0.5*(tii-ti)*val;
849     double tgauss2=0.7886751345*ti+0.2113248654*tii;
850     xyz[0]=xyz1[0]+tgauss2*(xyz2[0]-xyz1[0]);
851     xyz[1]=xyz1[1]+tgauss2*(xyz2[1]-xyz1[1]);
852     xyz[2]=xyz1[2]+tgauss2*(xyz2[2]-xyz1[2]);
853     metrique->evaluer(xyz,tenseur);
854     val= sqrt(dxyz[0]*dxyz[0]*tenseur[0]+dxyz[0]*dxyz[1]*tenseur[3]+dxyz[0]*dxyz[2]*tenseur[6]+dxyz[1]*dxyz[0]*tenseur[1]+dxyz[1]*dxyz[1]*tenseur[4]+dxyz[1]*dxyz[2]*tenseur[7]+dxyz[2]*dxyz[0]*tenseur[2]+dxyz[2]*dxyz[1]*tenseur[5]+dxyz[2]*dxyz[2]*tenseur[8]);
855     longueur=longueur+0.5*(tii-ti)*val;
856     }
857     return longueur;
858     }
859 5
860 francois 35 void MAILLEUR3D::ajuste_distance_metrique(double *xyz1,double *xyz2,double longueur_desiree,int pas)
861     {
862     double longueur=0,ancienne_longueur;
863     double ti,tii;
864     double dxyz[3];
865     dxyz[0]=xyz2[0]-xyz1[0];
866     dxyz[1]=xyz2[1]-xyz1[1];
867     dxyz[2]=xyz2[2]-xyz1[2];
868     int i=0;
869     do
870     {
871     ancienne_longueur=longueur;
872     ti=1.0*i/pas;
873     tii=1.0*(i+1)/pas;
874     double tgauss1=0.7886751345*tii+0.2113248654*ti;
875     double xyz[3];
876     xyz[0]=xyz1[0]+tgauss1*(xyz2[0]-xyz1[0]);
877     xyz[1]=xyz1[1]+tgauss1*(xyz2[1]-xyz1[1]);
878     xyz[2]=xyz1[2]+tgauss1*(xyz2[2]-xyz1[2]);
879     double tenseur[9];
880     metrique->evaluer(xyz,tenseur);
881     double val= sqrt(dxyz[0]*dxyz[0]*tenseur[0]+dxyz[0]*dxyz[1]*tenseur[3]+dxyz[0]*dxyz[2]*tenseur[6]+dxyz[1]*dxyz[0]*tenseur[1]+dxyz[1]*dxyz[1]*tenseur[4]+dxyz[1]*dxyz[2]*tenseur[7]+dxyz[2]*dxyz[0]*tenseur[2]+dxyz[2]*dxyz[1]*tenseur[5]+dxyz[2]*dxyz[2]*tenseur[8]);
882     longueur=longueur+0.5*(tii-ti)*val;
883     double tgauss2=0.7886751345*ti+0.2113248654*tii;
884     xyz[0]=xyz1[0]+tgauss2*(xyz2[0]-xyz1[0]);
885     xyz[1]=xyz1[1]+tgauss2*(xyz2[1]-xyz1[1]);
886     xyz[2]=xyz1[2]+tgauss2*(xyz2[2]-xyz1[2]);
887     metrique->evaluer(xyz,tenseur);
888     val= sqrt(dxyz[0]*dxyz[0]*tenseur[0]+dxyz[0]*dxyz[1]*tenseur[3]+dxyz[0]*dxyz[2]*tenseur[6]+dxyz[1]*dxyz[0]*tenseur[1]+dxyz[1]*dxyz[1]*tenseur[4]+dxyz[1]*dxyz[2]*tenseur[7]+dxyz[2]*dxyz[0]*tenseur[2]+dxyz[2]*dxyz[1]*tenseur[5]+dxyz[2]*dxyz[2]*tenseur[8]);
889     longueur=longueur+0.5*(tii-ti)*val;
890     i++;
891     }
892     while (longueur<longueur_desiree);
893     double t=ti+(tii-ti)*(longueur_desiree-ancienne_longueur)/(longueur-ancienne_longueur);
894     xyz2[0]=xyz1[0]+t*(xyz2[0]-xyz1[0]);
895     xyz2[1]=xyz1[1]+t*(xyz2[1]-xyz1[1]);
896     xyz2[2]=xyz1[2]+t*(xyz2[2]-xyz1[2]);
897     }
898    
899 5 void MAILLEUR3D::detruit_element_inactif(void)
900     {
901     clock_t cpu1=clock();
902     int nb_tetra=mg_maillage->get_nb_mg_tetra();
903     int num=0;
904     for (int i=0;i<nb_tetra;i++)
905     {
906     MG_TETRA* tet=mg_maillage->get_mg_tetra(num);
907     M3D_TETRA* mtet=(M3D_TETRA*)tet;
908     if (mtet->get_etat()==DETRUIT)
909     mg_maillage->supprimer_mg_tetra(num);
910     else num++;
911     }
912     int nb_noeud=mg_maillage->get_nb_mg_noeud();
913     num=0;
914     for (int i=0;i<nb_noeud;i++)
915     {
916     MG_NOEUD* noeud=mg_maillage->get_mg_noeud(num);
917     if (noeud->get_type_entite()==IDM3D_NOEUD)
918     {
919     M3D_NOEUD* mnoeud=(M3D_NOEUD*)noeud;
920     if (mnoeud->get_etat()==DETRUIT)
921     mg_maillage->supprimer_mg_noeud(num);
922     else num++;
923     }
924     else num++;
925     }
926    
927     clock_t cpu2=clock();
928     cpu[10]=cpu[10]+(cpu2-cpu1)/CLK_TCK;
929     nbfois[10]++;
930     }
931    
932 francois 35
933    
934     double MAILLEUR3D::calcul_volume_tetra_metrique(MG_TETRA* tet)
935     {
936     double *xyz1=tet->get_noeud1()->get_coord();
937     double *xyz2=tet->get_noeud2()->get_coord();
938     double *xyz3=tet->get_noeud3()->get_coord();
939     double *xyz4=tet->get_noeud4()->get_coord();
940     /*double xyzm[3];
941     double xyzg[3];
942     xyzm[0]=(xyz1[0]+xyz2[0])/2.;
943     xyzm[1]=(xyz1[1]+xyz2[1])/2.;
944     xyzm[2]=(xyz1[2]+xyz2[2])/2.;
945     xyzg[0]=(xyz1[0]+xyz2[0]+xyz3[0])/3.;
946     xyzg[1]=(xyz1[1]+xyz2[1]+xyz3[1])/3.;
947     xyzg[2]=(xyz1[2]+xyz2[2]+xyz3[2])/3.;
948     double base=calcul_distance_metrique(xyz1,xyz2);
949     double hauteur=calcul_distance_metrique(xyzm,xyz3);
950     double hauteur2=calcul_distance_metrique(xyzg,xyz4);
951     double vol=base*hauteur*hauteur2*1.414213562;*/
952     double a=0.1381966012;
953     double b=0.5854101965;
954     double poids_gauss[4],xsi_gauss[4],eta_gauss[4],zeta_gauss[4];
955     poids_gauss[0]=0.041666666666666;xsi_gauss[0]=a;eta_gauss[0]=a;zeta_gauss[0]=a;
956     poids_gauss[1]=0.041666666666666;xsi_gauss[1]=a;eta_gauss[1]=a;zeta_gauss[1]=b;
957     poids_gauss[2]=0.041666666666666;xsi_gauss[2]=a;eta_gauss[2]=b;zeta_gauss[2]=a;
958     poids_gauss[3]=0.041666666666666;xsi_gauss[3]=b;eta_gauss[3]=a;zeta_gauss[3]=a;
959     OT_VECTEUR_3D vec1(xyz1,xyz2);
960     OT_VECTEUR_3D vec2(xyz1,xyz3);
961     OT_VECTEUR_3D vec3(xyz1,xyz4);
962     double facteur=(vec1&vec2)*vec3;
963     double vol=0.;
964     for (int j=0;j<4;j++)
965     {
966     double xyz[3];
967     xyz[0]=(1-xsi_gauss[j]-eta_gauss[j]-zeta_gauss[j])*xyz1[0]+xsi_gauss[j]*xyz2[0]+eta_gauss[j]*xyz3[0]+zeta_gauss[j]*xyz4[0];
968     xyz[1]=(1-xsi_gauss[j]-eta_gauss[j]-zeta_gauss[j])*xyz1[1]+xsi_gauss[j]*xyz2[1]+eta_gauss[j]*xyz3[1]+zeta_gauss[j]*xyz4[1];
969     xyz[2]=(1-xsi_gauss[j]-eta_gauss[j]-zeta_gauss[j])*xyz1[2]+xsi_gauss[j]*xyz2[2]+eta_gauss[j]*xyz3[2]+zeta_gauss[j]*xyz4[2];
970     double tenseur[9];
971     metrique->evaluer(xyz,tenseur);
972     double dens=1/sqrt(tenseur[0]);
973     dens=dens*dens*dens;
974     vol=vol+poids_gauss[j]*facteur*8.485281374/dens;
975     }
976    
977     return vol;
978     }
979    
980    
981     void MAILLEUR3D::analyse_maillage_obtenu(double &vol)
982     {
983     int nb=mg_maillage->get_nb_mg_tetra();
984     vol=0.;
985     for (int i=0;i<nb;i++)
986     {
987     MG_TETRA* tet=mg_maillage->get_mg_tetra(i);
988     vol=vol+calcul_volume_tetra_metrique(tet);
989     }
990     }
991