Herezh_dev/Elements/Mecanique/PtIntegMecaInterne.cc

811 lines
34 KiB
C++
Raw Normal View 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-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 "PtIntegMecaInterne.h"
#include "NevezTenseur.h"
#include "Tenseur3.h"
#include "Tenseur2.h"
#include "Tenseur1.h"
// contructeur par défaut
PtIntegMecaInterne::PtIntegMecaInterne():
epsBB(NULL),depsBB(NULL),deltaEpsBB(NULL),sigHH(NULL),sigHH_t(NULL)
,epsInvar(NULL),depsInvar(NULL),sigInvar(NULL)
,module_compressibilite(-1.),module_cisaillement(-1.),volume_pti(-1.)
,def_equi(4,0.),def_equi_t(4,0.)
,sig_equi_t(2,0.), sig_equi(2,0.)
,M0(ParaGlob::Dimension()),Mt(ParaGlob::Dimension()),Mtdt(ParaGlob::Dimension())
,mail(0),nele(0),npti(0)
// ,tab_baseB_0_t_tdt(NULL)
,tpsMetrique(),tps_cpu_loi_comp()
{};
// contructeur fonction de la dimension de tenseurs
PtIntegMecaInterne::PtIntegMecaInterne(int dimtens) :
epsBB(NULL),depsBB(NULL),deltaEpsBB(NULL),sigHH(NULL),sigHH_t(NULL)
,epsInvar(NULL),depsInvar(NULL),sigInvar(NULL)
,module_compressibilite(-1.),module_cisaillement(-1.),volume_pti(-1.)
,def_equi(4,0.),def_equi_t(4,0.)
,sig_equi_t(2,0.), sig_equi(2,0.)
,tpsMetrique(),tps_cpu_loi_comp()
,M0(ParaGlob::Dimension()),Mt(ParaGlob::Dimension()),Mtdt(ParaGlob::Dimension())
,mail(0),nele(0),npti(0)
// ,tab_baseB_0_t_tdt(NULL)
{ switch(dimtens)
{case 3:
{epsBB = NevezTenseurBB (3);
depsBB = NevezTenseurBB (3);
deltaEpsBB = NevezTenseurBB (3);
sigHH = NevezTenseurHH (3);
sigHH_t = NevezTenseurHH (3);
// comme on est en dimension 3, on a trois invariants
// epsInvar.Change_taille(3);
// depsInvar.Change_taille(3);
// sigInvar.Change_taille(3);
break;
}
case 2:
{epsBB = NevezTenseurBB (2);
depsBB = NevezTenseurBB (2);
deltaEpsBB = NevezTenseurBB (2);
sigHH = NevezTenseurHH (2);
sigHH_t = NevezTenseurHH (2);
// comme on est en dimension 2, on a 2 invariants
// epsInvar.Change_taille(2);
// depsInvar.Change_taille(2);
// sigInvar.Change_taille(2);
break;
}
case 1:
{epsBB = NevezTenseurBB (1);
depsBB = NevezTenseurBB (1);
deltaEpsBB = NevezTenseurBB (1);
sigHH = NevezTenseurHH (1);
sigHH_t = NevezTenseurHH (1);
// comme on est en dimension 1, on a 1 invariants
// epsInvar.Change_taille(1);
// depsInvar.Change_taille(1);
// sigInvar.Change_taille(1);
break;
}
default:
cout << "\n *** erreur: cas non prevu: dimtens= " << dimtens
<< "\n PtIntegMecaInterne::PtIntegMecaInterne(int dimtens)";
Sortie(1);
};
};
// contructeur de copie
PtIntegMecaInterne::PtIntegMecaInterne(const PtIntegMecaInterne& pti):
epsBB(NULL),depsBB(NULL),deltaEpsBB(NULL),sigHH(NULL),sigHH_t(NULL)
,epsInvar(NULL),depsInvar(NULL),sigInvar(NULL)
,module_compressibilite(pti.module_compressibilite),module_cisaillement(pti.module_cisaillement)
,volume_pti(pti.volume_pti)
,def_equi(pti.def_equi),def_equi_t(pti.def_equi_t)
,sig_equi_t(pti.sig_equi_t), sig_equi(pti.sig_equi)
,tpsMetrique(pti.tpsMetrique),tps_cpu_loi_comp(pti.tps_cpu_loi_comp)
,M0(pti.M0),Mt(pti.Mt),Mtdt(pti.Mtdt)
,mail(pti.mail),nele(pti.nele),npti(pti.npti)
// ,tab_baseB_0_t_tdt(NULL)
{if (pti.epsBB != NULL) epsBB = NevezTenseurBB (*(pti.epsBB));
if (pti.depsBB != NULL)depsBB = NevezTenseurBB (*(pti.depsBB));
if (pti.deltaEpsBB != NULL)deltaEpsBB = NevezTenseurBB (*(pti.deltaEpsBB));
if (pti.sigHH != NULL)sigHH = NevezTenseurHH (*(pti.sigHH));
if (pti.sigHH_t != NULL)sigHH_t = NevezTenseurHH (*(pti.sigHH_t));
if (pti.epsInvar != NULL) epsInvar = new Vecteur (*(pti.epsInvar));
if (pti.depsInvar != NULL) depsInvar = new Vecteur (*(pti.depsInvar));
if (pti.sigInvar != NULL) sigInvar = new Vecteur (*(pti.sigInvar));
// // cas des bases éventuellement associées
// if (pti.tab_baseB_0_t_tdt != NULL)
// { tab_baseB_0_t_tdt = new Tableau < BaseB_0_t_tdt> (*pti.tab_baseB_0_t_tdt);
// }
};
// DESTRUCTEUR :
PtIntegMecaInterne::~PtIntegMecaInterne()
{ if (epsBB != NULL) delete epsBB;
if (depsBB != NULL) delete depsBB;
if (deltaEpsBB != NULL) delete deltaEpsBB;
if (sigHH != NULL) delete sigHH;
if (sigHH_t != NULL) delete sigHH_t;
if (epsInvar != NULL) delete epsInvar;
if (depsInvar != NULL) delete depsInvar;
if (sigInvar != NULL) delete sigInvar;
// if (tab_baseB_0_t_tdt != NULL)
// delete tab_baseB_0_t_tdt;
//**** il faut continuer la mise en place de tab_baseB_0_t_tdt ****
};
// Surcharge de l'operateur =
PtIntegMecaInterne& PtIntegMecaInterne::operator= ( const PtIntegMecaInterne& pti)
{if (pti.epsBB != NULL)
{ if (epsBB == NULL) {epsBB = NevezTenseurBB (*(pti.epsBB));}
else {*epsBB = (*(pti.epsBB));};
}
else if (epsBB != NULL) {delete epsBB;epsBB = NULL;};
// sinon il est déjà null donc rien n'a faire
if (pti.depsBB != NULL)
{ if (depsBB == NULL) {depsBB = NevezTenseurBB (*(pti.depsBB));}
else {*depsBB = (*(pti.depsBB));};
}
else if (depsBB != NULL) {delete depsBB;depsBB=NULL;};
// sinon il est déjà null donc rien n'a faire
if (pti.deltaEpsBB != NULL)
{ if (deltaEpsBB == NULL) {deltaEpsBB = NevezTenseurBB (*(pti.deltaEpsBB));}
else {*deltaEpsBB = (*(pti.deltaEpsBB));};
}
else if (deltaEpsBB != NULL) {delete deltaEpsBB;deltaEpsBB=NULL;};
// sinon il est déjà null donc rien n'a faire
if (pti.sigHH != NULL)
{ if (sigHH == NULL) {sigHH = NevezTenseurHH (*(pti.sigHH));}
else {*sigHH = (*(pti.sigHH));};
}
else if (sigHH != NULL) {delete sigHH;sigHH=NULL;};
// sinon il est déjà null donc rien n'a faire
if (pti.sigHH_t != NULL)
{ if (sigHH_t == NULL) {sigHH_t = NevezTenseurHH (*(pti.sigHH_t));}
else {*sigHH_t = (*(pti.sigHH_t));};
}
else if (sigHH_t != NULL) {delete sigHH_t;sigHH_t=NULL;};
// sinon il est déjà null donc rien n'a faire
//--- les defs équivalentes
def_equi_t=pti.def_equi_t; def_equi=pti.def_equi;
// --- les contraintes équivalentes
sig_equi_t=pti.sig_equi_t; sig_equi=pti.sig_equi;
// --- les modules
module_compressibilite = pti.module_compressibilite;
module_cisaillement = pti.module_cisaillement;
// --- volume élémentaire
volume_pti = pti.volume_pti;
// ---- puis les vecteurs
if (pti.epsInvar != NULL)
{ if (epsInvar == NULL) {epsInvar = new Vecteur (*(pti.epsInvar));}
else {*epsInvar = (*(pti.epsInvar));};
}
else if (epsInvar != NULL) {delete epsInvar;epsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (pti.depsInvar != NULL)
{ if (depsInvar == NULL) {depsInvar = new Vecteur (*(pti.depsInvar));}
else {*depsInvar = (*(pti.depsInvar));};
}
else if (depsInvar != NULL) {delete depsInvar;depsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (pti.sigInvar != NULL)
{ if (sigInvar == NULL) {sigInvar = new Vecteur (*(pti.sigInvar));}
else {*sigInvar = (*(pti.sigInvar));};
}
else if (sigInvar != NULL) {delete sigInvar;sigInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
// les positions
M0 = pti.M0; Mt = pti.Mt; Mtdt = pti.Mtdt;
mail= pti.mail;nele = pti.nele; npti = pti.npti;
// --- les temps cpu
tpsMetrique=pti.tpsMetrique;tps_cpu_loi_comp=pti.tps_cpu_loi_comp;
// retour
return *this;
};
//============= lecture écriture dans base info ==========
// cas donne le niveau de la récupération
// = 1 : on récupère tout
// = 2 : on récupère uniquement les données variables (supposées comme telles)
void PtIntegMecaInterne::Lecture_base_info (ifstream& ent,const int )
{ // lecture des différents éléments que l'on trouve utiles (pour l'instant)
string nom;
ent >> nom; epsBB->Lecture(ent);
ent >> nom; depsBB->Lecture(ent);
ent >> nom; deltaEpsBB->Lecture(ent);
ent >> nom; sigHH->Lecture(ent);
*sigHH_t = *sigHH; // init de la grandeur à t
ent >> nom >> def_equi(1) >> nom >> def_equi(2) >> nom >> def_equi(3) >> nom >> def_equi(4);
def_equi_t = def_equi;
ent >> nom >> sig_equi(1) >> nom >> sig_equi(2) ;
sig_equi_t = sig_equi;
ent >> nom >> module_compressibilite >> nom >> module_cisaillement
>> nom >> volume_pti;
int existe = 0;
// lecture éventuelle des invariants
// cas des invariants de def
ent >> nom >> existe;
if (existe ==0)
{if (epsInvar != NULL) {delete epsInvar;epsInvar=NULL;};}
else
{if (epsInvar == NULL) epsInvar = new Vecteur ();
ent >> *epsInvar;
};
// cas des invariants de vitesse de def
ent >> nom >> existe;
if (existe ==0)
{if (depsInvar != NULL) {delete depsInvar;depsInvar=NULL;};}
else
{if (depsInvar == NULL) depsInvar = new Vecteur ();
ent >> *depsInvar;
};
// cas des invariants de contrainte
ent >> nom >> existe;
if (existe ==0)
{if (sigInvar != NULL) {delete sigInvar;sigInvar=NULL;};}
else
{if (sigInvar == NULL) sigInvar = new Vecteur ();
ent >> *sigInvar;
};
// position
ent >> nom >> Mtdt;
Mt = Mtdt; // init de la grandeur à t
ent >> nom >> mail >> nom >> nele >> nom >> npti;
// temps cpu
ent >> nom >> tpsMetrique >> nom >> tps_cpu_loi_comp;
};
// cas donne le niveau de sauvegarde
// = 1 : on sauvegarde tout
// = 2 : on sauvegarde uniquement les données variables (supposées comme telles)
void PtIntegMecaInterne::Ecriture_base_info(ofstream& sort,const int )
{ // les différents éléments que l'on considère intéressant (pour l'instant)
sort << "\n epsBB= "; epsBB->Ecriture(sort);
sort << "\n depsBB= "; depsBB->Ecriture(sort);
sort << "\n deltaEpsBB= "; deltaEpsBB->Ecriture(sort);
sort << "\n sigHH= "; sigHH_t->Ecriture(sort);
sort << "\n def_equi= " << def_equi(1) << " def_duale_mises= " << def_equi(2)
<< " def_duale_mises_max= " << def_equi(3) << " delta_def_equi= " << def_equi(4);
sort << "\n sig_Mises= " << sig_equi(1) << " sig_Tresca= " << sig_equi(2);
sort << "\n mod_compress= " << module_compressibilite << " mod_cisaill= " << module_cisaillement
<< " volume_pti= " << volume_pti;
sort << "\n epsInvar= "; if(epsInvar == NULL) {sort << 0;} else {sort << "1 " << *epsInvar;};
sort << "\n depsInvar= "; if(depsInvar == NULL) {sort << 0;} else {sort << "1 " << *depsInvar;};
sort << "\n sigInvar= "; if(sigInvar == NULL) {sort << 0;} else {sort << "1 " << *sigInvar;};
// position
sort << "\n M_tdt= "<<Mtdt << " ,Mail "<<mail<<" ,ele " << nele <<" ,pti " << npti ;
sort << "\n tpsmetrique= " << tpsMetrique << " tpsLoiComp= " << tps_cpu_loi_comp;
};
// le changement de statut, si c'est déjà ok, on ne fait rien
// nevez_statut: indique si l'on veut activer ou au contraire désactiver
void PtIntegMecaInterne::Change_statut_Invariants_deformation (bool nevez_statut)
{ int dimT = epsBB->Dimension();
if (nevez_statut)
{ if (epsInvar == NULL) epsInvar = new Vecteur(abs(dimT)); // sinon rien car le vecteur existe déjà
}
else // cas où on veut désactiver
{ if (epsInvar != NULL) {delete epsInvar;epsInvar=NULL;}; // sinon rien car le vecteur n'existe pas
};
};
void PtIntegMecaInterne::Change_statut_Invariants_vitesseDeformation (bool nevez_statut)
{ int dimT = epsBB->Dimension();
if (nevez_statut)
{ if (depsInvar == NULL) depsInvar = new Vecteur(abs(dimT)); // sinon rien car le vecteur existe déjà
}
else // cas où on veut désactiver
{ if (depsInvar != NULL) {delete depsInvar;depsInvar=NULL;}; // sinon rien car le vecteur n'existe pas
};
};
void PtIntegMecaInterne::Change_statut_Invariants_contrainte (bool nevez_statut)
{ int dimT = epsBB->Dimension();
if (nevez_statut)
{ if (sigInvar == NULL) sigInvar = new Vecteur(abs(dimT)); // sinon rien car le vecteur existe déjà
}
else // cas où on veut désactiver
{ if (sigInvar != NULL) {delete sigInvar;sigInvar=NULL;}; // sinon rien car le vecteur n'existe pas
};
};
// actualisation des grandeurs actives de t+dt vers t, pour celles qui existent
// sous ces deux formes
void PtIntegMecaInterne::TdtversT()
{ *sigHH_t = *sigHH;def_equi_t=def_equi;sig_equi_t=sig_equi;Mt = Mtdt;};
// actualisation des grandeurs actives de t vers tdt, pour celles qui existent
// sous ces deux formes
void PtIntegMecaInterne::TversTdt()
{ *sigHH = *sigHH_t;def_equi=def_equi_t;sig_equi=sig_equi_t;Mtdt = Mt;};
// plusZero: = true: indique qu'il faut complèter les grandeurs manquantes avec des 0
// = false: on ne complète pas
// il faut que ptintmec comporte des tenseurs d'ordre 2 et this des tenseurs 3D
void PtIntegMecaInterne::Affectation_2D_a_3D(const PtIntegMecaInterne& ptintmec,bool plusZero)
{ // vérif éventuelle des dimensions
#ifdef MISE_AU_POINT
{ // cas des pointeurs: la méthode est prévue pour des tenseurs déjà affectés
if (ptintmec.epsBB == NULL)
{cout << "\n *** erreur les tenseurs de l'argument ne sont pas affecte: par exemple ptintmec.epsBB == NULL "
<< "\n PtIntegMecaInterne::Affectation_2D_a_3D(.."; Sortie(1);};
if (epsBB == NULL)
{cout << "\n *** erreur les tenseurs de this ne sont pas affecte: par exemple epsBB == NULL "
<< "\n PtIntegMecaInterne::Affectation_2D_a_3D(.."; Sortie(1);};
// - les dimensions
if (epsBB->Dimension() != 3)
{cout << "\n *** erreur l'ordre de this ("<<epsBB->Dimension() <<") est different de 3"
<< "\n PtIntegMecaInterne::Affectation_2D_a_3D(.."; Sortie(1);};
if (ptintmec.epsBB->Dimension() != 2)
{cout << "\n *** erreur l'ordre de ptintmec.epsBB ("<< ptintmec.epsBB->Dimension() <<") est different de 2"
<< "\n PtIntegMecaInterne::Affectation_2D_a_3D(.."; Sortie(1);};
}
#endif
// pour tout ce qui est def
((Tenseur3BB*) epsBB)->Affectation_2D_a_3D(*((const Tenseur2BB*) ptintmec.epsBB),plusZero);
((Tenseur3BB*) depsBB)->Affectation_2D_a_3D(*((const Tenseur2BB*) ptintmec.depsBB),plusZero);
((Tenseur3BB*) deltaEpsBB)->Affectation_2D_a_3D(*((const Tenseur2BB*) ptintmec.deltaEpsBB),plusZero);
((Tenseur3HH*) sigHH)->Affectation_2D_a_3D(*((const Tenseur2HH*) ptintmec.sigHH),plusZero);
((Tenseur3HH*) sigHH_t)->Affectation_2D_a_3D(*((const Tenseur2HH*) ptintmec.sigHH_t),plusZero);
//--- les defs équivalentes
def_equi_t=ptintmec.def_equi_t; def_equi=ptintmec.def_equi;
//--- les contraintes équivalentes
sig_equi_t=ptintmec.sig_equi_t; sig_equi=ptintmec.sig_equi;
// --- les modules
module_compressibilite = ptintmec.module_compressibilite;
module_cisaillement = ptintmec.module_cisaillement;
// --- volume élémentaire: ici on recopie, mais normalement il faudra le mettre à jour ensuite
volume_pti = ptintmec.volume_pti;
// ---- puis les vecteurs
if (ptintmec.epsInvar != NULL)
{ if (epsInvar == NULL)
{epsInvar = new Vecteur (3,0.); // init à 0 a priori
(*epsInvar)(1) = (*(ptintmec.epsInvar))(1);
(*epsInvar)(2) = (*(ptintmec.epsInvar))(2);
}
else {(*epsInvar)(1) = (*(ptintmec.epsInvar))(1);
(*epsInvar)(2) = (*(ptintmec.epsInvar))(2);
if (plusZero)
(*epsInvar)(3) = 0.;
};
}
else if (epsInvar != NULL) {delete epsInvar;epsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (ptintmec.depsInvar != NULL)
{ if (depsInvar == NULL)
{depsInvar = new Vecteur (3,0.); // init à 0 a priori
(*depsInvar)(1) = (*(ptintmec.depsInvar))(1);
(*depsInvar)(2) = (*(ptintmec.depsInvar))(2);
}
else {(*depsInvar)(1) = (*(ptintmec.depsInvar))(1);
(*depsInvar)(2) = (*(ptintmec.depsInvar))(2);
if (plusZero)
(*depsInvar)(3) = 0.;
};
}
else if (depsInvar != NULL) {delete depsInvar;depsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (ptintmec.sigInvar != NULL)
{ if (sigInvar == NULL)
{sigInvar = new Vecteur (3,0.); // init à 0 a priori
(*sigInvar)(1) = (*(ptintmec.sigInvar))(1);
(*sigInvar)(2) = (*(ptintmec.sigInvar))(2);
}
else {(*sigInvar)(1) = (*(ptintmec.sigInvar))(1);
(*sigInvar)(2) = (*(ptintmec.sigInvar))(2);
if (plusZero)
(*sigInvar)(3) = 0.;
};
}
else if (sigInvar != NULL) {delete sigInvar;sigInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
// positions: sont toujours en dimensions absolues donc ont la même dimension
M0 = ptintmec.M0;
Mt = ptintmec.Mt;
Mtdt = ptintmec.Mtdt;
mail = ptintmec.mail;
nele = ptintmec.nele;
npti = ptintmec.npti;
// --- les temps cpu
tpsMetrique=ptintmec.tpsMetrique;tps_cpu_loi_comp=ptintmec.tps_cpu_loi_comp;
};
// l'inverse: comme le conteneur d'arrivée est plus petit, il n'y a pas de complétion
// il faut que ptintmec comporte des tenseurs d'ordre 3 et this des tenseurs 2D
void PtIntegMecaInterne::Affectation_3D_a_2D(const PtIntegMecaInterne& ptintmec)
{ // vérif éventuelle des dimensions
#ifdef MISE_AU_POINT
{ // cas des pointeurs: la méthode est prévue pour des tenseurs déjà affectés
if (ptintmec.epsBB == NULL)
{cout << "\n *** erreur les tenseurs de l'argument ne sont pas affecte: par exemple ptintmec.epsBB == NULL "
<< "\n PtIntegMecaInterne::Affectation_3D_a_2D(.."; Sortie(1);};
if (epsBB == NULL)
{cout << "\n *** erreur les tenseurs de this ne sont pas affecte: par exemple epsBB == NULL "
<< "\n PtIntegMecaInterne::Affectation_3D_a_2D(.."; Sortie(1);};
// - les dimensions
if (epsBB->Dimension() != 2)
{cout << "\n *** erreur l'ordre de this ("<<epsBB->Dimension() <<") est different de 2"
<< "\n PtIntegMecaInterne::Affectation_3D_a_2D(.."; Sortie(1);};
if (ptintmec.epsBB->Dimension() != 3)
{cout << "\n *** erreur l'ordre de ptintmec.epsBB ("<< ptintmec.epsBB->Dimension() <<") est different de 3"
<< "\n PtIntegMecaInterne::Affectation_3D_a_2D(.."; Sortie(1);};
}
#endif
// pour tout ce qui est def
((Tenseur2BB*) epsBB)->Affectation_3D_a_2D(*((const Tenseur3BB*) ptintmec.epsBB));
((Tenseur2BB*) depsBB)->Affectation_3D_a_2D(*((const Tenseur3BB*) ptintmec.depsBB));
((Tenseur2BB*) deltaEpsBB)->Affectation_3D_a_2D(*((const Tenseur3BB*) ptintmec.deltaEpsBB));
((Tenseur2HH*) sigHH)->Affectation_3D_a_2D(*((const Tenseur3HH*) ptintmec.sigHH));
((Tenseur2HH*) sigHH_t)->Affectation_3D_a_2D(*((const Tenseur3HH*) ptintmec.sigHH_t));
//--- les defs équivalentes
def_equi_t=ptintmec.def_equi_t; def_equi=ptintmec.def_equi;
//--- les contraintes équivalentes
sig_equi_t=ptintmec.sig_equi_t; sig_equi=ptintmec.sig_equi;
// --- les modules
module_compressibilite = ptintmec.module_compressibilite;
module_cisaillement = ptintmec.module_cisaillement;
// --- volume_pti
volume_pti = ptintmec.volume_pti;
// ---- puis les vecteurs
if (ptintmec.epsInvar != NULL)
{ if (epsInvar == NULL)
{epsInvar = new Vecteur (2,0.); // init à 0 a priori
(*epsInvar)(1) = (*(ptintmec.epsInvar))(1);
(*epsInvar)(2) = (*(ptintmec.epsInvar))(2);
}
else {(*epsInvar)(1) = (*(ptintmec.epsInvar))(1);
(*epsInvar)(2) = (*(ptintmec.epsInvar))(2);
};
}
else if (epsInvar != NULL) {delete epsInvar;epsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (ptintmec.depsInvar != NULL)
{ if (depsInvar == NULL)
{depsInvar = new Vecteur (2,0.); // init à 0 a priori
(*depsInvar)(1) = (*(ptintmec.depsInvar))(1);
(*depsInvar)(2) = (*(ptintmec.depsInvar))(2);
}
else {(*depsInvar)(1) = (*(ptintmec.depsInvar))(1);
(*depsInvar)(2) = (*(ptintmec.depsInvar))(2);
};
}
else if (depsInvar != NULL) {delete depsInvar;depsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (ptintmec.sigInvar != NULL)
{ if (sigInvar == NULL)
{sigInvar = new Vecteur (2,0.); // init à 0 a priori
(*sigInvar)(1) = (*(ptintmec.sigInvar))(1);
(*sigInvar)(2) = (*(ptintmec.sigInvar))(2);
}
else {(*sigInvar)(1) = (*(ptintmec.sigInvar))(1);
(*sigInvar)(2) = (*(ptintmec.sigInvar))(2);
};
}
else if (sigInvar != NULL) {delete sigInvar;sigInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
// positions: sont toujours en dimensions absolues donc ont la même dimension
M0 = ptintmec.M0;
Mt = ptintmec.Mt;
Mtdt = ptintmec.Mtdt;
mail = ptintmec.mail;
nele = ptintmec.nele;
npti = ptintmec.npti;
// --- les temps cpu
tpsMetrique=ptintmec.tpsMetrique;tps_cpu_loi_comp=ptintmec.tps_cpu_loi_comp;
};
// plusZero: = true: indique qu'il faut complèter les grandeurs manquantes avec des 0
// = false: on ne complète pas
// il faut que ptintmec comporte des tenseurs d'ordre 1 et this des tenseurs 3D
void PtIntegMecaInterne::Affectation_1D_a_3D(const PtIntegMecaInterne& ptintmec,bool plusZero)
{ // vérif éventuelle des dimensions
#ifdef MISE_AU_POINT
{ // cas des pointeurs: la méthode est prévue pour des tenseurs déjà affectés
if (ptintmec.epsBB == NULL)
{cout << "\n *** erreur les tenseurs de l'argument ne sont pas affecte: par exemple ptintmec.epsBB == NULL "
<< "\n PtIntegMecaInterne::Affectation_1D_a_3D(.."; Sortie(1);};
if (epsBB == NULL)
{cout << "\n *** erreur les tenseurs de this ne sont pas affecte: par exemple epsBB == NULL "
<< "\n PtIntegMecaInterne::Affectation_1D_a_3D(.."; Sortie(1);};
// - les dimensions
if (epsBB->Dimension() != 3)
{cout << "\n *** erreur l'ordre de this ("<<epsBB->Dimension() <<") est different de 3"
<< "\n PtIntegMecaInterne::Affectation_1D_a_3D(.."; Sortie(1);};
if (ptintmec.epsBB->Dimension() != 1)
{cout << "\n *** erreur l'ordre de ptintmec.epsBB ("<< ptintmec.epsBB->Dimension() <<") est different de 1"
<< "\n PtIntegMecaInterne::Affectation_1D_a_3D(.."; Sortie(1);};
}
#endif
// pour tout ce qui est def
((Tenseur3BB*) epsBB)->Affectation_trans_dimension(*((const Tenseur1BB*) ptintmec.epsBB),plusZero);
((Tenseur3BB*) depsBB)->Affectation_trans_dimension(*((const Tenseur1BB*) ptintmec.depsBB),plusZero);
((Tenseur3BB*) deltaEpsBB)->Affectation_trans_dimension(*((const Tenseur1BB*) ptintmec.deltaEpsBB),plusZero);
((Tenseur3HH*) sigHH)->Affectation_trans_dimension(*((const Tenseur1HH*) ptintmec.sigHH),plusZero);
((Tenseur3HH*) sigHH_t)->Affectation_trans_dimension(*((const Tenseur1HH*) ptintmec.sigHH_t),plusZero);
//--- les defs équivalentes
def_equi_t=ptintmec.def_equi_t; def_equi=ptintmec.def_equi;
//--- les contraintes équivalentes
sig_equi_t=ptintmec.sig_equi_t; sig_equi=ptintmec.sig_equi;
// --- les modules
module_compressibilite = ptintmec.module_compressibilite;
module_cisaillement = ptintmec.module_cisaillement;
// --- volume_pti
volume_pti = ptintmec.volume_pti;
// ---- puis les vecteurs
if (ptintmec.epsInvar != NULL)
{ if (epsInvar == NULL)
{epsInvar = new Vecteur (3,0.); // init à 0 a priori
(*epsInvar)(1) = (*(ptintmec.epsInvar))(1);
}
else {(*epsInvar)(1) = (*(ptintmec.epsInvar))(1);
if (plusZero)
(*epsInvar)(3) = (*epsInvar)(2) = 0.;
};
}
else if (epsInvar != NULL) {delete epsInvar;epsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (ptintmec.depsInvar != NULL)
{ if (depsInvar == NULL)
{depsInvar = new Vecteur (3,0.); // init à 0 a priori
(*depsInvar)(1) = (*(ptintmec.depsInvar))(1);
}
else {(*depsInvar)(1) = (*(ptintmec.depsInvar))(1);
if (plusZero)
(*depsInvar)(3) = (*depsInvar)(2) = 0.;
};
}
else if (depsInvar != NULL) {delete depsInvar;depsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (ptintmec.sigInvar != NULL)
{ if (sigInvar == NULL)
{sigInvar = new Vecteur (3,0.); // init à 0 a priori
(*sigInvar)(1) = (*(ptintmec.sigInvar))(1);
}
else {(*sigInvar)(1) = (*(ptintmec.sigInvar))(1);
if (plusZero)
(*sigInvar)(3) = (*sigInvar)(2) = 0.;
};
}
else if (sigInvar != NULL) {delete sigInvar;sigInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
// positions: sont toujours en dimensions absolues donc ont la même dimension
M0 = ptintmec.M0;
Mt = ptintmec.Mt;
Mtdt = ptintmec.Mtdt;
mail = ptintmec.mail;
nele = ptintmec.nele;
npti = ptintmec.npti;
// --- les temps cpu
tpsMetrique=ptintmec.tpsMetrique;tps_cpu_loi_comp=ptintmec.tps_cpu_loi_comp;
};
// l'inverse: comme le conteneur d'arrivée est plus petit, il n'y a pas de complétion
// il faut que ptintmec comporte des tenseurs d'ordre 3 et this des tenseurs 1D
void PtIntegMecaInterne::Affectation_3D_a_1D(const PtIntegMecaInterne& ptintmec)
{ // vérif éventuelle des dimensions
#ifdef MISE_AU_POINT
{ // cas des pointeurs: la méthode est prévue pour des tenseurs déjà affectés
if (ptintmec.epsBB == NULL)
{cout << "\n *** erreur les tenseurs de l'argument ne sont pas affecte: par exemple ptintmec.epsBB == NULL "
<< "\n PtIntegMecaInterne::Affectation_3D_a_1D(.."; Sortie(1);};
if (epsBB == NULL)
{cout << "\n *** erreur les tenseurs de this ne sont pas affecte: par exemple epsBB == NULL "
<< "\n PtIntegMecaInterne::Affectation_3D_a_1D(.."; Sortie(1);};
// - les dimensions
if (epsBB->Dimension() != 1)
{cout << "\n *** erreur l'ordre de this ("<<epsBB->Dimension() <<") est different de 1"
<< "\n PtIntegMecaInterne::Affectation_3D_a_1D(.."; Sortie(1);};
if (ptintmec.epsBB->Dimension() != 3)
{cout << "\n *** erreur l'ordre de ptintmec.epsBB ("<< ptintmec.epsBB->Dimension() <<") est different de 3"
<< "\n PtIntegMecaInterne::Affectation_3D_a_1D(.."; Sortie(1);};
}
#endif
// pour tout ce qui est def
((Tenseur1BB*) epsBB)->Affectation_trans_dimension(*((const Tenseur3BB*) ptintmec.epsBB),false);
((Tenseur1BB*) depsBB)->Affectation_trans_dimension(*((const Tenseur3BB*) ptintmec.depsBB),false);
((Tenseur1BB*) deltaEpsBB)->Affectation_trans_dimension(*((const Tenseur3BB*) ptintmec.deltaEpsBB),false);
((Tenseur1HH*) sigHH)->Affectation_trans_dimension(*((const Tenseur3HH*) ptintmec.sigHH),false);
((Tenseur1HH*) sigHH_t)->Affectation_trans_dimension(*((const Tenseur3HH*) ptintmec.sigHH_t),false);
//--- les defs équivalentes
def_equi_t=ptintmec.def_equi_t; def_equi=ptintmec.def_equi;
//--- les contraintes équivalentes
sig_equi_t=ptintmec.sig_equi_t; sig_equi=ptintmec.sig_equi;
// --- les modules
module_compressibilite = ptintmec.module_compressibilite;
module_cisaillement = ptintmec.module_cisaillement;
// --- volume_pti
volume_pti = ptintmec.volume_pti;
// ---- puis les vecteurs
if (ptintmec.epsInvar != NULL)
{ if (epsInvar == NULL)
{epsInvar = new Vecteur (1,0.); // init à 0 a priori
(*epsInvar)(1) = (*(ptintmec.epsInvar))(1);
}
else {(*epsInvar)(1) = (*(ptintmec.epsInvar))(1);
};
}
else if (epsInvar != NULL) {delete epsInvar;epsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (ptintmec.depsInvar != NULL)
{ if (depsInvar == NULL)
{depsInvar = new Vecteur (1,0.); // init à 0 a priori
(*depsInvar)(1) = (*(ptintmec.depsInvar))(1);
}
else {(*depsInvar)(1) = (*(ptintmec.depsInvar))(1);
};
}
else if (depsInvar != NULL) {delete depsInvar;depsInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
if (ptintmec.sigInvar != NULL)
{ if (sigInvar == NULL)
{sigInvar = new Vecteur (1,0.); // init à 0 a priori
(*sigInvar)(1) = (*(ptintmec.sigInvar))(1);
}
else {(*sigInvar)(1) = (*(ptintmec.sigInvar))(1);
};
}
else if (sigInvar != NULL) {delete sigInvar;sigInvar=NULL;};
// sinon il est déjà null donc rien n'a faire
// positions: sont toujours en dimensions absolues donc ont la même dimension
M0 = ptintmec.M0;
Mt = ptintmec.Mt;
Mtdt = ptintmec.Mtdt;
mail = ptintmec.mail;
nele = ptintmec.nele;
npti = ptintmec.npti;
// --- les temps cpu
tpsMetrique=ptintmec.tpsMetrique;tps_cpu_loi_comp=ptintmec.tps_cpu_loi_comp;
};
// surcharge de l'operateur de lecture
istream & operator >> (istream & entree, PtIntegMecaInterne & pti)
{ // vérification du type
string nom;
entree >> nom;
#ifdef MISE_AU_POINT
if (nom != "PtIntegMecaInterne")
{ cout << "\nErreur, en lecture d'une instance PtIntegMecaInterne "
<< " on attendait PtIntegMecaInterne et on a lue: " << nom ;
cout << "istream & operator >> (istream & entree, PtIntegMecaInterne & pti)\n";
Sortie(1);
};
#endif
// puis lecture des différents éléments
entree >> nom; (pti.epsBB)->Lecture(entree);
entree >> nom; (pti.depsBB)->Lecture(entree);
entree >> nom; (pti.deltaEpsBB)->Lecture(entree);
entree >> nom; (pti.sigHH)->Lecture(entree);
entree >> nom; (pti.sigHH_t)->Lecture(entree);
// -- def equi
entree >> nom >> pti.def_equi(1) >> nom >> pti.def_equi(2) >> nom >> pti.def_equi(3)>> nom >> pti.def_equi(4);
entree >> nom >> pti.def_equi_t(1) >> nom >> pti.def_equi_t(2) >> nom >> pti.def_equi_t(3)>> nom >> pti.def_equi_t(4);
// -- sig equi
entree >> nom >> pti.sig_equi(1) >> nom >> pti.sig_equi(2) ;
entree >> nom >> pti.sig_equi_t(1) >> nom >> pti.sig_equi_t(2);
// -- module
entree >> nom >> pti.module_compressibilite >> pti.module_cisaillement;
entree >> nom >> pti.volume_pti;
// lecture éventuelle des invariants
int existe=0;
entree >> nom >> existe;
if (existe ==0)
{if (pti.epsInvar != NULL) {delete pti.epsInvar;pti.epsInvar=NULL;};}
else
{if (pti.epsInvar == NULL) pti.epsInvar = new Vecteur ();
entree >> *(pti.epsInvar);
};
if (existe ==0)
{if (pti.depsInvar != NULL) {delete pti.depsInvar;pti.depsInvar=NULL;};}
else
{if (pti.depsInvar == NULL) pti.depsInvar = new Vecteur ();
entree >> *(pti.depsInvar);
};
if (existe ==0)
{if (pti.sigInvar != NULL) {delete pti.sigInvar;pti.sigInvar=NULL;};}
else
{if (pti.sigInvar == NULL) pti.sigInvar = new Vecteur ();
entree >> *(pti.sigInvar);
};
// les positions
entree >> nom >> pti.M0 >> nom >> pti.Mt >> nom >> pti.Mtdt;
entree >> nom >> pti.mail >> nom >> pti.nele >> nom >> pti.npti;
// --- les temps cpu
entree >> nom >> pti.tpsMetrique >> nom >> pti.tps_cpu_loi_comp;
return entree;
};
// surcharge de l'operateur d'ecriture
ostream & operator << ( ostream & sort,const PtIntegMecaInterne & pti)
{ // tout d'abord un indicateur donnant le type
sort << "PtIntegMecaInterne " ;
// puis les différents éléments
sort << "\n epsBB= "; (pti.epsBB)->Ecriture(sort);
sort << "\n depsBB= "; (pti.depsBB)->Ecriture(sort);
sort << "\n deltaEpsBB= "; (pti.deltaEpsBB)->Ecriture(sort);
sort << "\n sigHH= "; (pti.sigHH)->Ecriture(sort);
sort << "\n sigHH_t= "; (pti.sigHH_t)->Ecriture(sort);
sort << "\n def_equi= " << pti.def_equi(1) << " def_duale_mises= " << pti.def_equi(2)
<< " def_duale_mises_max= " << pti.def_equi(3)<< " delta_def_equi= " << pti.def_equi(4);
sort << "\n def_equi_t= " << pti.def_equi_t(1) << " def_duale_mises_t= " << pti.def_equi_t(2)
<< " def_duale_mises_max_t= " << pti.def_equi_t(3)<< " delta_def_equi= " << pti.def_equi_t(4);
sort << "\n sig_Mises= " << pti.sig_equi(1) << " sig_Tresca= " << pti.sig_equi(2);
sort << "\n sig_Mises_t= " << pti.sig_equi_t(1) << " sig_Tresca_t= " << pti.sig_equi_t(2);
sort << "\n mod_compress= " << pti.module_compressibilite << " mod_cisaill= " << pti.module_cisaillement;
sort << "\n volume_pti= "<< pti.volume_pti;
// écriture éventuelle des invariants
sort << "\n epsInvar= "; if(pti.epsInvar == NULL) {sort << 0;} else {sort << "1 " << *(pti.epsInvar);};
sort << "\n depsInvar= "; if(pti.depsInvar == NULL) {sort << 0;} else {sort << "1 " << *(pti.depsInvar);};
sort << "\n sigInvar= "; if(pti.sigInvar == NULL) {sort << 0;} else {sort << "1 " << *(pti.sigInvar);};
// les positions
sort << "\n M0= "<< pti.M0 << " Mt= "<< pti.Mt << " Mtdt= "<< pti.Mtdt
<< " ,Mail "<< pti.mail<<" ,ele " << pti.nele <<" ,pti " << pti.npti ;
sort << "\n tpsmetrique= " << pti.tpsMetrique << " tpsLoiComp= " << pti.tps_cpu_loi_comp;
return sort;
};