1784 lines
84 KiB
C++
1784 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-2021 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(ofstream& 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 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 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);
|
||
|
|
// };
|
||
|
|
// };
|
||
|
|
|
||
|
|
};
|
||
|
|
|