ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magic/lib/aster/src/mgopt_simp.cpp
Revision: 691
Committed: Mon Jul 13 22:17:05 2015 UTC (9 years, 10 months ago) by francois
File size: 26471 byte(s)
Log Message: 
Sortir des resultats directement en time step sous gmsh. Pour sela faire des fem_solutions sous MAGIC avec un nom de solution pour cahque pas de calcul selon le format suivant : nomsolution%numpas. Les pas doivent commencer 0 et etre incrementé de 1. Il n epeut pas y avoir de trou dans les pas. Faire renumérotation si nécessaire

File Contents

# User Rev Content
1 francois 239 #include "gestionversion.h"
2     #include "mgopt_simp.h"
3     #include "mg_file.h"
4     #include "mg_export.h"
5     #include <string.h>
6 francois 258 #include <math.h>
7 francois 468 #include "fct_taille_fem_solution.h"
8 nana 565 #include "ot_cpu.h"
9 francois 239
10    
11     class SIMP_TETRA
12     {
13     public:
14 francois 309 FEM_ELEMENT3* tet;
15 francois 239 double densite;
16 francois 242 double new_densite;
17 francois 239 int design;
18 francois 242 double new_denergie;
19 francois 239 double energie;
20     double denergie;
21     double volume;
22     int maille_niveau;
23     int indice;
24     double distance_ref;
25 francois 247 double distance_ref2;
26 francois 239 double centre[3];
27     BOITE_3D get_boite_3D(void)
28     {
29     return tet->get_boite_3D();
30     };
31 francois 468 std::vector<SIMP_TETRA*> voisin;
32     std::vector<SIMP_TETRA*> voisin2;
33 francois 239 unsigned long get_id(void) {return tet->get_id();};
34     double distance(SIMP_TETRA* tet2)
35     {
36     double dx=centre[0]-tet2->centre[0];
37     double dy=centre[1]-tet2->centre[1];
38     double dz=centre[2]-tet2->centre[2];
39     return sqrt(dx*dx+dy*dy+dz*dz);
40     };
41     };
42    
43    
44    
45    
46    
47    
48    
49    
50    
51    
52 francois 494 MGOPT_SIMP::MGOPT_SIMP(bool save):MGOPT(save)
53 francois 239 {
54 francois 396 params.ajouter("f",0.3,OT_PARAMETRES::DOUBLE,"Fraction volumique de la methode SIMP");
55     params.ajouter("rminc",0.,OT_PARAMETRES::DOUBLE,"0. Valeur de la carte de taille (si pas de maillage le parametre fichiercarte permet d'utiliser une carte de taille) sinon valeur de rmin pour le lissage de la compliance");
56     params.ajouter("rmind",0.,OT_PARAMETRES::DOUBLE,"0. Valeur de la carte de taille (si pas de maillage le parametre fichiercarte permet d'utiliser une carte de taille) sinon valeur de rmin pour le lissage de la densite");
57     params.ajouter("coefvoisinc",1.0,OT_PARAMETRES::DOUBLE,"Coefficient de multiplication de rminc");
58     params.ajouter("coefvoisind",1.0,OT_PARAMETRES::DOUBLE,"Coefficient de multiplication de rmind");
59     params.ajouter("nbrniveau",150.,OT_PARAMETRES::DOUBLE,"Nombre de matériaux utilisés");
60     params.ajouter("p",3.,OT_PARAMETRES::DOUBLE,"Coefficient de penalite du module d'Young");
61     params.ajouter("ro_void",0.001,OT_PARAMETRES::DOUBLE,"Densite minimale consideree comme nulle");
62     params.ajouter("m",0.2,OT_PARAMETRES::DOUBLE,"Limite d'evolution de densité entre deux itérations");
63     params.ajouter("eta",0.5,OT_PARAMETRES::DOUBLE,"Coefficent d'affectation du beta");
64     params.ajouter("type_lissage",1.,OT_PARAMETRES::DOUBLE,"0. Pas de lissage 1. Lissage de la compliance 2. Lissage de la densité 3. Lissage de la compliance et de la densite");
65     params.ajouter("lissage_densite",1.,OT_PARAMETRES::DOUBLE,"0. Complet 1. Derniere iteration");
66     params.ajouter("type_lissage_densite",1.,OT_PARAMETRES::DOUBLE,"0. Distance 1. Distance pondéré 2. Gaussien 3. Gaussien pondéré");
67     params.ajouter("type_lissage_compliance",1.,OT_PARAMETRES::DOUBLE,"0. Sigmund 1997 1. Sigmund 2007");
68     params.ajouter("kc",1.0,OT_PARAMETRES::DOUBLE,"Ponderation de la distance dans le lissage de la compliance");
69     params.ajouter("kd",1.0,OT_PARAMETRES::DOUBLE,"Ponderation de la distance dans le lissage de la densité");
70     params.ajouter("convergence_lagrange",0.1,OT_PARAMETRES::DOUBLE,"Critere de convergence de la recherche du multiplicateur de Lagrange en \%");
71     params.ajouter("iter_max",50.,OT_PARAMETRES::DOUBLE,"Nombre d'iteration maximale dans le processus SIMP");
72     params.ajouter("critere_convergence",0.5,OT_PARAMETRES::DOUBLE,"Critere de convergence de la méthode SIMP en \%");
73     params.ajouter("ro_min",0.8,OT_PARAMETRES::DOUBLE,"Seuil de conservation des éléments");
74 francois 433 params.ajouter("iter_vue",0.,OT_PARAMETRES::DOUBLE,"generation d'un fichier gmsh tous les iter_vue. 0 pas de generation");
75 nana 565 params.ajouter("type_filtrage",0.,OT_PARAMETRES::DOUBLE,"0. filtrage par distance 1. filtrage par couches");
76 francois 578 params.ajouter("nb_couchesc",1.,OT_PARAMETRES::DOUBLE,"nombre de couches filtrage de la compliance");
77     params.ajouter("nb_couchesd",1.,OT_PARAMETRES::DOUBLE,"nombre de couches filtrage de la densite");
78 francois 239 }
79    
80     MGOPT_SIMP::MGOPT_SIMP(MGOPT_SIMP &mdd):MGOPT(mdd)
81     {
82     }
83    
84    
85     MGOPT_SIMP::~MGOPT_SIMP()
86     {
87     }
88    
89    
90 francois 681 void MGOPT_SIMP::optimisation(int num_adapt,FEM_MAILLAGE* fem,int iter)
91 francois 239 {
92 francois 319 MG_VOLUME* vol=fem->get_mg_geometrie()->get_mg_volume(0);
93 francois 272 affiche((char*)" Initialisation");
94 francois 468 std::vector<SIMP_TETRA*> lsttet;
95 francois 247 double f=params.get_valeur("f");
96     double rminc=params.get_valeur("rminc");
97     double rmind=params.get_valeur("rmind");
98     if (((rminc<1e-16)||(rmind<1e-16)) && (carte==NULL))
99 francois 246 {
100 francois 272 affiche((char*)" Lecture de la carte de taille");
101 francois 468 int typecarte=(int)params.get_valeur("typecarte");
102     std::string fichiercarte=params.get_nom("fichiercarte");
103     if ((typecarte==0) &&(typecarte==1))
104     {
105     carte=new FCT_GENERATEUR_3D<4>;
106     carte->lire((char *)fichiercarte.c_str());
107     }
108     if ((typecarte==2) &&(typecarte==3)) carte=new FCT_TAILLE_FEM_SOLUTION((char *)fichiercarte.c_str());
109     }
110 francois 239 double volume_tot;
111     double volume_design=0;
112     double volume_non_design=0;
113     double unite=fem->get_mg_maillage()->get_mg_geometrie()->get_valeur_unite();
114 francois 309 LISTE_FEM_ELEMENT3::iterator it;
115 francois 239 int ntet=0;
116 francois 309 for (FEM_ELEMENT3* tet=fem->get_premier_element3(it);tet!=NULL;tet=fem->get_suivant_element3(it))
117 francois 239 {
118     SIMP_TETRA* tet2=new SIMP_TETRA;
119     tet2->tet=tet;
120     tet2->tet->change_numero(ntet);
121     ntet++;
122     tet2->centre[0]=0.;
123     tet2->centre[1]=0.;
124     tet2->centre[2]=0.;
125     int nbnoeud=tet->get_nb_fem_noeud();
126     for (int i=0;i<nbnoeud;i++)
127     {
128 francois 242 tet2->centre[0]=tet2->centre[0]+tet->get_fem_noeud(i)->get_x()*unite;
129     tet2->centre[1]=tet2->centre[1]+tet->get_fem_noeud(i)->get_y()*unite;
130     tet2->centre[2]=tet2->centre[2]+tet->get_fem_noeud(i)->get_z()*unite;
131 francois 239 }
132     tet2->centre[0]=tet2->centre[0]/nbnoeud;
133     tet2->centre[1]=tet2->centre[1]/nbnoeud;
134     tet2->centre[2]=tet2->centre[2]/nbnoeud;
135     int lig,col;
136     double jac[9],uv[3]={1./4.,1./4.,1./4.};
137 francois 242 tet2->volume=1./6.*tet->get_jacobien(jac,uv,lig,col,unite);
138 francois 247 tet2->distance_ref=rminc;
139     tet2->distance_ref2=rmind;
140 cuillier 395 double xyz[3]={tet2->centre[0]/unite,tet2->centre[1]/unite,tet2->centre[2]/unite};
141 francois 246 double val[9];
142     if (tet2->distance_ref<1e-16)
143 francois 242 {
144 francois 246 carte->evaluer(xyz,val);
145     tet2->distance_ref=1./sqrt(val[0]);
146 francois 242 }
147 francois 247 if (tet2->distance_ref2<1e-16)
148     {
149     carte->evaluer(xyz,val);
150     tet2->distance_ref2=1./sqrt(val[0]);
151     }
152     tet2->distance_ref=params.get_valeur("coefvoisinc")*tet2->distance_ref*unite;
153     tet2->distance_ref2=params.get_valeur("coefvoisind")*tet2->distance_ref2*unite;
154 francois 239 if (((MG_TETRA*)tet->get_mg_element_maillage())->get_origine()!=IMPOSE)
155     {
156     tet2->design=1;
157 francois 247 tet2->densite=f;
158 francois 239 volume_design=volume_design+tet2->volume;
159     }
160     else
161     {
162     tet2->design=0;
163     tet2->densite=1.;
164     volume_non_design=volume_non_design+tet2->volume;
165     }
166     lsttet.insert(lsttet.end(),tet2);
167     }
168 francois 268 volume_tot=volume_design+volume_non_design;
169 francois 309 double volumemoyen=volume_tot/fem->get_nb_fem_element3();
170 francois 272 affiche((char*)" Recherche de voisins");
171 francois 239 int nbsimptet=lsttet.size();
172 nana 565 if (params.get_valeur("type_filtrage")==0.)
173 francois 239 {
174 nana 565 for (int i=0;i<nbsimptet;i++)
175     {
176     SIMP_TETRA* tet=lsttet[i];
177     if (tet->design==0) continue;
178     ajouter_voisin_distance(i,tet,lsttet);
179     }
180 francois 239 }
181 nana 565 if (params.get_valeur("type_filtrage")==1.)
182     {
183     for (int i=0;i<nbsimptet;i++)
184     {
185     SIMP_TETRA* tet=lsttet[i];
186     if (tet->design==0) continue;
187 francois 578 ajouter_voisin_couche(i,tet,lsttet,params.get_valeur("nb_couchesc"),params.get_valeur("nb_couchesd"));
188 nana 565 }
189     }
190    
191 francois 239 int nbiteration=1;
192     int ok=0;
193     int niveaumax=(int)params.get_valeur("nbrniveau");
194 francois 339 int itervue=(int)params.get_valeur("iter_vue");
195 francois 247 double p=params.get_valeur("p");
196 francois 468 std::vector<double> Ctotiter;
197 francois 239 while (ok==0)
198     {
199 francois 247 if (nbiteration>params.get_valeur("iter_max")) break;
200 francois 239 char message[255];
201 francois 691 if (num_adapt==0) sprintf(message," Iteration \033[1;32m%d\033[1;33m",nbiteration);
202     else sprintf(message," Iteration \033[1;32m%d.%d\033[1;33m",num_adapt,nbiteration);
203 francois 239 affiche(message);
204 francois 468 std::vector<FEM_ELEMENT3*> *lstniveau=new std::vector<FEM_ELEMENT3*>[niveaumax+1];
205 francois 247 double densmin = params.get_valeur("ro_void");
206 francois 239 for (int i=0;i<nbsimptet;i++)
207     {
208     SIMP_TETRA* tet=lsttet[i];
209     tet->maille_niveau=(int)((tet->densite-densmin)*niveaumax/(1.-densmin))+1;
210     if (tet->maille_niveau>niveaumax) tet->maille_niveau=niveaumax;
211     lstniveau[tet->maille_niveau].insert(lstniveau[tet->maille_niveau].end(),tet->tet);
212     }
213     MG_EXPORT exp;
214 francois 512 //int version_aster=params.get_valeur("version_aster");
215 francois 581 double version=exp.aster(vol,fem,nometude,MAGIC::CALCUL_ASTER::OPTIMISATIONTOPOLOGIQUE,(char*)"00000001",p,niveaumax,lstniveau);
216 francois 239 delete [] lstniveau;
217 francois 581 char messagever[255];
218 francois 691 sprintf(messagever," Calcul aster \033[1;32m%.1lf\033[1;33m",version);
219 francois 581 affiche(messagever);
220 francois 239 char nomfichiertmp[255];
221     sprintf(nomfichiertmp,"%s/as_run %s.export 1>aster.log 2>&1",getenv("PATHASTER"),nometude);
222 francois 242 int code=system(nomfichiertmp);
223     if (code!=0)
224     {
225     sprintf(nomfichiertmp," Code de sortie aster : %d",code);
226     affiche(nomfichiertmp);
227     }
228 francois 272 affiche((char*)" Analyse resultat");
229 francois 239 recupere_energie(lsttet);
230     double Ctot=0;
231     for (int i=0;i<nbsimptet;i++)
232     {
233     SIMP_TETRA* tet=lsttet[i];
234 francois 247 tet->denergie= -p*2.*tet->energie/tet->densite;
235 francois 239 Ctot=Ctot+2.*tet->energie;
236     }
237     Ctotiter.insert(Ctotiter.end(),Ctot);
238 francois 691 sprintf(message," Compliance \033[1;31m%le\033[1;33m",Ctot);
239 francois 239 affiche(message);
240     if (nbiteration!=1)
241     {
242     int nb=Ctotiter.size();
243     double c1=Ctotiter[nb-2];
244     double c2=Ctotiter[nb-1];
245     double ecart=fabs((c2-c1)/c1)*100.;
246     if (ecart<params.get_valeur("critere_convergence")) ok=1;
247 francois 691 sprintf(message," Ecart \033[1;31m%lf%%\033[1;33m",ecart);
248 francois 239 affiche(message);
249     }
250 francois 247 // lissage compliance
251     double kc=params.get_valeur("kc");
252 francois 243 int type_lissage =(int)params.get_valeur("type_lissage");
253 francois 247 int lissage_densite =(int)params.get_valeur("lissage_densite");
254     int type_lissage_densite =(int)params.get_valeur("type_lissage_densite");
255 francois 267 int type_lissage_compliance=(int)params.get_valeur("type_lissage_compliance");
256 francois 242 for (int i=0;i<nbsimptet;i++)
257     {
258     SIMP_TETRA* tet=lsttet[i];
259 francois 247 if ((type_lissage==0) || (type_lissage==2))
260 francois 243 tet->new_denergie=tet->denergie;
261 francois 247 if ((type_lissage==1) || (type_lissage==3))
262 francois 242 {
263 francois 243 if (tet->design == 1)
264 francois 242 {
265 francois 247 double hi= pow(tet->distance_ref,kc);
266     double hisensi = hi*tet->densite*tet->denergie;
267 francois 267 if (type_lissage_compliance==1)
268     {
269     hi=hi/tet->volume;
270 francois 268 hisensi=hisensi/max(volumemoyen*0.00001,tet->volume);
271 francois 267 }
272     int nbvoisin=tet->voisin.size();
273 francois 243 for (int j = 0 ; j<nbvoisin ; j++)
274     {
275     SIMP_TETRA* tet2=tet->voisin[j];
276     if (tet2->design == 1)
277     {
278 francois 247 double dist=tet->distance(tet2);
279     double hj =fabs(pow(tet->distance_ref - dist,kc));
280 francois 267 if (type_lissage_compliance==0)
281     {
282     hisensi=hisensi+tet2->densite*hj*tet2->denergie;
283     hi=hi+hj;
284     }
285     if (type_lissage_compliance==1)
286     {
287 francois 268 hisensi=hisensi+tet2->densite*hj*tet2->denergie/max(volumemoyen,tet2->volume);
288 francois 267 hi=hi+hj/tet2->volume;
289     }
290     hisensi=hisensi+tet2->densite*hj*tet2->denergie;
291 francois 247 hi=hi+hj;
292 francois 243 }
293 francois 242 }
294 francois 268 tet->new_denergie = hisensi/hi/max(tet->densite,densmin);
295 francois 243 }
296     else tet->new_denergie=tet->denergie;
297 francois 242 }
298     }
299 francois 239 // application formule pas encore connue
300     double l1= 1e-8 ;
301     double l2= 1e8;
302     double m=params.get_valeur("m");
303 francois 241 double eta=params.get_valeur("eta");
304 francois 242 double convergence_lagrange=params.get_valeur("convergence_lagrange");
305     double critere_densite = 0.0;
306     int oklagrange=0;
307     int compteurlagrange=0;
308     while (oklagrange==0)
309 francois 239 {
310 francois 242 compteurlagrange++;
311     double lmid = 0.5*(l2+l1);
312     critere_densite = 0.0;
313     for (int i=0;i<nbsimptet;i++)
314 francois 239 {
315     SIMP_TETRA* tet=lsttet[i];
316     if (tet->design==1)
317     {
318     double x1 = tet->densite+m;
319 francois 242 double beta=-tet->new_denergie/lmid/tet->volume;
320 francois 241 double x2 = tet->densite*pow(beta,eta);
321     double x3 = min(x1,x2);
322     double x4 = 1.;
323     double x5 = min(x3,x4);
324     double x6 = tet->densite-m;
325     double x7 = max(x5,x6);
326     double x8 = densmin;
327 francois 239 tet->new_densite = max(x7,x8);
328 francois 242 critere_densite = critere_densite + tet->new_densite*tet->volume;
329     }
330 francois 239 else
331     {
332     tet->new_densite=1.;
333     }
334 francois 242 }
335 francois 247 if (critere_densite - f*volume_design > 0.)
336 francois 239 l1=lmid;
337     else
338     l2=lmid;
339 francois 247 if (100.*fabs(critere_densite- f*volume_design )/(f*volume_design)<convergence_lagrange) oklagrange=1;
340 francois 243 if (compteurlagrange>500) oklagrange=2;
341 francois 242 }
342 francois 691 if (oklagrange==1) sprintf(message," Convergence multiplicateur lagrange \033[1;31m%le%%\033[1;33m",100.*(critere_densite- f*volume_design )/(f*volume_design));
343     if (oklagrange==2) sprintf(message," Divergence multiplicateur lagrange \033[1;31m%le %le\033[1;33m",l1,l2);
344 francois 242 affiche(message);
345 francois 247 // lissage de densite.
346     double kd=params.get_valeur("kd");
347 francois 239 for (int i=0;i<nbsimptet;i++)
348 francois 242 {
349 francois 239 SIMP_TETRA* tet=lsttet[i];
350 francois 247 if ((type_lissage==2) || (type_lissage==3))
351     {
352     if (((lissage_densite==1)&&(ok==1)) || (lissage_densite==0))
353     {
354     if (tet->design == 1)
355     {
356     double widensite=0.;
357     double wi= 0.;
358     wi=poid_lissage(0.,tet->distance_ref2,kd,tet->volume,type_lissage_densite);
359     widensite = wi*tet->new_densite;
360     int nbvoisin=tet->voisin2.size();
361     for (int j = 0 ; j<nbvoisin ; j++)
362     {
363     SIMP_TETRA* tet2=tet->voisin2[j];
364     if (tet2->design == 1)
365     {
366     double dist=tet->distance(tet2);
367     double wj=poid_lissage(dist,tet->distance_ref2,kd,tet2->volume,type_lissage_densite);
368     wi = wi+wj;
369     widensite = widensite + tet2->new_densite*wj;
370     }
371     }
372     tet->densite = widensite/wi;
373     }
374     else tet->densite=tet->new_densite;
375     }
376     else tet->densite=tet->new_densite;
377     }
378     else tet->densite=tet->new_densite;
379 francois 242 }
380 francois 339 if (itervue!=0)
381     if (nbiteration%itervue==0)
382     {
383     affiche((char*)" Sauvegarde résultat iteration");
384 cuillier 341 sprintf(message,"%s_densite_iter%d.soltmp",nometudesortie,nbiteration);
385 francois 339 //int nbsolution=gestd->get_nb_fem_solution();
386 nana 565 //for (int i=nbsolution;i>0;i--version 2 du for)
387 francois 339 //gestd->supprimer_fem_solution_du_gestionnaire(i-1);
388 francois 342 char message2[50];
389 francois 691 static int step=0;
390     sprintf(message2,"Iteration%%%d",step);
391     step++;
392 francois 375 FEM_SOLUTION* solution=new FEM_SOLUTION(fem,1,message,fem->get_nb_fem_element3(),message2,MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3);
393 francois 339 gestd->ajouter_fem_solution(solution);
394     sprintf(message,"Densite");
395     solution->change_legende(0,message);
396     for (int i=0;i<nbsimptet;i++)
397     {
398     SIMP_TETRA* tet=lsttet[i];
399 francois 375 solution->ecrire(tet->densite,i,0);
400 francois 339 }
401     }
402 francois 239 nbiteration++;
403     }
404 francois 339 if (itervue!=0)
405 nana 565 {
406 francois 339 affiche((char*)" Sauvegarde GMSH résultats iterations");
407     MG_EXPORT exp;
408     char nomfichier[500];
409     sprintf(nomfichier,"%s_iterations",nometudesortie);
410     exp.gmsh(fem,nomfichier);
411     }
412 francois 247 double seuil=params.get_valeur("ro_min");
413 francois 272 affiche((char*)" Ecriture des donnees finales");
414 francois 239 char message[255];
415 francois 512 if (iter==0) sprintf(message,"%s.compliance",nometudesortie);
416     else sprintf(message,"%s_iter%d.compliance",nometudesortie,iter);
417 francois 239 FILE *out=fopen(message,"wt");
418 francois 271 time_t heurefin=time(NULL);
419     struct tm tfin = *localtime(&heurefin);
420     fprintf(out,"*****************************************************\n");
421     fprintf(out," Optimisateur de topologie\n");
422     fprintf(out," ERICCA - UQTR\n");
423     fprintf(out,"*****************************************************\n");
424     fprintf(out," Etude : %s\n",nometude);
425 francois 274 fprintf(out," Date : %02u-%02u-%04u\n", tdebut.tm_mday, tdebut.tm_mon+1, 1900 + tdebut.tm_year);
426 francois 271 fprintf(out," Heure debut : %02u:%02u:%02u\n", tdebut.tm_hour, tdebut.tm_min, tdebut.tm_sec);
427     fprintf(out," Heure fin : %02u:%02u:%02u\n", tfin.tm_hour, tfin.tm_min, tfin.tm_sec);
428     fprintf(out," Parametres : \n");
429     int nbparam=params.get_nb();
430     for (int i=0;i<nbparam;i++)
431     {
432 francois 397 if (params.get_type(i)==OT_PARAMETRES::DOUBLE) fprintf(out," %s = %lf\n",params.get_nom(i).c_str(),params.get_valeur(i));
433     if (params.get_type(i)==OT_PARAMETRES::STRING) fprintf(out," %s = %s\n",params.get_nom(i).c_str(),params.get_nom(params.get_nom(i).c_str()).c_str());
434 francois 271 }
435     fprintf(out,"*****************************************************\n");
436     fprintf(out," Compliance après chaque itération\n");
437     fprintf(out,"*****************************************************\n");
438 francois 239 for (int i=0;i<Ctotiter.size();i++)
439     fprintf(out,"%le\n",Ctotiter[i]);
440 francois 355 fprintf(out,"*****************************************************\n");
441     fprintf(out," Variation de la compliance après chaque itération\n");
442     fprintf(out,"*****************************************************\n");
443     for (int i=1;i<Ctotiter.size();i++)
444     fprintf(out,"%lf%%\n",(Ctotiter[i]-Ctotiter[i-1])*100./Ctotiter[i-1]);
445 francois 245 double crit1=0.;
446     double crit2=0.;
447     double crit3=0.;
448     double critv1[10]={0.,0.,0.,0.,0.,0.,0.,0.,0.,0.};
449     double critv2[10]={0.,0.,0.,0.,0.,0.,0.,0.,0.,0.};
450     for (int i=0;i<nbsimptet;i++)
451     {
452     SIMP_TETRA* tet=lsttet[i];
453     if (tet->design==1)
454     {
455     crit1=crit1+tet->densite*tet->volume;
456     if (tet->densite>seuil)
457     {
458     crit2=crit2+tet->densite*tet->volume;
459     crit3=crit3+tet->volume;
460     }
461     for (int j=1;j<10;j++)
462     if (tet->densite>0.1*j)
463     {
464     critv1[j]=critv1[j]+tet->densite*tet->volume;
465     critv2[j]=critv2[j]+tet->volume;
466     }
467     }
468     }
469 francois 271 fprintf(out,"*****************************************************\n");
470     fprintf(out," Résultat\n");
471     fprintf(out,"*****************************************************\n");
472 francois 245 fprintf(out,"Volume du design : %le \n",volume_design);
473 francois 247 fprintf(out,"Objectif du volume de design : %le \n",volume_design*f);
474 francois 245 fprintf(out,"Volume de design obtenu : %le \n",crit1);
475     fprintf(out,"Volume de design obtenu avec le seuil: %le \n",crit2);
476     fprintf(out,"Volume reel de design obtenu avec le seuil: %le \n\n",crit3);
477     fprintf(out," : Volume : Volume reel : Objectif\n");
478     fprintf(out," : %le : %le : %le\n",volume_design,volume_design,volume_design);
479     for (int j=1;j<10;j++)
480 francois 247 fprintf(out,"Volume de design obtenu avec le seuil de %.1f : %le : %le : %le \n",j*0.1,critv1[j],critv2[j],volume_design*f);
481 francois 245 fprintf(out,"*************************************************************\n");
482     fclose(out);
483 francois 239 LISTE_FEM_NOEUD::iterator itnoeud;
484     int nbfemnoeud=fem->get_nb_fem_noeud();
485 francois 242 /*double *nume=new double[nbfemnoeud];
486 francois 239 double *deno=new double[nbfemnoeud];
487     int cpt=0;
488     for (FEM_NOEUD *nd=fem->get_premier_noeud(itnoeud);nd!=NULL;nd=fem->get_suivant_noeud(itnoeud))
489     {
490     nd->change_numero(cpt);
491     nume[cpt]=0.;
492     deno[cpt]=0.;
493     cpt++;
494 francois 242 }*/
495 francois 512 if (iter==0) sprintf(message,"%s_densite.sol",nometudesortie);
496     else sprintf(message,"%s_densite_iter%d.sol",nometudesortie,iter);
497 francois 241 int nbsolution=gestd->get_nb_fem_solution();
498 francois 242 for (int i=nbsolution;i>0;i--)
499 cuillier 341 {
500 francois 342 FEM_SOLUTION* sol=gestd->get_fem_solution(i-1);
501 cuillier 341 std::string nom=sol->get_nom_fichier();
502     char message[500],extension[500];
503     sprintf(message,"%s",nom.c_str());
504     char *p=strrchr(message,'.');
505     strncpy(extension,p,strlen(message)+message-p);
506     if (strcmp(extension,".soltmp")==0)
507     gestd->supprimer_fem_solution(i-1);
508     else gestd->supprimer_fem_solution_du_gestionnaire(i-1);
509     }
510    
511    
512 francois 375 FEM_SOLUTION* solution=new FEM_SOLUTION(fem,1,message,fem->get_nb_fem_element3(),"Optimisation",MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3);
513 francois 239 gestd->ajouter_fem_solution(solution);
514     solution->change_legende(0,"Densite");
515     for (int i=0;i<nbsimptet;i++)
516     {
517     SIMP_TETRA* tet=lsttet[i];
518     if (tet->design==1)
519     if (tet->densite>seuil)
520     ((MG_TETRA*)tet->tet->get_mg_element_maillage())->change_origine(OPTIMISE);
521     else
522     ((MG_TETRA*)tet->tet->get_mg_element_maillage())->change_origine(MAILLEUR_AUTO);
523 francois 384 tet->tet->change_solution(tet->densite);
524 francois 375 solution->ecrire(tet->densite,i,0);
525 francois 242 /*for (int j=0;j<tet->tet->get_nb_fem_noeud();j++)
526 francois 239 {
527     FEM_NOEUD* noeud=tet->tet->get_fem_noeud(j);
528     nume[noeud->get_numero()]=nume[noeud->get_numero()]+tet->volume*tet->densite;
529     deno[noeud->get_numero()]=deno[noeud->get_numero()]+tet->volume;
530 francois 242 } */
531 francois 239 }
532 francois 243 /*sprintf(message,"%s_densite2.sol",nometudesortie);
533 francois 239 FEM_SOLUTION* solution2=new FEM_SOLUTION(fem,1,message,fem->get_nb_fem_noeud(),"Optimisation",ENTITE_NOEUD);
534     gestd->ajouter_fem_solution(solution2);
535     solution2->change_legende(0,"Densite");
536     cpt=0;
537     for (FEM_NOEUD *nd=fem->get_premier_noeud(itnoeud);nd!=NULL;nd=fem->get_suivant_noeud(itnoeud))
538     {
539 francois 375 solution2->ecrire(nume[cpt]/deno[cpt],cpt,0,);
540 francois 239 cpt++;
541     }
542     delete [] deno;
543 francois 242 delete [] nume;*/
544 francois 239 int nb=lsttet.size();
545     for (int i=0;i<nb;i++) delete lsttet[i];
546     }
547    
548 francois 247 double MGOPT_SIMP::poid_lissage(double dist,double distref,double k,double volume,int type)
549     {
550     double wi;
551     if (type==0) wi=pow(distref-dist,k);
552     if (type==1) wi=pow(distref-dist,k)*volume;
553     if (type==2) wi=exp(-dist*dist/2./distref/distref/9.)/2./M_PI/(distref/3.);
554     if (type==3) wi=volume*exp(-dist*dist/2./distref/distref/9.)/2./M_PI/(distref/3.);
555     return fabs(wi);
556    
557     }
558 francois 239
559 francois 240 void MGOPT_SIMP::adapte_resultat(char *nomgestd,char *nomparam)
560     {
561     if (nomparam!=NULL) lire_params(nomparam);
562 francois 272 affiche((char*)"");
563     affiche((char*)"*************************");
564     affiche((char*)"Optimisation de topologie");
565     affiche((char*)"*************************");
566     affiche((char*)"");
567     affiche((char*)"");
568     affiche((char*)"Changement du seuil dans les resultats");
569 francois 240 double seuil=params.get_valeur("seuil");
570     gestd=new MG_FILE(nomgestd);
571     FEM_MAILLAGE* fem=gestd->get_fem_maillage(0);
572     FEM_SOLUTION* solution=gestd->get_fem_solution(0);
573     solution->active_solution(0);
574 francois 309 LISTE_FEM_ELEMENT3::iterator it;
575     for (FEM_ELEMENT3 *tet=fem->get_premier_element3(it);tet!=NULL;tet=fem->get_suivant_element3(it))
576 francois 240 {
577     if (((MG_TETRA*)tet->get_mg_element_maillage())->get_origine()!=IMPOSE)
578     if (tet->get_solution()>seuil)
579     ((MG_TETRA*)tet->get_mg_element_maillage())->change_origine(OPTIMISE);
580     else
581     ((MG_TETRA*)tet->get_mg_element_maillage())->change_origine(MAILLEUR_AUTO);
582    
583     }
584 francois 272 affiche((char*)"Enregistrement");
585 francois 240 gestd->enregistrer(nomgestd);
586 francois 272 affiche((char*)"Enregistrement sous GMSH");
587 francois 245 char *p=strchr(nomgestd,'.');
588     strncpy(nometude,nomgestd,p-nomgestd);
589     nometude[p-nomgestd]=0;
590     MG_EXPORT exp;
591     char nomfichier[500];
592     sprintf(nomfichier,"%s_mg",nometude);
593     exp.gmsh(fem->get_mg_maillage(),nomfichier);
594     sprintf(nomfichier,"%s_fem",nometude);
595     exp.gmsh(fem,nomfichier);
596 francois 272 affiche((char*)"Fin");
597 francois 240 }
598 francois 239
599    
600 francois 468 void MGOPT_SIMP::recupere_energie(std::vector<class SIMP_TETRA*> lsttet)
601 francois 239 {
602     char message[750];
603     sprintf(message,"%s.resu",nometude);
604     FILE* in=fopen(message,"rt");
605     int fin=0;
606     do
607     {
608 francois 276 char* res=fgets(message,750,in);
609 francois 239 if (feof(in)) fin=1;
610     char mot1[100];
611     char mot2[100];
612     char mot3[100];
613     char mot4[100];
614     char mot5[100];
615     char mot6[100];
616     char mot7[100];
617     char mot8[100];
618     char mot9[100];
619     char mot10[100];
620     int numlu=sscanf(message,"%s %s %s %s %s %s %s %s %s %s",mot1,mot2,mot3,mot4,mot5,mot6,mot7,mot8,mot9,mot10);
621 francois 674
622    
623     if (numlu>2)
624     if (strcmp(mot2,"TOTAL_JOB")==0)
625     {
626     double val;
627     sscanf(mot8,"%lf",&val);
628     CODE_ASTER_CPU=CODE_ASTER_CPU+val;
629     }
630    
631    
632 francois 239 if (numlu>9)
633     if (strcmp(mot1,"CHAMP")==0)
634     if (strcmp(mot2,"PAR")==0)
635     if (strcmp(mot3,"ELEMENT")==0)
636     if (strcmp(mot4,"CONSTANT")==0)
637     if (strcmp(mot5,"SUR")==0)
638 francois 322 if (strcmp(mot6,"ELEMENT")==0)
639 francois 239 if (strcmp(mot7,"DE")==0)
640     if (strcmp(mot8,"NOM")==0)
641     if (strcmp(mot9,"SYMBOLIQUE")==0)
642 francois 322 if (strcmp(mot10,"ENERGIE")==0)
643 francois 239 {
644     int fin2=0;
645     int passe=0;
646     int nbelement=0;
647     do
648     {
649     char message[750];
650 francois 276 char* res=fgets(message,750,in);
651 francois 239 char mot1[500];
652     char mot2[500];
653     int numlu=sscanf(message,"%s %s",mot1,mot2);
654     int decalage;
655     if ((numlu==2) && (strcmp(mot2,"TOTALE")==0))
656     {
657     char *p=strchr(mot1,'M')+1;
658     int num=atoi(p);
659     if (passe==0) {passe=1;decalage=num;}
660 francois 276 char* res=fgets(message,750,in);
661 francois 239 double val;
662     sscanf(message,"%lf",&val);
663     lsttet[num-decalage]->energie=val;
664     nbelement++;
665     }
666     if (nbelement == lsttet.size()) {fin2=1;fin=0;}
667     }
668    
669     while (fin2==0);
670     }
671     }
672     while (fin==0);
673     fclose(in);
674     }
675    
676    
677    
678 nana 565 void MGOPT_SIMP::ajouter_voisin_distance(int i,SIMP_TETRA* tet,std::vector<SIMP_TETRA*> &lst)
679 francois 239 {
680     tet->indice=i;
681     int nbnoeud=tet->tet->get_nb_fem_noeud();
682     int correspondance[4];
683     if (nbnoeud==4)
684     {
685     correspondance[0]=0;
686     correspondance[1]=1;
687     correspondance[2]=2;
688     correspondance[3]=3;
689     }
690     if (nbnoeud==10)
691     {
692     correspondance[0]=0;
693     correspondance[1]=2;
694     correspondance[2]=4;
695     correspondance[3]=9;
696     }
697     SIMP_TETRA* tetcour=tet;
698     int ok=0;
699     int compteur=0;
700 francois 468 std::vector<SIMP_TETRA*>& lstvoisin=tet->voisin;
701 francois 247 if (tet->distance_ref<tet->distance_ref2)
702     lstvoisin=tet->voisin2;
703 francois 239 while (ok==0)
704     {
705     for (int j=0;j<4;j++)
706     {
707     int num=correspondance[j];
708     FEM_NOEUD *noeud=tetcour->tet->get_fem_noeud(num);
709 francois 309 int nbtetra=noeud->get_lien_element3()->get_nb();
710 francois 239 for (int k=0;k<nbtetra;k++)
711     {
712 francois 309 FEM_ELEMENT3* ftet=noeud->get_lien_element3()->get(k);
713 francois 239 SIMP_TETRA* stet=lst[ftet->get_numero()];
714     if (stet->indice!=i)
715     {
716     stet->indice=i;
717 francois 247 double dist=tet->distance(stet);
718     if (dist<tet->distance_ref)
719 francois 239 tet->voisin.insert(tet->voisin.end(),stet);
720 francois 247 if (dist<tet->distance_ref2)
721     tet->voisin2.insert(tet->voisin2.end(),stet);
722 francois 239 }
723     }
724     }
725 francois 247 if (compteur>=lstvoisin.size()) ok=1;
726 francois 239 else
727     {
728 francois 247 tetcour=lstvoisin[compteur];
729 francois 239 compteur++;
730     }
731 francois 247
732 francois 239 }
733    
734 francois 274 }
735 nana 565
736    
737 francois 578 void MGOPT_SIMP::ajouter_voisin_couche(int i,SIMP_TETRA* tet,std::vector<SIMP_TETRA*> &lst,int nb_couches,int nb_couches2)
738 nana 565 {
739     tet->indice=i;
740     int nbnoeud=tet->tet->get_nb_fem_noeud();
741     int correspondance[4];
742     if (nbnoeud==4)
743     {
744     correspondance[0]=0;
745     correspondance[1]=1;
746     correspondance[2]=2;
747     correspondance[3]=3;
748     }
749     if (nbnoeud==10)
750     {
751     correspondance[0]=0;
752     correspondance[1]=2;
753     correspondance[2]=4;
754     correspondance[3]=9;
755     }
756     std::vector<SIMP_TETRA*>& lstvoisin=tet->voisin;
757     if (tet->distance_ref<tet->distance_ref2)
758     lstvoisin=tet->voisin2;
759 francois 578 tet->voisin.insert(tet->voisin.end(),tet);
760     tet->voisin2.insert(tet->voisin2.end(),tet);
761     tet->indice=i;
762     int debut=0,fin=1;
763     for (int ok=0;ok<max(nb_couches,nb_couches2);ok++)
764 nana 565 {
765 francois 578 for (int iliste=debut;iliste<fin;iliste++)
766     {
767 francois 579 SIMP_TETRA* tetcour;
768     if (nb_couches>nb_couches2 ) tetcour=tet->voisin[iliste]; else tetcour=tet->voisin2[iliste];
769 francois 578 for (int j=0;j<4;j++)
770 nana 565 {
771     int num=correspondance[j];
772     FEM_NOEUD *noeud=tetcour->tet->get_fem_noeud(num);
773     int nbtetra=noeud->get_lien_element3()->get_nb();
774     for (int k=0;k<nbtetra;k++)
775     {
776     FEM_ELEMENT3* ftet=noeud->get_lien_element3()->get(k);
777     SIMP_TETRA* stet=lst[ftet->get_numero()];
778     if (stet->indice!=i)
779     {
780     stet->indice=i;
781 francois 578 if (ok<nb_couches) tet->voisin.insert(tet->voisin.end(),stet);
782     if (ok<nb_couches2) tet->voisin2.insert(tet->voisin2.end(),stet);
783 nana 565 }
784     }
785     }
786 francois 578 }
787     debut=fin;
788     if (nb_couches>nb_couches2 ) fin=tet->voisin.size(); else fin=tet->voisin2.size();
789 nana 565 }
790     }