rio/Herezh_dev
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
Herezh_dev/contact/LesContacts_2.cc
Gérard Rio ea11c75ff8 - corr bug affichage intempestif contact 
- fct nD: amélioration message d'erreur (arguments), et en fct du niveau géré par une fct nD
- première validation du fct. en // en implicite statique et en RD,
  nombreuses modifications et amélioration !

Signed-off-by: Gérard Rio <gerardrio56@free.fr>
2024-03-24 11:43:58 +01:00

235 lines
11 KiB
C++
Executable file
Raw Blame History

// 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/>.
#ifndef LesContacts_2_deja_inclus
#include "LesContacts.h"
#endif
#ifndef LesContacts_2_deja_inclus
#include <vector>
#include "ReferenceNE.h"
#include "ReferenceAF.h"
//----- lecture écriture base info -----
// lecture base info
// on utilise deux pointeurs de fonctions qui permettent de récupérer le pointeur de noeud esclave
// idem au niveau de l'élément
template <class T>
void LesContacts::Lec_base_info_LesContacts(ifstream& ent
,T& instance // l'instance qui permet d'appeler les pointeurs de fonctions
,Noeud& (T::*RecupNoeud)(int i, int j) const
,Element& (T::*RecupElement_LesMaille)(int i, int j) const)
{
int niveau_commentaire_lescontacts = Permet_affichage();
if (Permet_affichage()>4)
cout << "\n -- LesContacts::Lec_base_info_LesContacts ";
// tout d'abord on lit le type
string type_contact,no_taille; int taille=0; // taille par défaut
ent >> type_contact >> no_taille >> taille;
#ifdef MISE_AU_POINT
if (type_contact != "LesContacts:")
{ cout << "\n erreur dans la lecture des contacts, on attendait la chaine: LesContacts:"
<< " alors que l'on a lue : " << type_contact
<< "\n LesContacts::Lec_base_info_LesContacts(i...";
Sortie(1);
};
if (no_taille != "taille")
{ cout << "\n erreur dans la lecture des contacts, on attendait la chaine: taille"
<< " alors que l'on a lue : " << no_taille
<< "\n LesContacts::Lec_base_info_LesContacts(i...";
Sortie(1);
};
#endif
// on supprime tous les éléments de contact sauf... les collants qui restent collant
{LaLIST <ElContact>::iterator iE ;
// on met .end(), car cette borne peut changer au gré des suppression
for (iE = listContact.begin(); iE != listContact.end(); iE++)
if (!((*iE).Collant()) // et si ce n'est pas collant: si collant, on ne change rien
)
{ // sinon on supprime
LaLIST <ElContact>::iterator iiE = iE;
iE--; // pointe sur le precedent element
LaLIST < LaLIST<ElContact>::iterator > & list_tesN
= tesN_encontact((*iiE).Esclave()->Num_Mail())[(*iiE).Esclave()];
list_tesN.remove(iiE);
listContact.erase(iiE); // efface l'element
};
};
Tableau <int> compteur_inesc(nb_mail_Esclave,1); // compteur de compteur de noeuds esclaves
// on initialise la liste des éléments en contact
// listContact.clear(); // comme on redémarre, on efface la situation actuelle
// non, il faut garder les éléments collants
// --- on s'occupe du deuxième niveau de tesN_encontact
// une map vide par défaut
std::map<Noeud*,LaLIST < LaLIST<ElContact>::iterator > > map_vide;
tesN_encontact.Change_taille(nb_mail_Esclave,map_vide);
for (int i=1;i<= taille;i++)
{// on commence par créer un élément de contact de base en fonction des infos sauvegardées
// --- le noeud esclave
string toto; int numMail_esclave, numNoeud_esclave;
string type;
int numMail_element, num_element, num_front_element;
Enum_type_geom enu ; string nom_enu; //N_es 1 72 El 2 2 SURFACE 1
ent >> toto >> numMail_esclave >> numNoeud_esclave // le noeud esclave
>> type >> numMail_element >> num_element // partie relative à l'élément
>> enu >> num_front_element; // et la frontière
// on ne continue que si le noeud fait partie des maillages esclave ou en auto-contact
// le nombre de maillages esclave et en auto-contact, peut-être redéfinit lors d'un restart
// donc n'est pas sauvegardé
if (numMail_esclave <= nb_mail_Esclave)
{ Noeud& no = (instance.*RecupNoeud)(numMail_esclave, numNoeud_esclave); // ""
// --- création de la frontière
Element& elem = (instance.*RecupElement_LesMaille)(numMail_element,num_element);
ElFrontiere* elfr;
switch (enu)
{ case POINT_G : elfr = elem.Frontiere_points(num_front_element,true) ; break;
case LIGNE : elfr = elem.Frontiere_lineique(num_front_element,true) ; break;
case SURFACE : elfr = elem.Frontiere_surfacique(num_front_element,true) ; break;
default :
cout << "\nErreur : valeur incorrecte du type de frontiere " << Nom_type_geom(enu) << " !\n";
cout << "LesContacts::Lec_base_info_LesContacts(... \n";
Sortie(1);
};
// création d'un Front
Front froont(*elfr,&elem,num_front_element);
// froont ne contient pas forcément les éléments mitoyens, en particulier pour les élément d'angles morts
// par contre il doit correspondre à un des éléments enregistrés dans t_listFront
// on va donc le chercher dans t_listFront
Front* froant=NULL; // le front que l'on cherche
// ** pour le tableaux t_listFront, le numéros dit de maillage, n'est pas le numéro
// ** intrinsèque de maillage (telle que ceux associés aux noeuds et éléments)
// ** mais uniquement un numéro locale d'ordre
// ** mais on a: les éléments de frontière de t_listFront(i) font partie du maillage
// i + (nb_mail_Esclave-nbmailautocontact)
int ii = numMail_element - (nb_mail_Esclave-nbmailautocontact);
Tableau < LaLIST_io <Front> >& t_listFront_i = t_listFront(ii); // pour simplifier
int nbzoneEt1 = 1+t_listFront_i.Taille();
int num_zone = 0; // le numéro de zone éventuel
bool trouver = false;
for (int izone = 1; izone < nbzoneEt1;izone++)
{LaLIST_io <Front>& t_listFront_i_izone = t_listFront_i(izone); // pour simplifier
LaLIST_io <Front>::iterator it,itfin=t_listFront_i_izone.end();
for (it = t_listFront_i_izone.begin();it != itfin; it++)
{if ((*it).MemeOrigine(froont))
{froant = &(*it);
trouver = true;
break;
};
};
if (trouver)
{num_zone=izone; break;}
};
// on vérifie que l'on a bien trouvé un front sinon, on signale
if ((trouver == false) && (ParaGlob::NiveauImpression() > 0))
{cout << "\n *** attention la frontiere de contact ";
froont.Affiche(1);
cout << " n'existe plus, on n'en tient plus compte ";
};
// même si l'élément n'existe plus
// on continue la création pour ne pas corrompre la lecture
// on créer un élément de contact ad hoc
// création de l'élément de contact
ElContact courant(&froont,&no,fct_nD_contact);
// lecture des données particulières (qui ne contiennent pas les mitoyens)
courant.Lec_base_info_ElContact(ent);
if (trouver)
{// on met à jour les mitoyens
// definition des elements mitoyens à partir du front enregistré qui lui contient les mitoyens
// qui ont été créé à l'initialisation
if (froant->TabMitoyen() != NULL)
courant.Elfront()->DefMitoyen(*(froant->TabMitoyen()));
// mis à jour du numéro de zone
courant.Num_zone_contact() = num_zone;
courant.Change_lissage_normale(lissage_de_la_normale(num_zone)); // affectation du lissage
#ifdef UTILISATION_MPI
// on attribue au front de l'élément de contact, le numéro unique utilisable pour le tableau pointe_t_listFront
courant.Elfront()->ChangeNumUnique(froant->NumUnique());
#endif
// sauvegarde si l'élément de contact n'existe pas déjà
ElContact* test_existance= Element_contact_deja_present(courant);
if (test_existance == NULL)
{listContact.push_front(courant);
LaLIST<ElContact>::iterator ipp = listContact.begin();
// on met à jour le tableau tesN_encontact
//*** la liste peut très bien ne pas exister !
// #ifdef MISE_AU_POINT
// if (tesN_encontact(numMail_esclave).find((*ipp).Esclave())
// == tesN_encontact(numMail_esclave).end() )
// { cout << "\n*** Erreur : on ne trouve pas la liste d'element en contact avec le noeud esclave "
// << (*ipp).Esclave()->Num_noeud() << " du maillage " << numMail_esclave
// << " la suite n'est pas possible "
// << " LesContacts::Lec_base_info_LesContacts(.. \n";
// Sortie(1);
// };
// #endif
// ajout dans la liste associé au noeud esclave
tesN_encontact(numMail_esclave)[(*ipp).Esclave()].push_front(listContact.begin());
};
};
} // fin de l'ajout d'un élément de contact
else
{if (ParaGlob::NiveauImpression() > 0)
cout << "\n *** attention, le maillage "<<numMail_esclave<<" n'est plus esclave !"
<< " l'element de contact non pris en compte: "
<< "\n N_es " <<numMail_esclave << " "<<numNoeud_esclave
<< type << " "<< numMail_element << " "<< num_element << " "
<< Nom_type_geom(enu) <<" "<<num_front_element;
};
};
if (Permet_affichage()>4)
// on va lister les éléments de contact
{ cout << "\n liste des Elcontact (fct du niveau de commentaire des elcontact): ";
LaLIST<ElContact>::iterator ipp,ippfin=listContact.end();
for (ipp=listContact.begin();ipp != ippfin; ipp++)
{(*ipp).Affiche(2);};
};
Calcul_Nb_contact_actif();
if (((ParaGlob::NiveauImpression() > 2) && (nb_contact_actif != 0))
|| (niveau_commentaire_lescontacts > 0 )
)
cout << "\n >> restart: lecture elements contact : "<< nb_contact_actif << " elements lus " << endl ;
string mot;
ent >> mot >> tempsContact;
};
#endif // fin du test d'inclusion : ifndef LesContacts_2_deja_inclus
Reference in a new issue View git blame Copy permalink