Herezh_dev/Maillage/Maillage2.cc

1783 lines
84 KiB
C++

// FICHIER : Maillage.cp
// CLASSE : Maillage
// This file is part of the Herezh++ application.
//
// The finite element software Herezh++ is dedicated to the field
// of mechanics for large transformations of solid structures.
// It is developed by Gérard Rio (APP: IDDN.FR.010.0106078.000.R.P.2006.035.20600)
// INSTITUT DE RECHERCHE DUPUY DE LÔME (IRDL) <https://www.irdl.fr/>.
//
// Herezh++ is distributed under GPL 3 license ou ultérieure.
//
// Copyright (C) 1997-2022 Université Bretagne Sud (France)
// AUTHOR : Gérard Rio
// E-MAIL : gerardrio56@free.fr
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License,
// or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty
// of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <https://www.gnu.org/licenses/>.
//
// For more information, please consult: <https://herezh.irdl.fr/>.
#include "Maillage.h"
# include <iostream>
using namespace std; //introduces namespace std
#include <stdlib.h>
#include "Sortie.h"
#include <stdio.h>
#include <vector>
#include "List_io.h"
#include "CharUtil.h"
//#ifndef SYSTEM_MAC_OS_X_unix
// #include "Frontier.h"
//#endif
#include "ConstMath.h"
#include "ReferenceNE.h"
#include "ReferenceAF.h"
#include "Util.h"
#include "MvtSolide.h"
// --------- utilitaires de manipulation de maillage
// test pour savoir si le maillage contiend des éléments à interpolation linéaire
bool Maillage::Contient_lineaire()
{ // on balaie les éléments
int taille_elem = tab_element.Taille();
for (int i=1; i<=taille_elem;i++)
{ Enum_interpol eninter = tab_element(i)->Id_interpolation();
// LINEAIRE indique que l'on a une interpolation linéaire
if (eninter == LINEAIRE) return true;
}
// sinon pas d'élément incomplet quadratique
return false;
};
bool Maillage::Contient_quadratique_incomplet()
{ // on balaie les éléments
int taille_elem = tab_element.Taille();
for (int i=1; i<=taille_elem;i++)
{ Enum_interpol eninter = tab_element(i)->Id_interpolation();
// QUADRATIQUE indique que l'on a une interpolation quadratique incomplète
// alors que QUADRACOMPL indique que c'est quadratique complet
if (eninter == QUADRATIQUE) return true;
}
// sinon pas d'élément incomplet quadratique
return false;
};
// transformation des éléments linéaires du maillage en quadratiques.
// les éléments linéaires sont supprimés,
// Important: dans la procédure de renumérotation, la routine modifie la numérotation initiale des noeuds !!
// il y a également création de référence adaptée au nouveau maillage en cohérence avec l'ancien maillage
void Maillage::Transfo_lin_quadraIncomp(LesReferences &lesRef)
{list <Element *> nv_remplace;
list <Maillage::PosiEtNoeud> li_nv_noeud;
list <DeuxEntiers> li_bornes;
// 1) on balaie les éléments
int nbnt=tab_noeud.Taille(); // le nombre de noeud total (évolue pendant la transformation)
// nbnt permet à Construct_from_imcomplet de donner des numéros de noeud licite, en particulier
// permet d'éviter que deux noeuds aient le même numéro
int taille_elem = tab_element.Taille();
for (int i=1; i<=taille_elem;i++)
{ Enum_interpol eninter = tab_element(i)->Id_interpolation();
// LINEAIRE indique que l'on a une interpolation linéaire
if (eninter == LINEAIRE)
{// 2) on a trouvé un linéaire
// on crée un quadratique incomplet de même type
Element * elem = tab_element(i); // pour simplifier
Element::Signature signa = elem->Signature_element();
// on change l'interpolation
signa.id_interpol=QUADRATIQUE;
// on crée le nouvel élément quadratique avec le même numéro que le linéaire (car il le remplacera
// par la suite)
Element* elem2= Element::Choix_element(elem->Num_maillage(),elem->Num_elt(),signa);
if (elem2 == NULL)
{ cout << "\n erreur de creation d'un element quadratique incomplet a partir d'un lineaire"
<< "\n signature du lineaire: interpolation " << Nom_interpol(signa.id_interpol)
<< " geometrie: " << Nom_geom(signa.id_geom) << " problem: " << NomElemTypeProblem(signa.id_problem)
<< " infos_annexes: " << signa.infos_annexes
<< "\n Maillage::Transfo_lin_quadraIncomp(...";
Sortie(1);
}
// 3) on demande à l'élément de définir ses noeuds, d'une part à partir des noeuds
// déjà existants de l'élément linéaire, et d'autre part à partir de nouveaux noeuds
// construit à partir de l'interpolation initiale linéaire.
// on fournit également le premier numéro -1 du nouveau noeud
list <DeuxEntiers> li_bo; // les bornes pour la renumérotation
list <Noeud *> l_nv_noe = elem2->Construct_from_lineaire(*elem,li_bo,nbnt);
nbnt += l_nv_noe.size();
// 4) on ajoute les nouveaux noeuds
list <Noeud *>::iterator lni,lnifin=l_nv_noe.end();
for (lni=l_nv_noe.begin();lni!=lnifin;lni++)
{li_nv_noeud.push_back(Maillage::PosiEtNoeud(*lni,elem2));
}
list <DeuxEntiers>::iterator pni,pnifin=li_bo.end();
for (pni=li_bo.begin();pni!=pnifin;pni++)
{li_bornes.push_back(*pni);
}
// 5) on enregistre l'élément linéaire et on le remplace par le quadratique dans
// la liste d'élément
nv_remplace.push_back(elem);
tab_element(i) = elem2;
}
}
// 6) on supprime les doublons dans la liste des noeuds en réaffectant les bons pointeurs dans les éléments
// li_nv_noeud.sort(); // ordonne la liste
// suppression des doublons et réaffectation des pointeurs de noeuds supprimés dans les éléments
if (li_nv_noeud.size() != 1)
{list <Maillage::PosiEtNoeud>::iterator lili,lilifin = li_nv_noeud.end();
list <Maillage::PosiEtNoeud>::iterator lila = li_nv_noeud.begin();lili=lila; lili++;
list <DeuxEntiers>::iterator pili,pilifin = li_bornes.end();
list <DeuxEntiers>::iterator pila = li_bornes.begin();pili=pila; pili++;
do
{ if (*lila == *lili)
{ //cas de deux noeuds identiques, on réaffecte le pointeur de noeud dans l'élément
(*lila).el->Reaffectation_pointeur_noeud((*lila).noe,(*lili).noe);
// on supprime le noeud doublon
delete (*lila).noe;
// on supprime les éléments de la liste
li_nv_noeud.erase(lila); li_bornes.erase(pila);
}
lila = lili; lili++;
pila = pili; pili++;
} while (lili!= lilifin);
}
// 7) insertion des nouveaux noeuds dans le tableau définitif et renumérotation
// a) on commence par définir une liste de noeud, équivalente au tableau tab_noeud
List_io <Noeud *> li_no;
int nbn = tab_noeud.Taille();
// petite vérif: il faut que le maillage contienne au moins un noeud
#ifdef MISE_AU_POINT
if (nbn == 0)
{ cout << "\n erreur le maillage contiend 0 noeud en propre, ce qui est insufisent pour la routine"
<< "\n list <Element *> Maillage::Transfo_quadraIncomp_quadraComp()";
Sortie(1);
}
#endif
// b) on définit un tableau de listes de pointeurs de noeud
Tableau <List_io<Noeud*> > tab_ln(nbn);
// c) on remplit chaque liste des noeuds qu'il faudrait ajouter pour avoir une bonne numérotation
list <Maillage::PosiEtNoeud>::iterator lili,lilifin = li_nv_noeud.end();
list <DeuxEntiers>::iterator pilifin = li_bornes.end();
list <DeuxEntiers>::iterator pili = li_bornes.begin();
for (lili=li_nv_noeud.begin();lili != lilifin; lili++,pili++)
{ // récup de la position moyenne d'insertion et remplissage de la liste correspondante
// cout << "\n un= " << (*pili).un << "deux= " << (*pili).deux ;
int bi=( (*pili).un + (*pili).deux ) / 2; // division entière
// cout << " bi= " << bi << endl;
tab_ln(bi).push_back((*lili).noe);
}
// d) on définit un nouveau tableau de noeud qui comprend les anciens et les nouveaux noeuds, ordonnées
int nbn_nv = nbn+li_nv_noeud.size();
Tableau<Noeud *> tab_noe_nv(nbn_nv);
// définition également d'un tableau d'indiçage inverse
Tableau <int> indic(nbn);
int ino=0;
for (int ivo=1;ivo<= nbn;ivo++)
{ // tout d'abord le noeud ancien
ino++; tab_noe_nv(ino)=tab_noeud(ivo);
indic(ivo)=ino;
// puis éventuellement les noeuds à intercaler
List_io<Noeud*>& li_ln = tab_ln(ivo); // pour simplifier
if (li_ln.size() != 0)
{ List_io<Noeud*>::iterator iln,iln_end=li_ln.end();
for (iln=li_ln.begin(); iln != iln_end; iln++)
{ ino++; tab_noe_nv(ino)=*iln;};
}
}
tab_noeud = tab_noe_nv; // remplacement du tableau du maillage
// e) on renumérote les différents noeuds
for (int j=1;j<= nbn_nv;j++) tab_noeud(j)->Change_num_noeud(j);
// 7) modification des références sur les noeuds
// a) on passe en revue les références et on sélectionne les références relatives aux noeuds
// de l'ancien maillage
const Reference* ref1 = lesRef.Init_et_Premiere();
do { if((ref1->Nbmaille() == idmail) && (ref1->Indic() == 1))
// on a trouvé une référence de noeud à considérer
{ ReferenceNE * refNE = ( ReferenceNE *) ref1; // pour simplifier
int nb_num=refNE->Taille();
for (int it= 1;it<=nb_num;it++)
refNE->Change_num_dans_ref(it,indic(refNE->Numero(it)));
}
ref1 = lesRef.Reference_suivante(); // la référence suivante
} while (ref1 != NULL);
cout << "\n *** attention les references generes ici ne sont pas bonnes !! , seul le maillage est "
<< " actuellement correcte ";
// 8) suppression des éléments linéaires qui n'ont plus lieu d'être
list <Element *>::iterator lele,lelefin=nv_remplace.end();
for (lele=nv_remplace.begin();lele!=lelefin;lele++)
delete (*lele);
// 9) rien à faire sur les références d'élément, ou de face d'élément ou d'arrête d'élément
// car d'une part les nouveaux éléments ont le même numéro que les anciens, et d'autre part
// le fait de passer en élément complet ne modifie pas les arrêtes ou faces
};
// transformation des éléments quadratiques incomplet du maillage en quadratiques complets.
// les éléments incomplets sont supprimée,
// Important: dans la procédure de renumérotation, la routine modifie la numérotation initiale des noeuds !!
// il y a également création de référence adaptée au nouveau maillage en cohérence avec l'ancien maillage
void Maillage::Transfo_quadraIncomp_quadraComp(LesReferences &lesRef)
{list <Element *> nv_remplace;
list <Maillage::PosiEtNoeud> li_nv_noeud;
list <DeuxEntiers> li_bornes;
// 1) on balaie les éléments
int nbnt=tab_noeud.Taille(); // le nombre de noeud total (évolue pendant la transformation)
// nbnt permet à Construct_from_imcomplet de donner des numéros de noeud licite, en particulier
// permet d'éviter que deux noeuds aient le même numéro
int taille_elem = tab_element.Taille();
for (int i=1; i<=taille_elem;i++)
{ Enum_interpol eninter = tab_element(i)->Id_interpolation();
// QUADRATIQUE indique que l'on a une interpolation quadratique incomplète
// alors que QUADRACOMPL indique que c'est quadratique complet
if (eninter == QUADRATIQUE)
{// 2) on a trouvé un quadratique incomplet
// on crée un quadratique complet de même type
Element * elem = tab_element(i); // pour simplifier
Element::Signature signa = elem->Signature_element();
// on change l'interpolation
signa.id_interpol=QUADRACOMPL;
// on crée le nouvel élément complet avec le même numéro que l'incomplet (car il le remplacera
// par la suite)
Element* elem2= Element::Choix_element(elem->Num_maillage(),elem->Num_elt(),signa);
if (elem2 == NULL)
{ cout << "\n erreur de creation d'un element quadratique complet a partir d'un incomplet"
<< "\n signature du quadratique incomplet: interpolation " << Nom_interpol(signa.id_interpol)
<< " geometrie: " << Nom_geom(signa.id_geom) << " problem: " << NomElemTypeProblem(signa.id_problem)
<< " infos_annexes: " << signa.infos_annexes
<< "\n Maillage::Transfo_quadraIncomp_quadraComp(...";
Sortie(1);
}
// 3) on demande à l'élément de définir ses noeuds, d'une part à partir des noeuds
// déjà existants de l'élément incomplet, et d'autre part à partir de nouveaux noeuds
// construit à partir de l'interpolation initiale incomplète.
// on fournit également le premier numéro -1 du nouveau noeud
list <DeuxEntiers> li_bo; // les bornes pour la renumérotation
list <Noeud *> l_nv_noe = elem2->Construct_from_imcomplet(*elem,li_bo,nbnt);
nbnt += l_nv_noe.size();
// 4) on ajoute les nouveaux noeuds
list <Noeud *>::iterator lni,lnifin=l_nv_noe.end();
for (lni=l_nv_noe.begin();lni!=lnifin;lni++)
{li_nv_noeud.push_back(Maillage::PosiEtNoeud(*lni,elem2));
}
list <DeuxEntiers>::iterator pni,pnifin=li_bo.end();
for (pni=li_bo.begin();pni!=pnifin;pni++)
{li_bornes.push_back(*pni);
}
// 5) on enregistre l'élément incomplet et on le remplace par le complet dans
// la liste d'élément
nv_remplace.push_back(elem);
tab_element(i) = elem2;
}
}
// 6) on supprime les doublons dans la liste des noeuds en réaffectant les bons pointeurs dans les éléments
// non car cela ne sert à rien et il faudrait également traiter li_bornes li_nv_noeud.sort(); // ordonne la liste
// suppression des doublons et réaffectation des pointeurs de noeuds supprimés dans les éléments
if (li_nv_noeud.size() != 1)
{list <Maillage::PosiEtNoeud>::iterator lili,lilifin = li_nv_noeud.end();
list <Maillage::PosiEtNoeud>::iterator lila = li_nv_noeud.begin();lili=lila; lili++;
list <DeuxEntiers>::iterator pili,pilifin = li_bornes.end();
list <DeuxEntiers>::iterator pila = li_bornes.begin();pili=pila; pili++;
do
{ if (*lila == *lili)
{ //cas de deux noeuds identiques, on réaffecte le pointeur de noeud dans l'élément
(*lila).el->Reaffectation_pointeur_noeud((*lila).noe,(*lili).noe);
// on supprime le noeud doublon
delete (*lila).noe;
// on supprime les éléments de la liste
li_nv_noeud.erase(lila); li_bornes.erase(pila);
}
lila = lili; lili++;
pila = pili; pili++;
} while (lili!= li_nv_noeud.end());
};
////------ debug
//{
//cout << "\n debug: Maillage::Transfo_quadraIncomp_quadraComp ";
//list <DeuxEntiers>::iterator pili = li_bornes.begin();
//int i=1;
//for (pili;pili != li_bornes.end();pili++,i++)
// cout << "\n borne "<< i <<": " << *pili;
//cout << endl;
//};
////----- fin debug
// 7) insertion des nouveaux noeuds dans le tableau définitif et renumérotation
// a) on commence par définir une liste de noeud, équivalente au tableau tab_noeud
List_io <Noeud *> li_no;
int nbn = tab_noeud.Taille();
// petite vérif: il faut que le maillage contienne au moins un noeud
#ifdef MISE_AU_POINT
if (nbn == 0)
{ cout << "\n erreur le maillage contiend 0 noeud en propre, ce qui est insufisent pour la routine"
<< "\n list <Element *> Maillage::Transfo_quadraIncomp_quadraComp()";
Sortie(1);
}
#endif
// b) on définit un tableau de listes de pointeurs de noeud
Tableau <List_io<Noeud*> > tab_ln(nbn);
// c) on remplit chaque liste des noeuds qu'il faudrait ajouter pour avoir une bonne numérotation
list <Maillage::PosiEtNoeud>::iterator lili,lilifin = li_nv_noeud.end();
list <DeuxEntiers>::iterator pilifin = li_bornes.end();
list <DeuxEntiers>::iterator pili = li_bornes.begin();
for (lili=li_nv_noeud.begin();lili != lilifin; lili++,pili++)
{ // récup de la position moyenne d'insertion et remplissage de la liste correspondante
int bi=( (*pili).un + (*pili).deux ) / 2; // division entière
////------ debug
//{
//cout << "\n debug: Maillage::Transfo_quadraIncomp_quadraComp ";
// cout << "\n bornes : " << *pili << endl;
//};
////----- fin debug
tab_ln(bi).push_back((*lili).noe);
};
// d) on définit un nouveau tableau de noeud qui comprend les anciens et les nouveaux noeuds, ordonnées
int nbn_nv = nbn+li_nv_noeud.size();
Tableau<Noeud *> tab_noe_nv(nbn_nv);
// définition également d'un tableau d'indiçage inverse
Tableau <int> indic(nbn);
int ino=0;
for (int ivo=1;ivo<= nbn;ivo++)
{ // tout d'abord le noeud ancien
ino++; tab_noe_nv(ino)=tab_noeud(ivo);
indic(ivo)=ino;
// puis éventuellement les noeuds à intercaler
List_io<Noeud*>& li_ln = tab_ln(ivo); // pour simplifier
if (li_ln.size() != 0)
{ List_io<Noeud*>::iterator iln,iln_end=li_ln.end();
for (iln=li_ln.begin(); iln != iln_end; iln++)
{ ino++; tab_noe_nv(ino)=*iln;};
}
}
tab_noeud = tab_noe_nv; // remplacement du tableau du maillage
// e) on renumérote les différents noeuds
for (int j=1;j<= nbn_nv;j++) tab_noeud(j)->Change_num_noeud(j);
// 7) modification des références sur les noeuds
// a) on passe en revue les références et on sélectionne les références relatives aux noeuds
// de l'ancien maillage
const Reference* ref1 = lesRef.Init_et_Premiere();
do { if((ref1->Nbmaille() == idmail) && (ref1->Indic() == 1))
// on a trouvé une référence de noeud à considérer
{ ReferenceNE * refNE = ( ReferenceNE *) ref1; // pour simplifier
int nb_num=refNE->Taille();
for (int it= 1;it<=nb_num;it++)
refNE->Change_num_dans_ref(it,indic(refNE->Numero(it)));
}
ref1 = lesRef.Reference_suivante(); // la référence suivante
} while (ref1 != NULL);
// 8) suppression des élément incomplet qui n'ont plus lieu d'être
list <Element *>::iterator lele,lelefin=nv_remplace.end();
for (lele=nv_remplace.begin();lele!=lelefin;lele++)
delete (*lele);
// 9) rien à faire sur les références d'élément, ou de face d'élément ou d'arrête d'élément
// car d'une part les nouveaux éléments ont le même numéro que les anciens, et d'autre part
// le fait de passer en élément complet ne modifie pas les arrêtes ou faces
};
// Affiche les donnees du maillage dans un fichier
// dont le nom est construit à partir du nom du maillage
// au format ".her" et ".lis"
void Maillage::Affiche_dans_her_lis(LesReferences &lesRef,Enum_dure temps)
{
//------------- écriture du .her -------------
// ouverture du fichier pour les noeuds
char nomm[132];
char*fileName = nomm;
strcpy(fileName, nomDuMaillage.c_str());
ofstream * sur_sort = new ofstream (strcat(fileName,".her"));
ofstream & sort = * sur_sort;
if(!(sort.is_open()))
// le fichier ne peut être ouvert, message d'erreur
{ cout << "\n erreur en ouverture pour l'ecriture du fichier " << fileName << "\n"
<< " Maillage::Affiche_dans_her_lis(.... " << endl;
Sortie(1);
};
// écriture de l'entete
sort << "\n ###########################################################################"
<< "\n # ecriture automatique d'un maillage au format .her, par Herezh++ #"
<< "\n ###########################################################################"
<< "\n # version: " << ParaGlob::NbVersion() << "\n \n \n ";
// écriture du nom du maillage
sort << "\n nom_maillage " << nomDuMaillage << " # nom du maillage"
<< "\n"
<< "\n noeuds ------------ # definition des noeuds";
int dimen = ParaGlob::Dimension();
// l'entete des noeuds
int nbn = tab_noeud.Taille();
sort << "\n "<< nbn << " NOEUDS # definition du nombre de noeuds"
<< "\n \n"
<< "\n#---------------------------------------------------------------"
<< "\n#|NO DU| X | Y | Z |"
<< "\n#|NOEUD| | | |"
<< "\n#---------------------------------------------------------------"
<< "\n";
// écriture des noeuds
double sero = 0.;
for (int ine=1;ine<=nbn; ine++)
{ sort << "\n" << setw (6) << ine <<" ";
Coordonnee co;
switch (temps)
{
case TEMPS_0 : co=tab_noeud(ine)->Coord0(); break;
// si les noeuds n'ont pas bougés on sort les coordonnées à 0
case TEMPS_t :
{ if (tab_noeud(ine)->ExisteCoord1())
{ co=tab_noeud(ine)->Coord1(); }
else co=tab_noeud(ine)->Coord0();
break;
}
case TEMPS_tdt :
{ if (tab_noeud(ine)->ExisteCoord2())
{ co=tab_noeud(ine)->Coord2(); }
else co=tab_noeud(ine)->Coord0();
break;
}
default :
cout << "\nErreur : valeur incorrecte du type Enum_dure !\n";
cout << "Maillage::Affiche_dans_her_lis(.. \n";
Sortie(1);
};
#ifndef ENLINUX_STREAM
sort.setf(ios_base::scientific);
#else
sort.setf(ios::scientific);
#endif
for (int j=1;j<=3;j++)
if (j<=dimen)
sort << setw (18) << setprecision(ParaGlob::NbdigdoCA()) <<co(j) << " ";
else
sort << setw (18) << setprecision(ParaGlob::NbdigdoCA()) << sero << " ";
}
sort << "\n \n";
// entête des éléments
int nbe=tab_element.Taille();
sort << "\n elements ---------- \n"
<< "\n " << nbe << " ELEMENTS # definition du nombre d'elements"
<< "\n #----------------------------------------------------------------------"
<< "\n #| NO | | |"
<< "\n #|ELTS | type element | Noeuds |"
<< "\n #----------------------------------------------------------------------"
<< "\n";
// écriture des éléments
for (int ie=1;ie<=nbe;ie++)
{ sort << "\n" << setw (6) << ie <<" ";
Element::Signature sign = tab_element(ie)->Signature_element();
sort << Nom_geom(sign.id_geom) << " " << Nom_interpol(sign.id_interpol)
<< " " << sign.infos_annexes << " ";
Tableau<Noeud *>& tab_n = tab_element(ie)->Tab_noeud();
int taille_tab_n = tab_n.Taille();
for (int ite=1;ite<=taille_tab_n;ite++)
sort << tab_n(ite)->Num_noeud() << " ";
}
// quelques lignes blanches à la fin du fichier
sort << "\n \n \n";
// fermeture du fichier
delete sur_sort;
//------------- écriture du .lis -------------
// Affiche les donnees des références pour le maillage imail dans un fichier
// dont le nom est construit à partir du nom du maillage au format ".lis"
lesRef.Affiche_dans_lis(nomDuMaillage,idmail);
};
//modification du maillage pour le restreindre aux seuls éléments de la référence passée en paramètre
// toutes les infos relatives à des éléments supprimés, sont également supprimés
void Maillage::Restreint_sous_maillage(LesReferences* lesRef, string nom_ref)
{ // on définit un tableau d'indicateur donnant les éléments non référencés
Tableau <bool> tab_el_non_referencer(tab_element.Taille(),true); // par défaut on ne conserve pas
// on définit un tableau d'indicateur donnant les noeuds non référencés
Tableau <bool> tab_noe_non_referencer(tab_noeud.Taille(),true);
// récup de la référence des éléments
const ReferenceNE & ref =((ReferenceNE &) lesRef->Trouve(nom_ref,idmail));
if (ref.Indic() != 2)
{cout << "\n *** erreur: la reference "<<nom_ref<<" n'est pas une ref d'element "
<< " on ne peut pas continuer ";
if (ParaGlob::NiveauImpression() > 2)
cout << "\n Maillage::Restreint_sous_maillage(... ";
Sortie(1);
};
// récup du tableau d'éléments de la référence
const Tableau<int>& tab_E_ref = ref.Tab_num();
// on marque les éléments à conserver ainsi que les noeuds
// qui appartiennent à des éléments à conserver
int nb_el = tab_E_ref.Taille();
for (int i=1;i<=nb_el;i++)
{tab_el_non_referencer(tab_E_ref(i)) = false;
Element * el = tab_element(tab_E_ref(i));
const Tableau<Noeud *>& tab_noeu = el->Tab_noeud_const();
int nb_noe = tab_noeu.Taille();
for (int noe = 1;noe <= nb_noe; noe++)
tab_noe_non_referencer(tab_noeu(noe)->Num_noeud())=false;
};
// suppression des éléments non référencés
int NBE=tab_element.Taille();
for (int i=1;i<=NBE;i++)
if (tab_el_non_referencer(i))
delete tab_element(i);
// suppression des noeuds non référencés
int NBN = tab_noeud.Taille();
int nb_noeud_final = 0; // init
for (int i=1;i<= NBN;i++)
if (tab_noe_non_referencer(i))
{delete tab_noeud(i);}
else {nb_noeud_final++;}; // sinon on compte
// on redimentionne et réafecte le tableau de noeuds
Tableau<Noeud *> tab_old_noe = tab_noeud; // sauvegarde de l'ancien tableau
// nv_tab est tel que : nv_tab_noe(i) est le nouveau numéro qui avait auparavant le numéro "i"
Tableau <int > nv_tab_noe(NBN);
tab_noeud.Change_taille(nb_noeud_final);
int indice_noeu=1; // pour parcourir le tableau final de noeud
for (int i=1;i<=NBN;i++)
if (!tab_noe_non_referencer(i))
{tab_noeud(indice_noeu) = tab_old_noe(i);
nv_tab_noe(i)=indice_noeu;
tab_noeud(indice_noeu)->Change_num_noeud(indice_noeu);
indice_noeu++;
};
// on redimentionne et réafecte le tableau d'élément
Tableau<Element *> tab_old_El = tab_element; // sauvegarde de l'ancien tableau
// nv_tab est tel que : nv_tab_ele(i) est le nouveau numéro qui avait auparavant le numéro "i"
Tableau <int > nv_tab_ele(NBE);
tab_element.Change_taille(nb_el);
int indice_ele=1; // pour parcourir le tableau final d'élément
for (int i=1;i<=NBE;i++)
if (!tab_el_non_referencer(i))
{tab_element(indice_ele) = tab_old_El(i);
nv_tab_ele(i)=indice_ele;
tab_element(indice_ele)->Change_num_elt(indice_ele);
indice_ele++;
};
// on s'occupe maintenant des références
lesRef->Mise_a_jour_ref_element(nv_tab_ele,idmail,tab_el_non_referencer);
lesRef->Mise_a_jour_ref_noeud(nv_tab_noe,idmail,tab_noe_non_referencer);
// toilettage final
listFrontiere.clear();tab_noeud_front.Change_taille(0);indice.Change_taille(0);
mitoyen_de_chaque_element.Change_taille(0);
};
// relocalisation des points milieux des arrêtes des éléments quadratiques
void Maillage::RelocPtMilieuMailleQuadra()
{ // on passe en revue les différents éléments pour voir s'il ont une arrête quadratique
int nbe = tab_element.Taille();
for (int ne=1;ne<=nbe;ne++)
{ // récup de l'élément géométrique
const ElemGeomC0& elgeom = tab_element(ne)->ElementGeometrique_const();
// récup du nombre de segment
int nbse= elgeom.NbSe();
// on boucle sur les segments pour voir s'il y a un quadratique
for (int iseg=1;iseg<=nbse;iseg++)
{ ElemGeomC0 const & elseg = elgeom.ElemSeg(iseg);
if (elseg.TypeInterpolation() == QUADRACOMPL)
{ // récup de la connection des noeuds des arêtes par rapport a ceux de l'element
Tableau<Tableau<int> > const & nonStout = elgeom.NonS();
Tableau <int> const & nonS = nonStout(iseg);
Tableau<Noeud *>& t_noeud = tab_element(ne)->Tab_noeud();
Noeud & N1=*t_noeud(nonS(1));Noeud & N2=*t_noeud(nonS(2));Noeud & N3=*t_noeud(nonS(3));
// ------------- étape de modification du noeud milieu -----------------------
Coordonnee M01= N1.Coord0();Coordonnee M02= N2.Coord0();Coordonnee M03= N3.Coord0();
Coordonnee M1M3=(M03-M01);Coordonnee M1M2=(M02-M01);Coordonnee M2M3=(M03-M02);
double d12=M1M2.Norme();double d13=M1M3.Norme();double d23=M2M3.Norme();
if ((d12 < ConstMath::unpeupetit) || (d13 < ConstMath::unpeupetit) || (d23 < ConstMath::unpeupetit))
{ cout << "\n erreur deux des trois points du segment quadratique sont confondu a l'instant 0"
<< "\n il n'est pas possible d'effectuer la relocalisation du noeud milieu pour ce segment"
<< "\n Maillage::RelocPtMilieuMailleQuadra()";
N1.Affiche(); N2.Affiche(); N3.Affiche();
break;
}
Coordonnee U=M1M3/d13;
// le vecteur normal à U
int dim = ParaGlob::Dimension(); Coordonnee V(dim);
double sinusangle;
switch (dim)
{ case 1: // ici il suffit de prendre le point milieu
{ sinusangle=0.; break;}
case 2 : {V(1) = -U(2); V(2)=U(1);sinusangle = Util::Determinant(U,M1M2);break;}
case 3 : {Coordonnee W = Util::ProdVec_coor(U,M1M2); sinusangle = Util::Determinant(U,M1M2);
if (sinusangle > ConstMath::unpeupetit)
{ W.Normer(); V = Util::ProdVec_coor(W,U);}
break;
}
};
// on vérifie que les 3 points ne sont pas naturellement alignés
if (sinusangle > ConstMath::unpeupetit)
// cas où l'on peut considérer une base locale
{
double N1H = M1M2*U; double HN2 = M1M2*V;
double p1 = d13/2.; double p2 = d13*d13*HN2/(4.*N1H*(d13-N1H));
Coordonnee P = M01 + p1 * U + p2 * V;;
N2.Change_coord0(P); break;
}
else
// cas où les 3 points sont originalement alignés
{ Coordonnee milieu = (M01+M03)/2.;
N2.Change_coord0(milieu); break;
}
// +++++++ si les coordonnées à t existent, même traitement
if (N1.ExisteCoord1())
{ M01= N1.Coord1();M02= N2.Coord1();M03= N3.Coord1();
M1M3=(M03-M01); M1M2=(M02-M01); M2M3=(M03-M02);
d12=M1M2.Norme(); d13=M1M3.Norme(); d23=M2M3.Norme();
if ((d12 < ConstMath::unpeupetit) || (d13 < ConstMath::unpeupetit) || (d23 < ConstMath::unpeupetit))
{ cout << "\n erreur deux des trois points du segment quadratique sont confondu a l'instant t"
<< "\n il n'est pas possible d'effectuer la relocalisation du noeud milieu pour ce segment"
<< "\n Maillage::RelocPtMilieuMailleQuadra()";
N1.Affiche(); N2.Affiche(); N3.Affiche();
break;
}
U=M1M3/d13;
// le vecteur normal à U
switch (dim)
{ case 1: // ici il suffit de prendre le point milieu
{ sinusangle=0.; break;}
case 2 : {V(1) = -U(2); V(2)=U(1);sinusangle = Util::Determinant(U,M1M2);break;}
case 3 : {Coordonnee W = Util::ProdVec_coor(U,M1M2); sinusangle = Util::Determinant(U,M1M2);
if (sinusangle > ConstMath::unpeupetit)
{ W.Normer(); V = Util::ProdVec_coor(W,U);}
break;
}
};
// on vérifie que les 3 points ne sont pas naturellement alignés
if (sinusangle > ConstMath::unpeupetit)
// cas où l'on peut considérer une base locale
{
double N1H = M1M2*U; double HN2 = M1M2*V;
double p1 = d13/2.; double p2 = d13*d13*HN2/(4.*N1H*(d13-N1H));
Coordonnee P = M01 + p1 * U + p2 * V;;
N2.Change_coord1(P); break;
}
else
// cas où les 3 points sont originalement alignés
{ Coordonnee milieu = (M01+M03)/2.;
N2.Change_coord1(milieu); break;
}
}
// +++++ si les coordonnées à t existent, même traitement
if (N1.ExisteCoord2())
{ M01= N1.Coord2();M02= N2.Coord2();M03= N3.Coord2();
M1M3=(M03-M01); M1M2=(M02-M01); M2M3=(M03-M02);
d12=M1M2.Norme(); d13=M1M3.Norme(); d23=M2M3.Norme();
if ((d12 < ConstMath::unpeupetit) || (d13 < ConstMath::unpeupetit) || (d23 < ConstMath::unpeupetit))
{ cout << "\n erreur deux des trois points du segment quadratique sont confondu a l'instant tdt"
<< "\n il n'est pas possible d'effectuer la relocalisation du noeud milieu pour ce segment"
<< "\n Maillage::RelocPtMilieuMailleQuadra()";
N1.Affiche(); N2.Affiche(); N3.Affiche();
break;
}
U=M1M3/d13;
// le vecteur normal à U
switch (dim)
{ case 1: // ici il suffit de prendre le point milieu
{ sinusangle=0.; break;}
case 2 : {V(1) = -U(2); V(2)=U(1);sinusangle = Util::Determinant(U,M1M2);break;}
case 3 : {Coordonnee W = Util::ProdVec_coor(U,M1M2); sinusangle = Util::Determinant(U,M1M2);
if (sinusangle > ConstMath::unpeupetit)
{ W.Normer(); V = Util::ProdVec_coor(W,U);}
break;
}
};
// on vérifie que les 3 points ne sont pas naturellement alignés
if (sinusangle > ConstMath::unpeupetit)
// cas où l'on peut considérer une base locale
{
double N1H = M1M2*U; double HN2 = M1M2*V;
double p1 = d13/2.; double p2 = d13*d13*HN2/(4.*N1H*(d13-N1H));
Coordonnee P = M01 + p1 * U + p2 * V;;
N2.Change_coord2(P); break;
}
else
// cas où les 3 points sont originalement alignés
{ Coordonnee milieu = (M01+M03)/2.;
N2.Change_coord2(milieu); break;
}
}
// ------------- fin de l'étape de modification du noeud milieu - --------------
}
}
}
};
// sortie du schemaXML: en fonction de enu
void Maillage::SchemaXML_Maillages(ostream& sort,const Enum_IO_XML enu)
{ switch (enu)
{case XML_TYPE_GLOBAUX:
{// on définit des types pour un maillage
Noeud::SchemaXML_Noeud(sort,enu);
// def du type maillage
sort << "\n <xs:complexType name=\"Maillage\" >"
<< "\n <xs:annotation>"
<< "\n <xs:documentation> un nom de maillage, des noeuds, des references de noeuds,"
<< "\n des elements, des references d'elements "
<< "\n </xs:documentation>"
<< "\n </xs:annotation>"
<< "\n <xs:sequence>"
<< "\n <xs:element name=\"nom_du_maillage\" type=\"xs:string\" />"
<< "\n <xs:element name=\"Noeud\" type=\"Noeud\" "
<< "\n minOccurs=\"1\" maxOccurs=\"unbounded\" />";
/* << "\n <xs:complexType>"
<< "\n <xs:element name=\"****les_maillages:_nombre=\" type=\"xs:positiveInteger\" "
<< "\n use=\"required\" minOccurs=\"1\" maxOccurs=\"unbounded\" />"
<< "\n <xs:element name=\"defMaillages\" type=\"Maillage\" use=\"required\" />" */
sort << "\n </xs:sequence>"
<< "\n </xs:complexType>";
break;
}
case XML_IO_POINT_INFO:
{// cas de la définition d'un maillage
/* sort << "\n <xs:element name=\"Maillages\" minOccurs=\"1\" maxOccurs=\"unbounded\" >"
<< "\n <xs:complexType>"
<< "\n <xs:annotation>"
<< "\n <xs:documentation> un nom de maillage, des noeuds, des references de noeuds,"
<< "\n des elements, des references d'elements "
<< "\n </xs:documentation>"
<< "\n </xs:annotation>"
<< "\n <xs:sequence>"
<< "\n <xs:element name=\"nom_du_maillage\" type=\"xs:string\" />"
<< "\n <xs:element name=\"les_noeuds\" type=\"Noeud\" "
<< "\n minOccurs=\"1\" maxOccurs=\"unbounded\" />"*/
/* << "\n <xs:complexType>"
<< "\n <xs:element name=\"****les_maillages:_nombre=\" type=\"xs:positiveInteger\" "
<< "\n use=\"required\" minOccurs=\"1\" maxOccurs=\"unbounded\" />"
<< "\n <xs:element name=\"defMaillages\" type=\"Maillage\" use=\"required\" />" */
/* sort << "\n </xs:sequence>"
<< "\n </xs:complexType>"
<< "\n </xs:element>";*/
// def de Maillage
// SchemaXML_Maillage(sort,niveau);
break;
}
};
};
//---------------------- class de travail ---------------------------
// classe de travail qui sert pour pouvoir classer les noeuds par leur position géométrique initiale
// deux élément sont identiques si leur position initiale sont identique
// a >= b si : soit a.x >= b.x, ou a.x==b.x et a.y >= b.y, ou a.x==b.x et a.y == b.y et a.z >= b.z
Maillage::PosiEtNoeud& Maillage::PosiEtNoeud::operator= (const Maillage::PosiEtNoeud& po) // affectation
{ noe=po.noe; return *this;};
bool Maillage::PosiEtNoeud::operator == (const Maillage::PosiEtNoeud& po) const // test d'égalité
{ if ((noe->Coord0()-po.noe->Coord0()).Norme() <= ConstMath::unpeupetit) return true; else return false; };
bool Maillage::PosiEtNoeud::operator != (const Maillage::PosiEtNoeud& po) const // test d'inégalité
{ if (noe->Coord0() != po.noe->Coord0()) return true; else return false; };
bool Maillage::PosiEtNoeud::operator < (const Maillage::PosiEtNoeud& po) const // relation d'ordre
{ Coordonnee co1=noe->Coord0(); Coordonnee co2=po.noe->Coord0();
switch (co1.Dimension())
{ case 1: return (co1(1) < co2(1));break;
case 2: {if (co1(1) < co2(1)) return true;
else if (co1(1) == co2(1))
{ return (co1(2) < co2(2));}
else return false;
break;}
case 3: {if (co1(1) < co2(1)) return true;
else if (co1(1) == co2(1))
{ if (co1(2) < co2(2)) return true;
else if (co1(2) == co2(2))
{ return (co1(3) < co2(3));}
else { return false;};
}
return false;
break;
}
default:
{ cout << "\n erreur le cas différent de 1 2 3 n'est pas admissible ici= " << co1.Dimension()
<< "\n bool Maillage::PosiEtNoeud::operator < (co... ";
Sortie(1);
}
};
Sortie(1); // ne doit jamais passer ici !!
return false;
};
bool Maillage::PosiEtNoeud::operator <= (const Maillage::PosiEtNoeud& po) const // relation d'ordre
{ Coordonnee co1=noe->Coord0(); Coordonnee co2=po.noe->Coord0();
switch (co1.Dimension())
{ case 1: return (co1(1) <= co2(1));break;
case 2: {if (co1(1) < co2(1)) return true;
else if (co1(1) == co2(1))
{ return (co1(2) <= co2(2));}
else return false;
break;}
case 3: {if (co1(1) < co2(1)) return true;
else if (co1(1) == co2(1))
{ if (co1(2) < co2(2)) return true;
else if (co1(2) == co2(2))
{ return (co1(3) <= co2(3));}
else {return false;};
}
return false;
break;
}
default:
{ cout << "\n erreur le cas différent de 1 2 3 n'est pas admissible ici= " << co1.Dimension()
<< "\n bool Maillage::PosiEtNoeud::operator <= (co... ";
Sortie(1);
}
};
Sortie(1); // ne doit jamais passer ici !!
return false;
};
bool Maillage::PosiEtNoeud::operator > (const Maillage::PosiEtNoeud& po) const // relation d'ordre
{ return !(*this <= po);};
bool Maillage::PosiEtNoeud::operator >= (const Maillage::PosiEtNoeud& po) const // relation d'ordre
{ return !(*this < po);};
// transfert de grandeurs des points d'intégration aux noeuds
// 1- en entrée les type évolués et quelconques que l'on veut transférer
// 2- en entrée: cas qui indique la méthode de transfert à utiliser
// =1 : les valeurs aux noeuds sont obtenue par moyennage
// des valeurs des pts d'integ les plus près
// des éléments qui entourent le noeud
// on décompose le processus en 3 étapes pour éviter d'initialiser plusieurs
// fois lorque l'on refait à chaque fois
// le même transfert
// A) première étape def des conteneurs et c'est tout, la méthode peut donc être utilisée
// pour autre chose. tabQ: permet d'avoir plusieurs listes de TypeQuelconque
// en entrée: tabQ doit-être de dimension 2, donc pointe sur 2 listes, si un des pointeur
// est nulle on n'en tient pas compte
void Maillage::AjoutConteneurAuNoeud(const List_io < Ddl_enum_etendu >& lienu
,const Tableau <List_io < TypeQuelconque > * >& tabQ)
{ // on crée des tableaux pour optimiser le nombre d'appel aux fonctions d'ajout de grandeur aux noeuds
// 1) cas des Ddl_enum_etendu
Tableau <Ddl_enum_etendu > tab_ddlEnuEtendu(lienu.size());
{List_io < Ddl_enum_etendu >::const_iterator ilienu,ilienufin = lienu.end();
int indice = 1;
for (ilienu = lienu.begin();ilienu != ilienufin; ilienu++,indice++)
tab_ddlEnuEtendu(indice) = (*ilienu);
};
// 2) cas des grandeurs quelconques
Tableau < TypeQuelconque > tabglobQ;
int ttai = 0;
if (tabQ(1) != NULL) ttai += tabQ(1)->size();
if (tabQ(2) != NULL) ttai += tabQ(2)->size();
tabglobQ.Change_taille(ttai);
int indice = 1;
if (tabQ(1) != NULL)
{List_io < TypeQuelconque >::const_iterator itabQ,itabQfin = tabQ(1)->end();
for (itabQ = tabQ(1)->begin();itabQ != itabQfin; itabQ++,indice++)
{tabglobQ(indice).ChangeGrandeur(*itabQ); // on commence par changer la grandeur
tabglobQ(indice) = (*itabQ); // et on affecte
};
};
if (tabQ(2) != NULL)
{List_io < TypeQuelconque >::const_iterator itabQ,itabQfin = tabQ(2)->end();
for (itabQ = tabQ(2)->begin();itabQ != itabQfin; itabQ++,indice++)
{tabglobQ(indice).ChangeGrandeur(*itabQ); // on commence par changer la grandeur
tabglobQ(indice) = (*itabQ); // et on affecte
};
};
int nbN=tab_noeud.Taille();
// on met à jour les noeuds
for(int i=1;i<=nbN;i++)
{ // Pour les grandeurs ddl étendu on les ajoutes aux noeuds si ce n'est pas déjà fait
tab_noeud(i)->AjoutTabDdl_etendu(tab_ddlEnuEtendu);
// on ajoute également les différents types quelconques aux noeuds
tab_noeud(i)->AjoutTabTypeQuelconque(tabglobQ);
// on met à jour le tableau d'indice de noeud, qui donne le nombre de fois où chaque noeud à été updaté
tab_noeud(i)->Mise_non_update_Ddl_etendu();
tab_noeud(i)->Mise_non_update_grandeurs_quelconques();
};
};
// B) initialisation des updates sur les noeuds
void Maillage::InitUpdateAuNoeud(const List_io < Ddl_enum_etendu >& lienetendu
,const Tableau <List_io < TypeQuelconque > * >& tabQ, int )
{int nbN=tab_noeud.Taille();
List_io <Ddl_enum_etendu>::const_iterator iliet,ilietfin = lienetendu.end();
List_io <TypeQuelconque>::const_iterator iliGQ,iliGQfin;
// on met à jour tous les noeuds
for(int inoeud=1;inoeud<=nbN;inoeud++)
{for (iliet = lienetendu.begin();iliet != ilietfin; iliet++)
{Ddl_etendu& dd = tab_noeud(inoeud)->ModifDdl_etendu(*iliet);
// on initialise la grandeur pointée:
dd.Valeur()=0.;
// mise à 0 du nombre d'appel
tab_noeud(inoeud)->Mise_non_update_Ddl_etendu(*iliet);
};
for (int iQu=1;iQu<=tabQ.Taille();iQu++)
{if (tabQ(iQu) != NULL)
{iliGQfin = tabQ(iQu)->end();
for (iliGQ = tabQ(iQu)->begin();iliGQ != iliGQfin; iliGQ++)
{TypeQuelconque& tq = tab_noeud(inoeud)->ModifGrandeur_quelconque((*iliGQ).EnuTypeQuelconque());
TypeQuelconque::Grandeur & grandeur = *(tq.Grandeur_pointee());
// on initialise la grandeur pointée:
grandeur *= 0.;
// mise à 0 du nombre d'appel
tab_noeud(inoeud)->Mise_non_update_grandeurs_quelconques((*iliGQ).EnuTypeQuelconque());
};
}
};
};
};
// D) dernière étape: (par exemple calcul des moyennes en chaque noeuds)
void Maillage::FinTransfertPtIntegAuNoeud
(const List_io < Ddl_enum_etendu >& lienetendu,const Tableau <List_io < TypeQuelconque > * >& tabQ,int cas)
{switch(cas)
{ case 1: // cas du transfert par moyennage
{ int nbN=tab_noeud.Taille();
List_io <Ddl_enum_etendu>::const_iterator iliet,ilietfin = lienetendu.end();
List_io <TypeQuelconque>::const_iterator iliGQ,iliGQfin;
// on passe en revue les grandeurs aux noeuds, et on les moyennes
for(int inoeud=1;inoeud<=nbN;inoeud++)
{ // .. pour les ddl étendus ..
for (iliet = lienetendu.begin();iliet != ilietfin; iliet++)
{Ddl_etendu& dd = tab_noeud(inoeud)->ModifDdl_etendu(*iliet);
// on modifie la grandeur pointée: -1 car ici on vient d'appeler
// ModifDdl_etendu qui comptabilise un appel de +
// dd.Valeur()/=(tab_noeud(inoeud)->DdlEtendue_update(*iliet)-1);
int nbappel = MaX((tab_noeud(inoeud)->DdlEtendue_update(*iliet)-1),1);
dd.Valeur()/=nbappel;
};
// .. pour les grandeurs quelconques ..
for (int iQu=1;iQu<=tabQ.Taille();iQu++)
{if (tabQ(iQu) != NULL)
{iliGQfin = tabQ(iQu)->end();
for (iliGQ = tabQ(iQu)->begin();iliGQ != iliGQfin; iliGQ++)
{TypeQuelconque_enum_etendu enuQ = (*iliGQ).EnuTypeQuelconque();
TypeQuelconque& tq = tab_noeud(inoeud)->ModifGrandeur_quelconque(enuQ);
TypeQuelconque::Grandeur & grandeur = *(tq.Grandeur_pointee());
// on modifie les grandeurs pointées: -1 car ici on vient d'appeler
// ModifGrandeur_quelconque qui comptabilise un appel de +
grandeur /= MaX((tab_noeud(inoeud)->Grandeur_quelconque_update(enuQ)-1),1);
//--- debug
//if (iliGQ == tabQ(iQu)->begin())
// cout << " noeud " << inoeud << " grandeur " << grandeur << endl;
//--- fin debug
};
}
};
};
break;
}
default :
cout << "\n *** cas non implante, cas = " << cas
<< "\n FinTransfertPtIntegAuNoeud(... ";
Sortie(1);
};
};
// fonctions utilitaires du même genre
// ajout sur le maillage d'un conteneur particulier quelconque
void Maillage::AjoutConteneurAuNoeud(TypeQuelconque& tQ)
{ int nbN=tab_noeud.Taille();
// on met à jour les noeuds
for(int i=1;i<=nbN;i++)
{ // on ajoute le type quelconque au noeud
tab_noeud(i)->AjoutUnTypeQuelconque(tQ);
// on met à jour le tableau d'indice de noeud, qui donne le nombre de fois où chaque noeud à été updaté
tab_noeud(i)->Mise_non_update_grandeurs_quelconques();
};
};
// ajout sur le maillage d'un ou plusieur ddl_enum_etendu comme conteneur
void Maillage::AjoutConteneurAuNoeud(const List_io < Ddl_enum_etendu >& lienu)
{ // on crée des tableaux pour optimiser le nombre d'appel aux fonctions d'ajout de grandeur aux noeuds
// 1) cas des Ddl_enum_etendu
Tableau <Ddl_enum_etendu > tab_ddlEnuEtendu(lienu.size());
{List_io < Ddl_enum_etendu >::const_iterator ilienu,ilienufin = lienu.end();
int indice = 1;
for (ilienu = lienu.begin();ilienu != ilienufin; ilienu++,indice++)
tab_ddlEnuEtendu(indice) = (*ilienu);
};
int nbN=tab_noeud.Taille();
int nb_ienu = lienu.size();
// on met à jour les noeuds
for(int i=1;i<=nbN;i++)
{ // Pour les grandeurs ddl étendu on les ajoutes aux noeuds si ce n'est pas déjà fait
tab_noeud(i)->AjoutTabDdl_etendu(tab_ddlEnuEtendu);
// on met à jour le tableau d'indice de noeud, qui donne le nombre de fois où chaque noeud à été updaté
for (int idee=1; idee <= nb_ienu; idee++)
tab_noeud(i)->Mise_non_update_Ddl_etendu(tab_ddlEnuEtendu(idee));
};
};
// initialisation des updates de ddl_étendu uniquement sur les noeuds: on met à 0 les ddl_etendu correspondant,
// les compteurs, comptant le nombre de fois où les noeuds sont modifiés, sont mis à 0
void Maillage::InitUpdateAuNoeud(const List_io < Ddl_enum_etendu >& lienetendu)
{int nbN=tab_noeud.Taille();
List_io <Ddl_enum_etendu>::const_iterator iliet,ilietfin = lienetendu.end();
// on met à jour tous les noeuds
for(int inoeud=1;inoeud<=nbN;inoeud++)
{for (iliet = lienetendu.begin();iliet != ilietfin; iliet++)
{Ddl_etendu& dd = tab_noeud(inoeud)->ModifDdl_etendu(*iliet);
// on initialise la grandeur pointée:
dd.Valeur()=0.;
};
// on met à 0 le tableau d'indice de noeud, qui donne le nombre de fois où chaque noeud à été updaté
tab_noeud(inoeud)->Mise_non_update_Ddl_etendu();
};
};
// initialisation des updates d'un seul ddl_étendu uniquement sur les noeuds: on met à 0 le ddl_etendu correspondant,
// le compteur, comptant le nombre de fois où le noeud est modifié, est mis à 0
void Maillage::InitUpdateAuNoeud(const Ddl_enum_etendu & enetendu)
{int nbN=tab_noeud.Taille();
// on met à jour tous les noeuds
for(int inoeud=1;inoeud<=nbN;inoeud++)
{ // on initialise la grandeur pointée:
(tab_noeud(inoeud)->ModifDdl_etendu(enetendu)).Valeur()=0.;
// on met à 0 le tableau d'indice de noeud, qui donne le nombre de fois où chaque noeud à été updaté
tab_noeud(inoeud)->Mise_non_update_Ddl_etendu();
};
};
// moyenne des valeurs aux noeuds (en fonction du nombre ou le noeud a été modifié)
void Maillage::MoyenneCompteurAuNoeud(const Ddl_enum_etendu & enu)
{ int nbN=tab_noeud.Taille();
// on passe en revue les grandeurs aux noeuds, et on les moyennes
for(int inoeud=1;inoeud<=nbN;inoeud++)
{ Ddl_etendu& dd = tab_noeud(inoeud)->ModifDdl_etendu(enu);
// on modifie la grandeur pointée: -1 car ici on vient d'appeler
// ModifDdl_etendu qui comptabilise un appel de +
int nbappel = (tab_noeud(inoeud)->DdlEtendue_update(enu)-1);
dd.Valeur()/=nbappel;
};
};
// initialisation des coordonnées à t et tdt aux mêmes valeurs qu'à 0
// utile quand on veut utiliser les métriques pour un pb non couplés
void Maillage::Init_Xi_t_et_tdt_de_0()
{ int nbN=tab_noeud.Taille();
// on passe en revue les grandeurs aux noeuds, et on les moyennes
for(int inoeud=1;inoeud<=nbN;inoeud++)
{ Noeud & noe = *tab_noeud(inoeud);
const Coordonnee& co1 = noe.Coord0();
noe.Change_coord1(co1);
noe.Change_coord2(co1);
};
};
// lecture des mouvements solides si nécessaire
void Maillage::Lecture_des_mouvements_solides(UtilLecture * entreePrinc)
{ // on définit un mouvement solide (vide par défaut)
MvtSolide mvtsolide;
if (strstr(entreePrinc->tablcar,"def_mouvement_solide_initiaux_")!=NULL) // cas de mouvements initiaux initiaux
{ if (ParaGlob::NiveauImpression() >= 6) cout << " lecture des mouvements solides initiaux " << endl ;
entreePrinc->NouvelleDonnee(); // on passe le mot clé
};
// lecture éventuelle des mouvements solides
mvtsolide.Lecture_mouvements_solides(entreePrinc);
// traitement au cas où il y a eu lecture de mouvements non nul
if (mvtsolide.ExisteMvtSolide())
{ if (ParaGlob::NiveauImpression() >= 6)
cout << " traitement des mouvements solides initiaux sur le maillage " << endl ;
// on passe le mot clé de fin de mouvement solides pour les lectures suivantes
entreePrinc->NouvelleDonnee();
// --- dans le cas où il y a des centres de rotation qui sont des positions de noeud, on renseigne
// a) récupération des centres de rotation noeud, éventuellement
const list <String_et_entier>& lis_centre_noeud = mvtsolide.Liste_ident_centreNoeud();
if (lis_centre_noeud.size() != 0)
{ list <String_et_entier>::const_iterator ict,ictfin=lis_centre_noeud.end();
list <Coordonnee> list_coor; // liste des coordonnées des noeuds centre de rotation
for (ict = lis_centre_noeud.begin();ict!=ictfin;ict++)
{ // a priori ne concerne que le maillage en question
if (((*ict).nom == "")|| ((*ict).nom == nomDuMaillage))
// cas normal
{ int num_noeud = (*ict).n;
if ((num_noeud < 0) || (num_noeud > tab_noeud.Taille()))
{ cout << "\n *** erreur sur le numero de noeud de centre de rotation = "<< num_noeud
<< " on ne peut pas appliquer la rotation " << endl;
if (ParaGlob::NiveauImpression() >= 6) cout << " lecture des mouvements solides initiaux " << endl ;
};
list_coor.push_back(tab_noeud(num_noeud)->Coord0()); // on récupère les coordonnées initiales
}
else // cas où il s'agit d'un autre maillage, pour l'instant non pris en compte
{ cout << "\n *** erreur sur le numero de noeud concerne un autre maillage = "<< (*ict).nom
<< " cette option n'est pas prise en compte " << endl;
if (ParaGlob::NiveauImpression() >= 6) cout << " lecture des mouvements solides initiaux " << endl ;
};
};
// b) maintenant on passe l'info au mouvement solide
mvtsolide.RenseigneCentreNoeud(list_coor);
};
int nbnoeud = tab_noeud.Taille();
Coordonnee point_inter;
for (int ne=1;ne<=nbnoeud;ne++)
{ point_inter = tab_noeud(ne)->Coord0(); // récupération des coordonnées initiales
mvtsolide.AppliqueMvtSolide(point_inter); // on applique le mouvement solide
tab_noeud(ne)->Change_coord0(point_inter); // on met à jour les nouvelles coordonnées
};
};
};
// ajout d'une liste de noeud à un maillage
// si le numéro de maillage associé au noeud est nul, il est remplacé par celui du maillage
// si le numéro de maillage est déjà existant et est différent ce celui de this, il y a
// création d'un nouveau noeud identique, avec le numéro this
// ajout éventuel d'une liste de référence de noeuds, si celle-ci est non-nulle
// il y a création de nouvelles ref correspondantes au numéro de maillage de this
// et ces références sont rajoutées à lesRef
void Maillage::Ajout_de_Noeuds(const list <Noeud *> & lisN, list <const Reference*>* lref,LesReferences* lesRef )
{ // on change de taille du tableau de noeud et on ajoute les noeuds passés en paramètre
int nbN = tab_noeud.Taille();
int nb_lisN = lisN.size();
tab_noeud.Change_taille(nbN+nb_lisN);
list<Noeud*>::const_iterator il,ilfin=lisN.end();
// on définit un tableau indiquant les nouveaux numéros indicés par les anciens
// t_new_num(i) : = le numéro du nouveau noeud correspondant au noeud initial i
int taille_maxi = 0;
for(il=lisN.begin();il!=ilfin;il++) // un premier passage pour avoir la dimension maxi du tableau
if ((*il)->Num_noeud() > taille_maxi)
taille_maxi = (*il)->Num_noeud();
Tableau<int> t_new_num(taille_maxi,0); // les données du tableau sont initialisées à 0
int i=1;
for(il=lisN.begin();il!=ilfin;il++,i++)
{ int ancien_num = (*il)->Num_noeud();
if (((*il)->Num_Mail() != 0) && ((*il)->Num_Mail() != idmail))
{ // on crée un nouveau noeud identique
Noeud* new_noe = new Noeud(*(*il));
// on change les numéros de noeud et de maillage
new_noe->Change_num_noeud(i+nbN);
new_noe->Change_num_Mail(idmail);
// affectation
tab_noeud(i+nbN) = new_noe;
}
else // sinon cela signifie que le noeud n'appartient pas pour l'instant à un maillage
{ // on change les numéros de noeud et de maillage
(*il)->Change_num_noeud(i+nbN);
(*il)->Change_num_Mail(idmail);
// affectation
tab_noeud(i+nbN) = (*il);
};
// on enregistre le nouveau num que si l'ancien est non nul
if (ancien_num != 0)
t_new_num(ancien_num) = i+nbN;
};
// cas de la présence d'une liste de référence éventuellement à ajouter
if (lref != NULL)
{
#ifdef MISE_AU_POINT
if (lesRef == NULL)
{ cout << "\n erreur le conteneur de reference n'est pas defini "
<< "\n Maillage::Ajout_de_Noeuds(... ";
Sortie(1);
};
#endif
// on va passer en revue la liste des références à ajouter
list<const Reference*>::const_iterator im,imfin = lref->end();
for (im=lref->begin();im!=imfin;im++)
{ if ((*im)->Indic() == 1)
{const ReferenceNE & refN = *((ReferenceNE *) (*im));
// on va contruire une nouvelle référence ad hoc:
string nouveau_nom = (refN.Nom());
// on regarde s'il y a déjà une ref avec le même nom dans le maillage
// si oui on change le nom de la ref à ajouter
string ajout="";int num=0;
while (lesRef->Existe((refN.Nom()+ajout),idmail))
{num++;ajout = "_"+ChangeEntierSTring(num);};
if (ajout != "")
{ nouveau_nom += ajout;
if (ParaGlob::NiveauImpression() > 0)
cout << "\n >>> attention la reference "<<refN.Nom()<<" a ajouter au maillage "
<< nomDuMaillage << " a un nouveau nom "<< (refN.Nom()+ajout);
};
Tableau<int> tt = refN.Tab_num(); // on récupère une copie du tableau de ref
// on le met à jour / aux nouveaux numéros
int tai = tt.Taille();int kn=0; // kn c'est le pointeur dans la nouvelle ref
for (int k=1;k<= tai; k++)
{if (t_new_num(k) != 0)
{ kn++;
tt(kn) = t_new_num(k); // cas où effectivement on a rajouté un noeud qui était déjà référencé
// dans l'ancienne référence
}
else
{if (ParaGlob::NiveauImpression() > 0)
cout << "\n le noeud "<<k<<" de la ref "<<refN.Nom()
<<" n'existe plus dans le nouveau maillage "<<nomDuMaillage;
};
};
// on redimentionne le tableau au maxi d'élément
tt.Change_taille(kn);
// on crée la nouvelle référence si le tableau n'est pas nul
if (tt.Taille() != 0)
{ ReferenceNE* newref = new ReferenceNE(tt,idmail,1,nouveau_nom);
// ajout de la référence
lesRef->Ajout_reference(newref);
};
};
};
};
};
// ajout d'une liste d'éléments et de noeud à un maillage
// si le numéro de maillage associé à l'élément ou noeud est nul, il est remplacé par celui du maillage
// si le numéro de maillage est déjà existant et est différent ce celui de this, il y a
// création d'un nouvel item identique, avec le numéro this
// ajout éventuel d'une liste de références associées , si celle-ci est non-nulle
// il y a création de nouvelles ref correspondantes au numéro de maillage de this
// et ces références sont rajoutées à lesRef
// les noeuds qui sont associés aux éléments de lisE, doivent faire partie : soit de lisN, soit du maillage this
void Maillage::Ajout_elements_et_noeuds
(const list <Noeud *> & lisN, const list <Element *> & lisE,list <const Reference*>* lref,LesReferences* lesRef )
{ // -- on commence par ajouter les noeuds en gardant une trace du type d'ajout
// on change de taille du tableau de noeud et on ajoute les noeuds passés en paramètre
int nbN = tab_noeud.Taille();
int nb_lisN = lisN.size();
tab_noeud.Change_taille(nbN+nb_lisN);
list<Noeud*>::const_iterator il,ilfin=lisN.end();
// on définit un tableau indiquant les nouveaux numéros indicés par les anciens
// t_new_num(i) : = le numéro du nouveau noeud correspondant au noeud initial i
int taille_maxi = 0;
for(il=lisN.begin();il!=ilfin;il++) // un premier passage pour avoir la dimension maxi du tableau
if ((*il)->Num_noeud() > taille_maxi)
taille_maxi = (*il)->Num_noeud();
Tableau<int> t_new_num(taille_maxi,0); // les données du tableau sont initialisées à 0
list<Noeud*> li_nevez_noeud; // la liste des nouvelles positions de noeuds
int i=1;
for(il=lisN.begin();il!=ilfin;il++,i++)
{ int ancien_num = (*il)->Num_noeud();
if (((*il)->Num_Mail() != 0) && ((*il)->Num_Mail() != idmail))
{ // on crée un nouveau noeud identique
Noeud* new_noe = new Noeud(*(*il));
// on change les numéros de noeud et de maillage
new_noe->Change_num_noeud(i+nbN);
new_noe->Change_num_Mail(idmail);
// affectation
tab_noeud(i+nbN) = new_noe;
li_nevez_noeud.push_back(new_noe);
}
else // sinon cela signifie que le noeud n'appartient pas pour l'instant à un maillage
{ // on change les numéros de noeud et de maillage
(*il)->Change_num_noeud(i+nbN);
(*il)->Change_num_Mail(idmail);
// affectation
tab_noeud(i+nbN) = (*il);
li_nevez_noeud.push_back((*il));
};
// on enregistre le nouveau num que si l'ancien est non nul
// sinon
if (ancien_num != 0)
t_new_num(ancien_num) = i+nbN;
};
// -- puis on s'occupe des éléments
// on change de taille du tableau d'éléments et on ajoute les éléments passés en paramètre
int nbE = tab_element.Taille();
int nb_lisE = lisE.size();
tab_element.Change_taille(nbE+nb_lisE);
list<Element*>::const_iterator ie,iefin=lisE.end();
// on définit un tableau indiquant les nouveaux numéros indicés par les anciens
// t_new_num_elem(i) : = le numéro du nouvel élément correspondant à l'élément initial i
taille_maxi = 0;
for(ie=lisE.begin();ie!=iefin;ie++) // un premier passage pour avoir la dimension maxi du tableau
if ((*ie)->Num_elt_const() > taille_maxi)
taille_maxi = (*ie)->Num_elt_const();
Tableau<int> t_new_num_elem(taille_maxi,0); // les données du tableau sont initialisées à 0
i=1;
for(ie=lisE.begin();ie!=iefin;ie++,i++)
{ int num_elt = i+nbE; // numéro interne de l'élément
int ancien_num = (*ie)->Num_elt_const();
Element* new_elem = NULL; // sera affecté dans le if qui suit
if (((*ie)->Num_maillage() != 0) && ((*ie)->Num_maillage() != idmail))
{ Element::Signature signa = (*ie)->Signature_element(); // récupération de la signature de l'élément
// on crée un nouveau element identique
new_elem = Element::Choix_element(idmail,num_elt,signa);
if (new_elem == NULL)
{ // l'operation a echouee
cout << "\n Erreur dans la creation d'un nouvel element ****** ";
cout << "\n element : " << Nom_interpol(signa.id_interpol)
<< " " << Nom_geom(signa.id_geom)
<< "\n Maillage::Ajout_elements_et_noeuds(... " << endl;
Sortie (1);
};
// on affecte les données internes
(*new_elem) = (*(*ie));
// il faut de nouveau définir les numéros de maillage et d'élément
new_elem->Change_num_elt(num_elt);
new_elem->Change_num_maillage(idmail);
}
else // sinon cela signifie que l'éléments n'appartient pas pour l'instant à un maillage
{ // on change les numéros d'élément et de maillage, et peut directement l'affecté
(*ie)->Change_num_elt(num_elt);
(*ie)->Change_num_maillage(idmail);
new_elem = (*ie);
};
// maintenant on va s'occuper de la connexion
Tableau<Noeud *>& t_n_elem = new_elem->Tab_noeud();
int nbnoe = t_n_elem.Taille();
for (int inoe = 1; inoe <= nbnoe; inoe++)
{// on regarde si le noeud fait partie de la liste des noeuds en entrée
// ou alors, qu'il utilise les noeuds existants
bool fait_partie = false;
list<Noeud*>::iterator it=li_nevez_noeud.begin();
for(il=lisN.begin();il!=ilfin;il++,it++)
if ((*il) == t_n_elem(inoe))
{ fait_partie = true; break;};
// deux cas
if (fait_partie)
// on réaffecte
{t_n_elem(inoe)=(*it);}
else // sinon cela signifie que l'on utilise les noeuds existants
// on vérifie qu'il s'agit bien de noeud existant
{ bool verif = false;
for (int j=1;j<= nbN;j++) // on boucle jusqu'à nbN = le nombre initial de noeud
if (tab_noeud(j) == t_n_elem(inoe))
{verif = true; break;};
if (!verif)
{ cout << "\n erreur, la connexion de l'element a ajouter n'est pas recevable "
<< " le noeud "<<t_n_elem(inoe)->Num_noeud()<< " de l'element "
<< new_elem->Num_elt() << " n'existe pas dans le maillage initial "
<< "\n Maillage::Ajout_elements_et_noeuds(... " << endl;
Sortie (1);
};
}
};
// arrivée ici c'est que tout est ok, on ajoute l'élément
tab_element(nbE+i)=new_elem;
// on enregistre le nouveau num que si l'ancien est non nul
if (ancien_num != 0)
t_new_num_elem(ancien_num) = nbE+i;
};
// cas de la présence d'une liste de référence éventuellement à ajouter
if (lref != NULL)
{
#ifdef MISE_AU_POINT
if (lesRef == NULL)
{ cout << "\n erreur le conteneur de reference n'est pas defini "
<< "\n Maillage::Ajout_de_Noeuds(... ";
Sortie(1);
};
#endif
// on va passer en revue la liste des références à ajouter
list<const Reference*>::const_iterator im,imfin = lref->end();
for (im=lref->begin();im!=imfin;im++)
{int indic = (*im)->Indic(); // pour simplifier
switch (indic)
{case 1: // cas d'une ref de noeuds
{const ReferenceNE & refN = *((ReferenceNE *) (*im));
// on va contruire une nouvelle référence ad hoc:
string nouveau_nom = (refN.Nom());
// on regarde s'il y a déjà une ref avec le même nom dans le maillage
// si oui on change le nom de la ref à ajouter
string ajout="";int num=0;
while (lesRef->Existe((refN.Nom()+ajout),idmail))
{num++;ajout = "_"+ChangeEntierSTring(num);};
if (ajout != "")
{ nouveau_nom += ajout;
if (ParaGlob::NiveauImpression() > 0)
cout << "\n >>> attention la reference "<<refN.Nom()<<" a ajouter au maillage "
<< nomDuMaillage << " a un nouveau nom "<< (refN.Nom()+ajout);
};
Tableau<int> tt = refN.Tab_num(); // on récupère une copie du tableau de ref
Tableau<int> tt_new = tt; // le nouveau tableau
// on le met à jour / aux nouveaux numéros
int tai = tt.Taille();int kn=0; // kn c'est le pointeur dans la nouvelle ref
for (int k=1;k<= tai; k++)
{if (t_new_num(tt(k)) != 0)
{ kn++;
tt_new(kn) = t_new_num(tt(k)); // cas où effectivement on a rajouté un noeud qui était déjà référencé
// dans l'ancienne référence
}
else
{if (ParaGlob::NiveauImpression() > 0)
cout << "\n le noeud "<<tt(k)<<" de la ref "<<refN.Nom()
<<" n'existe plus dans le nouveau maillage "<<nomDuMaillage;
};
};
// on redimentionne le tableau au maxi d'élément
tt_new.Change_taille(kn);
// on crée la nouvelle référence si le tableau n'est pas nul
if (tt_new.Taille() != 0)
{ReferenceNE* newref = new ReferenceNE(tt_new,idmail,indic,nouveau_nom);
// ajout de la référence
lesRef->Ajout_reference(newref);
};
break;
}
case 2: // cas d'une ref d'éléments
{const ReferenceNE & refE = *((ReferenceNE *) (*im));
// on va contruire une nouvelle référence ad hoc:
string nouveau_nom = (refE.Nom());
// on regarde s'il y a déjà une ref avec le même nom dans le maillage
// si oui on change le nom de la ref à ajouter
string ajout="";int num=0;
while (lesRef->Existe((refE.Nom()+ajout),idmail))
{num++;ajout = "_"+ChangeEntierSTring(num);};
if (ajout != "")
{ nouveau_nom += ajout;
if (ParaGlob::NiveauImpression() > 0)
cout << "\n >>> attention la reference "<<refE.Nom()<<" a ajouter au maillage "
<< nomDuMaillage << " a un nouveau nom "<< (refE.Nom()+ajout);
};
Tableau<int> tt = refE.Tab_num(); // on récupère une copie du tableau de ref
// on le met à jour / aux nouveaux numéros
int tai = tt.Taille();int kn=0; // kn c'est le pointeur dans la nouvelle ref
Tableau<int> tt_new = tt; // le nouveau tableau
for (int k=1;k<= tai; k++)
{if (t_new_num_elem(tt(k)) != 0)
{ kn++;
tt_new(kn) = t_new_num_elem(tt(k)); // cas où effectivement on a rajouté un élément qui était déjà référencé
// dans l'ancienne référence
}
else
{if (ParaGlob::NiveauImpression() > 0)
cout << "\n l'element "<<tt(k)<<" de la ref "<<refE.Nom()
<<" n'existe plus dans le nouveau maillage "<<nomDuMaillage;
};
};
// on redimentionne le tableau au maxi d'élément
tt_new.Change_taille(kn);
// on crée la nouvelle référence si le tableau n'est pas nul
if (tt_new.Taille() != 0)
{ReferenceNE* newref = new ReferenceNE(tt_new,idmail,indic,nouveau_nom);
// ajout de la référence
lesRef->Ajout_reference(newref);
};
break;
}
case 3: case 4: case 5: case 6:// cas des autres refs: exemple surfaces
{const ReferenceAF & refAF = *((ReferenceAF *) (*im));
// on va contruire une nouvelle référence ad hoc:
string nouveau_nom = (refAF.Nom());
// on regarde s'il y a déjà une ref avec le même nom dans le maillage
// si oui on change le nom de la ref à ajouter
string ajout="";int num=0;
while (lesRef->Existe((refAF.Nom()+ajout),idmail))
{num++;ajout = "_"+ChangeEntierSTring(num);};
if (ajout != "")
{ nouveau_nom += ajout;
if (ParaGlob::NiveauImpression() > 0)
cout << "\n >>> attention la reference "<<refAF.Nom()<<" a ajouter au maillage "
<< nomDuMaillage << " a un nouveau nom "<< (refAF.Nom()+ajout);
};
Tableau<int> te = refAF.Tab_Elem(); // on récupère une copie du tableau des éléments
Tableau<int> te_new = te; // le nouveau tableau
// apriori seules les numéros d'élément sont succeptible d'avoir changé, les numéros
// locaux: surface, arête, noeuds relatifs à l'éléments, et pti restent inchangé
// par contre ils peuvent être supprimés si le num d'élément est supprimé
Tableau<int> tl = refAF.Tab_FA(); // on récupère une copie du tableau des num locaux
// on met à jour le tableau de d'éléments / aux nouveaux numéros
int tai = te.Taille();int kn=0; // kn c'est le pointeur dans la nouvelle ref
for (int k=1;k<= tai; k++)
{if (t_new_num_elem(te(k)) != 0)
{ kn++;
te_new(kn) = t_new_num_elem(te(k)); // cas où effectivement on a rajouté un élément qui était déjà référencé
// dans l'ancienne référence
tl(kn) = tl(k); // normalement k est > kn, donc cela revient à décaler
// en ne gardant que les termes viables
}
else
{if (ParaGlob::NiveauImpression() > 0)
cout << "\n l'element "<<te(k)<<" de la ref "<<refAF.Nom()
<<" n'existe plus dans le nouveau maillage "<<nomDuMaillage;
};
};
// on redimentionne le tableau au maxi d'élément
te_new.Change_taille(kn);tl.Change_taille(kn);
// on crée la nouvelle référence si le tableau n'est pas nul
if (te_new.Taille() != 0)
{ReferenceAF* newref = new ReferenceAF(te_new,tl,idmail,indic,nouveau_nom);
// ajout de la référence
lesRef->Ajout_reference(newref);
};
break;
}
};
};
};
// -------------- ajout de références globales si elles n'existent pas ---------------------
// ---- mise à jour de la référence de tous les éléments si elle n'existe pas déjà
int nbElement = tab_element.Taille();
string etout("E_tout");
if (lesRef->Existe(etout,idmail))
lesRef->SupprimeReference("E_tout",idmail); // on supprime la référence E_tout
// on construit le tableau des numéros des éléments
Tableau <int> tabE(nbElement); for (int i=1;i<=nbElement;i++) tabE(i)=i;
ReferenceNE* retout = new ReferenceNE(tabE,idmail,2,etout);// construction de la référence
lesRef->Ajout_reference(retout); // ajout de la ref, qui est maintenant géré par lesRef
// ---- dans tous les cas on ajoute ou modifie la référence de tous les noeuds
string ntout("N_tout");
int nbNoeud = tab_noeud.Taille();
if (lesRef->Existe(ntout,idmail))
lesRef->SupprimeReference("N_tout",idmail); // on supprime la référence N_tout
// on construit le tableau des numéros de noeuds
Tableau <int> tabN(nbNoeud); for (int i=1;i<=nbNoeud;i++) tabN(i)=i;
ReferenceNE* rtout = new ReferenceNE(tabN,idmail,1,ntout);// construction de la référence
lesRef->Ajout_reference(rtout); // ajout de la ref, qui est maintenant géré par lesRef
//debug
//cout << "\n nbElement " << nbElement << ", nbNoeud "<< nbNoeud << endl;
// fin debug
};
// force la mise à une valeur d'un ddl (ou de la liste de ddl fonction de la dimention) particulier, quelques soit son activité
// si fonction_de_la_dimension = true : c'est toute les ddl fct de la dimension qui sont mis à la valeur
void Maillage::Force_Ddl_aux_noeuds_a_une_valeur(Enum_ddl enu, const double& val,Enum_dure temps, bool fonction_de_la_dimension)
{
int nbnoeud = tab_noeud.Taille();
int dima = ParaGlob::Dimension();
switch (temps)
{case TEMPS_0:
{ if (!(fonction_de_la_dimension) || !FoncDim(enu))
{for (int i=1;i<= nbnoeud;i++)
{ Noeud& noe = *tab_noeud(i); // pour simplifier
if (noe.Existe_ici(enu)) // on intervient que si le ddl existe
noe.Change_val_0(enu,val);
};
}
else
{for (int i=1;i<= nbnoeud;i++)
{ Noeud& noe = *tab_noeud(i); // pour simplifier
if (noe.Existe_ici(enu)) // on intervient que si le ddl existe
{ switch (dima)
{ case 3: noe.Change_val_0(Enum_ddl(enu+2),val);
case 2: noe.Change_val_0(Enum_ddl(enu+1),val);
case 1: noe.Change_val_0(Enum_ddl(enu),val);
};
};
};
};
break;
}
case TEMPS_t:
{ if (!(fonction_de_la_dimension) || !FoncDim(enu))
{for (int i=1;i<= nbnoeud;i++)
{ Noeud& noe = *tab_noeud(i); // pour simplifier
if (noe.Existe_ici(enu)) // on intervient que si le ddl existe
noe.Change_val_t(enu,val);
};
}
else
{for (int i=1;i<= nbnoeud;i++)
{ Noeud& noe = *tab_noeud(i); // pour simplifier
if (noe.Existe_ici(enu)) // on intervient que si le ddl existe
{ switch (dima)
{ case 3: noe.Change_val_t(Enum_ddl(enu+2),val);
case 2: noe.Change_val_t(Enum_ddl(enu+1),val);
case 1: noe.Change_val_t(Enum_ddl(enu),val);
};
};
};
};
break;
}
case TEMPS_tdt:
{ if (!(fonction_de_la_dimension) || !FoncDim(enu))
{for (int i=1;i<= nbnoeud;i++)
{ Noeud& noe = *tab_noeud(i); // pour simplifier
if (noe.Existe_ici(enu)) // on intervient que si le ddl existe
noe.Change_val_tdt(enu,val);
};
}
else
{for (int i=1;i<= nbnoeud;i++)
{ Noeud& noe = *tab_noeud(i); // pour simplifier
if (noe.Existe_ici(enu)) // on intervient que si le ddl existe
{ switch (dima)
{ case 3: noe.Change_val_tdt(Enum_ddl(enu+2),val);
case 2: noe.Change_val_tdt(Enum_ddl(enu+1),val);
case 1: noe.Change_val_tdt(Enum_ddl(enu),val);
};
};
};
};
break;
}
};
};
// mise à zéro de dd_enum_etendu aux noeuds : force la mise à une valeur à 0
void Maillage::Force_Ddl_etendu_aux_noeuds_a_zero(const Tableau<Ddl_enum_etendu>& tab_enu)
{
int nbnoeud = tab_noeud.Taille();
int nb_enu = tab_enu.Taille();
for (int i=1;i<=nb_enu;i++)
{const Ddl_enum_etendu& enu = tab_enu(i);
for (int i=1;i<= nbnoeud;i++)
{ Noeud& noe = *tab_noeud(i); // pour simplifier
if (noe.Existe_ici_ddlEtendu(enu)) // on intervient que si le ddl existe
noe.ModifDdl_etendu(enu).Valeur() = 0.;
};
};
};
// on s'occupe de mettre à jour les types de pb et les ddl types associés
void Maillage::Mise_a_jour_type_pb_type_associe_ddl()
{ //types_de_problemes.clear();
//ddl_representatifs_des_physiques.clear();
// types_de_problemes.Libere();ddl_representatifs_des_physiques.Libere();
// int nbElement = tab_element.Taille();
//string titi;
//cout << "\n nbElement "<<nbElement << " une valeur ? ";
//cin >> titi;
// // on définit un tableau intermédiaire
// int nombre_de_EnumElemTypeProblem = Nombre_de_EnumElemTypeProblem();
//cout << "\n nombre_de_EnumElemTypeProblem "<<nombre_de_EnumElemTypeProblem << " une valeur ? ";
//cin >> titi;
// Tableau < int> types_de_problemes_actif(nombre_de_EnumElemTypeProblem,0);
// types_de_problemes_actif(1)=1;
//cout << "\n taill "<<types_de_problemes_actif.Taille() << " une valeur ? ";
//cin >> titi;
//cout << "\n types_de_problemes_actif(1) "<<types_de_problemes_actif(1) << " une valeur ? ";
//cin >> titi;
//
// for (int i;i<=nbElement;i++)
// {Element& ele = *tab_element(i);
//cout << "\n i"<<i <<"ele "<<ele.Num_elt() << " une valeur ? ";
//cin >> titi;
//ele.Affiche();
//cout << "\n i"<<i <<"ele "<<ele.Num_elt() << " une valeur ? ";
//cin >> titi;
// EnumElemTypeProblem enu = ele.Id_TypeProblem();
//cout << "\n i"<<i <<"ele "<<ele.Num_elt() << " une valeur ? ";
//cin >> titi;
//int truc =enu;
//cout << "\n enu= "<<enu<<" truc "<< truc<< " une valeur ? ";
//cin >> titi;
//cout << "\n types_de_problemes_actif(1) "<<types_de_problemes_actif(1) << " une valeur ? ";
//cin >> titi;
//types_de_problemes_actif(1) = 1;
//cout << "\n types_de_problemes_actif(1) "<<types_de_problemes_actif(1) << " une valeur ? ";
//cin >> titi;
//types_de_problemes_actif(int(enu)) = 1;
//cout << "\n types_de_problemes_actif(1) "<<types_de_problemes_actif(1) << " une valeur ? ";
//cin >> titi;
// // types_de_problemes_actif(truc) = 1; // on rend actif l'élément du tableau
// };
//cout << "\n une valeur ? ";
//cin >> titi;
// // maintenant on regarde le nombre de pb actif
// int nb_pb = 0; // init
// for (int i=1;i<=nombre_de_EnumElemTypeProblem;i++)
// if (types_de_problemes_actif(i)) nb_pb++;
//cout << "\n une valeur ? ";
//cin >> titi;
// // on redimentionne et on rempli
// types_de_problemes.Change_taille(nb_pb);
//cout << "\n une valeur ? ";
//cin >> titi;
// nb_pb = 0; // init
// for (int i=1;i<=nombre_de_EnumElemTypeProblem;i++)
// if (types_de_problemes_actif(i))
// {nb_pb++;types_de_problemes(nb_pb)=EnumElemTypeProblem(i);};
//cout << "\n une valeur ? ";
//cin >> titi;
//
//
////cout << "\n enu"<<enu << " une valeur ? ";
////cin >> titi;
//// bool trouve = false;
//// list <EnumElemTypeProblem>::iterator il,ilfin=types_de_problemes.end();
////if (!types_de_problemes.empty())
////cout << "\n ilfin il begin " << (*types_de_problemes.begin())<< " une valeur ? ";
////cin >> titi;
//// for (il=types_de_problemes.begin();il != ilfin; il++)
//// {cout << "\n "<<NomElemTypeProblem(*il) << " une valeur ? ";
//// cin >> titi;
////
//// if ((*il)==enu) {trouve = true; break;};
//// };
//// if (find(types_de_problemes.begin(),types_de_problemes.end(),enu) == types_de_problemes.end())
//// if (!trouve)
////EnumElemTypeProblem tutu = MECA_SOLIDE_DEFORMABLE;
// // { types_de_problemes.push_back(tutu);};
////
//// int taill = types_de_problemes.Taille();
//// for (int j=1;j<=taill;j++)
//// if (types_de_problemes(j) == enu)
//// { types_de_problemes.Change_taille(taill+1);
//// types_de_problemes(taill+1)=enu;
//// break;
//// };
//// };
//// inter.sort(); inter.unique();
//// types_de_problemes = inter;
// // on parcours les types de pb pour attribuer les types de ddl
//// list <EnumElemTypeProblem>::iterator il,ilfin=types_de_problemes.end();
//// for (il=types_de_problemes.begin();il != ilfin;il++)
////
//// { switch (types_de_problemes(j))
//// {case MECA_SOLIDE_DEFORMABLE :
//// ddl_representatifs_des_physiques.push_back(X1);break;
//// case THERMIQUE :
//// ddl_representatifs_des_physiques.push_back(TEMP);break;
//// default :
//// cout << "\n***Erreur : pour l'instant le type de probleme: "<<NomElemTypeProblem(*il)
//// << "n'est pas pris en compte !\n";
//// cout << "\n Maillage::LectureMaillage(... \n";
//// Sortie(1);
//// };
//// };
//// types_de_problemes.sort(); types_de_problemes.unique();
//// ddl_representatifs_des_physiques.sort(); ddl_representatifs_des_physiques.unique();
//
// ddl_representatifs_des_physiques.Change_taille(nb_pb);
// for (int j=1;j<=nb_pb;j++)
// { switch (types_de_problemes(j))
// {case MECA_SOLIDE_DEFORMABLE :
// ddl_representatifs_des_physiques(j)=X1;break;
// case THERMIQUE :
// ddl_representatifs_des_physiques(j)=TEMP;break;
// default :
// cout << "\n***Erreur : pour l'instant le type de probleme: "
// <<NomElemTypeProblem(types_de_problemes(j))
// << "n'est pas pris en compte !\n";
// cout << "\n Maillage::LectureMaillage(... \n";
// Sortie(1);
// };
// };
};