Herezh_dev/Elements/Mecanique/SFE/Met_Sfe1s1.cc
2023-05-03 17:23:49 +02:00

677 lines
36 KiB
C++

// This file is part of the Herezh++ application.
//
// The finite element software Herezh++ is dedicated to the field
// of mechanics for large transformations of solid structures.
// It is developed by Gérard Rio (APP: IDDN.FR.010.0106078.000.R.P.2006.035.20600)
// INSTITUT DE RECHERCHE DUPUY DE LÔME (IRDL) <https://www.irdl.fr/>.
//
// Herezh++ is distributed under GPL 3 license ou ultérieure.
//
// Copyright (C) 1997-2022 Université Bretagne Sud (France)
// AUTHOR : Gérard Rio
// E-MAIL : gerardrio56@free.fr
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License,
// or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty
// of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <https://www.gnu.org/licenses/>.
//
// For more information, please consult: <https://herezh.irdl.fr/>.
# include "Met_Sfe1.h"
# include "Util.h"
// =========================================================================================
// vu la taille des executables le fichier est decompose en quatre
// le premier : Met_Sfe1s1.cp concerne les constructeurs, destructeur et
// la gestion des variables
// le second : Met_Sfe1s2.cp concerne le calcul des grandeurs publics
// le troisieme : Met_Sfe1s3.cp concerne le calcul des grandeurs protegees, et des courbures pour SFE1 et SFE2 et QSFE1
// le quatrième : Met_Sfe1s4.cp concerne le calcul des courbures pour les éléments SFE3 et QSFE3
// =========================================================================================
// ----------- déclaration des variables statiques ---------------------------
Tableau <int> Met_Sfe1::indi;
// indicateur utilisé par Verif_Dcourbure
int Met_Sfe1::indic_Verif_DcourbureSFE = 0;
// ----------- fin de déclaration des variables statiques --------------------
Met_Sfe1::Met_Sfe1 () : // constructeur par defaut mettant les pointeurs a NULL
Met_abstraite(), Ia(3),
curb_0(),curb_t(),curb_tdt(), dcurb_t(),dcurb_tdt()
,norme_N_t(0.), norme_N_tdt(0.)
,N_0(ParaGlob::Dimension()),N_t(ParaGlob::Dimension()),N_tdt(ParaGlob::Dimension())
,N_alpha_0_1(ParaGlob::Dimension()),N_alpha_0_2(ParaGlob::Dimension())
,N_alpha_t_1(ParaGlob::Dimension()),N_alpha_t_2(ParaGlob::Dimension())
,N_alpha_tdt_1(ParaGlob::Dimension()),N_alpha_tdt_2(ParaGlob::Dimension())
,d_aijBB_t(),d_aijBB_tdt(),d_aijHH_t(),d_aijHH_tdt(),d_ajacobien_t(),d_ajacobien_tdt()
,nbNoeudCentral(0),tCalEpais(0),epais(),d_epais(NULL),PtCourbure(NULL),PtDcourbure(NULL)
,PtTest_courbure_anormale(NULL)
,type_calcul_jacobien(1)
{ P0 = NULL; Pt = NULL; Ptdt = NULL;
aiB_0 = NULL;aiB_t = NULL; aiB_tdt = NULL;
aiH_0 = NULL;aiH_t = NULL;aiH_tdt = NULL;
aijBB_0 = NULL;aijBB_t = NULL;aijBB_tdt = NULL;
aijHH_0 = NULL;aijHH_t = NULL;aijHH_tdt = NULL;
d_aiB_t = NULL;d_N_t=NULL;d_N_alpha_t_1=NULL;d_N_alpha_t_2=NULL;
d_aiB_tdt = NULL;d_N_tdt=NULL;d_N_alpha_tdt_1=NULL;d_N_alpha_tdt_2=NULL;
d_aiH_t = NULL;d_aiH_tdt = NULL;
// def de Ia
for (int ii=1;ii<=3;ii++)
Ia(ii)(ii) = 1.;
if (indi.Taille() != 5) // tableau indi
{ indi.Change_taille(5);indi(1) = 1; indi(2) = 2; indi(3) = 3; indi(4) = 1; indi(5) = 2;};
// pour la courbure, par défaut SFE1
PtCourbure = &Met_Sfe1::Courbure2;
PtDcourbure = &Met_Sfe1::Dcourbure2;
PtTest_courbure_anormale = &Met_Sfe1::Test_courbure_anormale2;
Init_conteneur_de_retour_pourFacette(); // Init des conteneurs de retour de fonction
};
// constructeur permettant de dimensionner uniquement certaine variables
// dim = dimension de l'espace, ici forcément = 3
// nbvec = nb de vecteur des bases, tab = liste des variables a initialiser
Met_Sfe1::Met_Sfe1 ( const DdlElement& tabddl,int nbvec
,const Tableau<Enum_variable_metrique>& tabb, Enum_interpol enui
,int nb_noeud_central):
Met_abstraite(3,nbvec,tabddl,tabb,nb_noeud_central,(nbvec==3 ? nb_noeud_central : 0))
,Ia(3), // dimension 3 et nombre de vecteur
// et nb_noeud_central noeuds central
curb_0(),curb_t(),curb_tdt(), dcurb_t(tab_ddl.NbDdl_famille(X1)),dcurb_tdt(tab_ddl.NbDdl_famille(X1))
,N_0(ParaGlob::Dimension()),N_t(ParaGlob::Dimension()),N_tdt(ParaGlob::Dimension())
,norme_N_t(0.), norme_N_tdt(0.)
,N_alpha_0_1(ParaGlob::Dimension()),N_alpha_0_2(ParaGlob::Dimension())
,N_alpha_t_1(ParaGlob::Dimension()),N_alpha_t_2(ParaGlob::Dimension())
,N_alpha_tdt_1(ParaGlob::Dimension()),N_alpha_tdt_2(ParaGlob::Dimension())
,d_aijBB_t(),d_aijBB_tdt(),d_aijHH_t(),d_aijHH_tdt(),d_ajacobien_t(),d_ajacobien_tdt()
,nbNoeudCentral(nb_noeud_central),tCalEpais(nbvec == 3),epais(),d_epais(NULL)
,PtCourbure(NULL),PtDcourbure(NULL),PtTest_courbure_anormale(NULL)
,type_calcul_jacobien(1)
{ AllocSfe1();
// def de Ia
for (int ii=1;ii<=3;ii++)
Ia(ii)(ii) = 1.;
if (indi.Taille() != 5) // tableau indi
{ indi.Change_taille(5);indi(1) = 1; indi(2) = 2; indi(3) = 3; indi(4) = 1; indi(5) = 2;};
// pour la courbure
switch (enui)
{ case SFE1: case SFE1_3D: case QSFE1 : {PtCourbure = &Met_Sfe1::Courbure2;
PtDcourbure = &Met_Sfe1::Dcourbure2;
PtTest_courbure_anormale = &Met_Sfe1::Test_courbure_anormale2;break;}
case SFE2: case SFE2_3D: {PtCourbure = &Met_Sfe1::Courbure3;
PtDcourbure = &Met_Sfe1::Dcourbure3;
PtTest_courbure_anormale = &Met_Sfe1::Test_courbure_anormale3;break;}
case SFE3: case SFE3_3D: case QSFE3: {PtCourbure = &Met_Sfe1::Courbure4;
PtDcourbure = &Met_Sfe1::Dcourbure4;
PtTest_courbure_anormale = &Met_Sfe1::Test_courbure_anormale4;break;}
case SFE3C: case SFE3C_3D: {PtCourbure = &Met_Sfe1::Courbure4;
PtDcourbure = &Met_Sfe1::Dcourbure4;
PtTest_courbure_anormale = &Met_Sfe1::Test_courbure_anormale4;break;}
default:
{ cout << "\n erreur!!! cas d'interpolation sfe non connu, cas = "
<< Nom_interpol(enui)
<< "\n Met_Sfe1::Met_Sfe1 (..." << endl;
Sortie(1);
};
};
Init_conteneur_de_retour_pourFacette(); // Init des conteneurs de retour de fonction
};
// Constructeur de copie :
Met_Sfe1::Met_Sfe1 ( const Met_Sfe1& a) :
Met_abstraite(a), Ia(3)
,curb_0(a.curb_0),curb_t(a.curb_t),curb_tdt(a.curb_tdt)
,dcurb_t(a.dcurb_t),dcurb_tdt(a.dcurb_tdt)
,N_0(a.N_0),N_t(a.N_t),N_tdt(a.N_tdt),norme_N_t(a.norme_N_t), norme_N_tdt(a.norme_N_tdt)
,N_alpha_0_1(a.N_alpha_0_1),N_alpha_0_2(a.N_alpha_0_2)
,N_alpha_t_1(a.N_alpha_t_1),N_alpha_t_2(a.N_alpha_t_2)
,N_alpha_tdt_1(a.N_alpha_tdt_1),N_alpha_tdt_2(a.N_alpha_tdt_2)
,ajacobien_0(a.ajacobien_0) , ajacobien_t(a.ajacobien_t)
,ajacobien_tdt(a.ajacobien_tdt), d_aijBB_t()
,d_aijBB_tdt (a.d_aijBB_tdt.Taille()), d_aijHH_t(a.d_aijHH_t.Taille())
,d_aijHH_tdt (a.d_aijHH_tdt.Taille()), d_ajacobien_t(a.d_ajacobien_t)
,d_ajacobien_tdt(a.d_ajacobien_tdt)
,nbNoeudCentral(a.nbNoeudCentral),tCalEpais(a.tCalEpais),epais(),d_epais(NULL)
,PtCourbure(a.PtCourbure),PtDcourbure(a.PtDcourbure)
,PtTest_courbure_anormale(a.PtTest_courbure_anormale)
,type_calcul_jacobien(a.type_calcul_jacobien)
{ // on met à NULL les grandeurs pointées
P0 = NULL; Pt = NULL;d_Pt = NULL; Ptdt = NULL; d_Ptdt = NULL;
aiB_0 = NULL;aiB_t = NULL; aiB_tdt = NULL;
aiH_0 = NULL;aiH_t = NULL;aiH_tdt = NULL;
aijBB_0 = NULL;aijBB_t = NULL;aijBB_tdt = NULL;
aijHH_0 = NULL;aijHH_t = NULL;aijHH_tdt = NULL;
d_aiB_t = NULL; d_N_t=NULL; d_N_alpha_t_1=NULL;d_N_alpha_t_2=NULL;
d_aiB_tdt = NULL;d_N_tdt=NULL; d_N_alpha_tdt_1=NULL;d_N_alpha_tdt_2=NULL;
d_aiH_t = NULL;d_aiH_tdt = NULL;
// copie des grandeurs pointées
Copie_metSfe1(a);
// def de Ia
for (int ii=1;ii<=dim_base;ii++)
Ia(ii)(ii) = 1.;
Init_conteneur_de_retour_pourFacette(); // Init des conteneurs de retour de fonction
};
Met_Sfe1::~Met_Sfe1 ()
{ DeallocSfe1();
};
// Surcharge de l'operateur = : realise l'affectation
// dérivant de virtuel, a ne pas employer -> message d'erreur
Met_abstraite& Met_Sfe1::operator= (const Met_abstraite& )
{ // normalement ne devrait pas être utilisé
cout << "\n erreur , l operateur d affectation a utiliser doit etre celui explicite "
<< " de la classe Met_Sfe1 \n"
<< " Met_abstraite& Met_Sfe1::operator= (const Met_abstraite& met) \n";
Sortie(1);
return (*this);
};
// normale
Met_Sfe1& Met_Sfe1::operator= (const Met_Sfe1& met)
{ (*this) = Met_abstraite::operator=(met); // partie met_abstraite
nbNoeudCentral = met.nbNoeudCentral;
// copie des grandeurs pointées
Copie_metSfe1(met);
// copie des grandeurs non pointées
Ia = met.Ia;
curb_0 = met.curb_0;curb_t = met.curb_t;curb_tdt = met.curb_tdt;
dcurb_t = met.dcurb_t;dcurb_tdt = met.dcurb_tdt;
N_0 = met.N_0;N_t = met.N_t;N_tdt = met.N_tdt;
norme_N_t=met.norme_N_t; norme_N_tdt=met.norme_N_tdt;
N_alpha_0_1=met.N_alpha_0_1;N_alpha_0_2=met.N_alpha_0_2;
N_alpha_t_1=met.N_alpha_t_1;N_alpha_t_2=met.N_alpha_t_2;
N_alpha_tdt_1=met.N_alpha_tdt_1;N_alpha_tdt_2=met.N_alpha_tdt_2;
ajacobien_0 = met.ajacobien_0;ajacobien_t = met.ajacobien_t;ajacobien_tdt = met.ajacobien_tdt;
d_ajacobien_t = met.d_ajacobien_t; d_ajacobien_tdt = met.d_ajacobien_tdt;
type_calcul_jacobien = met.type_calcul_jacobien;
return (*this);
};
// affichage minimale des éléments de métrique de base
void Met_Sfe1::Affiche() const
{ cout << "\n -- 1) info elements de base de la metrique SFE : partie membrane -- ";
if (aiB_0 != NULL)
{ cout << "\n aiB_0: "; aiB_0->Affiche();};
if (aiB_t != NULL)
{ cout << "\n aiB_t: "; aiB_t->Affiche();};
if (aiB_tdt != NULL)
{ cout << "\n aiB_tdt: "; aiB_tdt->Affiche();};
if (aiH_0 != NULL)
{ cout << "\n aiH_0: "; aiH_0->Affiche();};
if (aiH_t != NULL)
{ cout << "\n aiH_t: "; aiH_t->Affiche();};
if (aiH_tdt != NULL)
{ cout << "\n aiH_tdt: "; aiH_tdt->Affiche();};
if (aijBB_0 != NULL)
{ cout << "\n aijBB_0: "; aijBB_0->Ecriture(cout);}
if (aijBB_t != NULL)
{ cout << "\n aijBB_t: "; aijBB_t->Ecriture(cout);}
if (aijBB_tdt != NULL)
{ cout << "\n aijBB_tdt: "; aijBB_tdt->Ecriture(cout);}
if (aijHH_0 != NULL)
{ cout << "\n aijHH_0: "; aijHH_0->Ecriture(cout);}
if (aijHH_t != NULL)
{ cout << "\n aijHH_t: "; aijHH_t->Ecriture(cout);}
if (aijHH_tdt != NULL)
{ cout << "\n aijHH_tdt: "; aijHH_tdt->Ecriture(cout);}
cout << "\n ajacobien_0= "<< ajacobien_0
<< " ajacobien_t= "<< ajacobien_t
<< " ajacobien_tdt= "<< ajacobien_tdt;
cout << "\n courbure_0: "; curb_0.Ecriture(cout);
cout << "\n courbure_t: "; curb_t.Ecriture(cout);
cout << "\n courbure_tdt: "; curb_tdt.Ecriture(cout);
cout << "\n normale_0: " << N_0;
cout << "\n normale_t: " << N_t;
cout << "\n normale_tdt: " << N_tdt;
cout << "\n N_0,alpha_1: " << N_alpha_0_1 << " N_0,alpha_2: " << N_alpha_0_2;
cout << "\n N_t,alpha_1: " << N_alpha_t_1 << " N_t,alpha_2: " << N_alpha_t_2;
cout << "\n N_tdt,alpha_1: " << N_alpha_tdt_1 << " N_tdt,alpha_2: " << N_alpha_tdt_2;
cout << "\n epaisseurs: "<< epais;
cout << "\n -- fin info elements de metrique sfe : partie membrane--" << flush;
cout << "\n -- 2) info elements de base de la metrique SFE : partie dans l'epaisseur (via la courbure) -- ";
Met_abstraite::Affiche();
cout << "\n -- fin info elements de base de la metrique SFE : partie dans l'epaisseur (via la courbure) -- "<<flush;
};
// attribution de l'indicateur de type de calcul de jacobien:
// =1: le jacobien = celui de la facette médiane sans courbure
// =2: le jacobien = celui de la facette médiane + la courbure actuelle
// =3: le jacobien = celui du volume = facette * épaisseur, cas d'une métrique 3D
void Met_Sfe1::ChangeTypeCalculJacobien(int nouveau_type)
{ switch (nouveau_type)
{case 1: case 2: case 3: type_calcul_jacobien=nouveau_type; break;
default:
cout << "\n erreur a l'affectation du type de calcul de jacobien pour les elements sfe"
<< " le nouveau type demande est " << nouveau_type << " alors que seuls les types 1 2 et 3 "
<< " sont actuellement definis ";
Sortie(1);
};
};
// ------------------------ gestion de la memoire --------------------------
// Changement d'initialisation des differentes variables
void Met_Sfe1::PlusInitVariables(Tableau<Enum_variable_metrique>& tab)
{ // on définit un tableau d'indicateurs pour gérer le tableau tab interne
int tabtaille = tab.Taille();
Tableau <bool> tabbool(tabtaille,false);
// on alloue en fonction des parametres
int nbddl_x = tab_ddl.NbDdl_famille(X1); // nombre de ddl en position
int nbddl_v = tab_ddl.NbDdl_famille(V1); // nombre de ddl en vitesse
int nbddlEpais = 0.;
if (tCalEpais) nbddlEpais = nbNoeudCentral; // un ddl par noeud central
int nbddlDepTot = nbddl_x + nbddlEpais;
// changement de nbddl_sup_xi par les classes dérivées
Change_nbddl_sup_xi(nbddlEpais);
// on alloue a la classe superieur
Met_abstraite::PlusInitVariables(tab);
if (Existe(tab,iM0) && (P0 == NULL) )
{P0 = new Coordonnee3(dim_base);tabbool(Existe_num(tab,iM0))=true;}
if (Existe(tab,iMt) && (Pt == NULL) )
{Pt = new Coordonnee3(dim_base);tabbool(Existe_num(tab,iMt))=true;}
if (Existe(tab,idMt) && (d_Pt == NULL) )
{Coordonnee3 toto; d_Pt = new Tableau <Coordonnee3> (nbddl_x,toto);
tabbool(Existe_num(tab,idMt))=true;}
if (Existe(tab,iMtdt) && (Ptdt == NULL) )
{Ptdt = new Coordonnee3;tabbool(Existe_num(tab,iMtdt))=true;}
if (Existe(tab,idMtdt) && (d_Ptdt == NULL) )
{Coordonnee3 toto; d_Ptdt = new Tableau <Coordonnee3> (nbddl_x,toto);
tabbool(Existe_num(tab,idMtdt))=true;}
if (Existe(tab,igiB_0) && (aiB_0 == NULL) )
{aiB_0 = new BaseB(dim_base,nbvec_base);tabbool(Existe_num(tab,igiB_0))=true;}
if (Existe(tab,igiB_t) && (aiB_t == NULL) )
{aiB_t = new BaseB(dim_base,nbvec_base);tabbool(Existe_num(tab,igiB_t))=true;}
if (Existe(tab,igiB_tdt) && (aiB_tdt == NULL) )
{aiB_tdt = new BaseB(dim_base,nbvec_base);tabbool(Existe_num(tab,igiB_tdt))=true;}
if (Existe(tab,igiH_0) && (aiH_0 == NULL) )
{aiH_0 = new BaseH (dim_base,nbvec_base);tabbool(Existe_num(tab,igiH_0))=true;}
if (Existe(tab,igiH_t) && (aiH_t == NULL) )
{aiH_t = new BaseH (dim_base,nbvec_base);tabbool(Existe_num(tab,igiH_t))=true;}
if (Existe(tab,igiH_tdt) && (aiH_tdt == NULL) )
{aiH_tdt = new BaseH (dim_base,nbvec_base);tabbool(Existe_num(tab,igiH_tdt))=true;}
if (Existe(tab,igijBB_0) && (aijBB_0 == NULL) )
{aijBB_0 = NevezTenseurBB(nbvec_base);tabbool(Existe_num(tab,igijBB_0))=true;}
if (Existe(tab,igijBB_t) && (aijBB_t == NULL) )
{aijBB_t = NevezTenseurBB(nbvec_base);tabbool(Existe_num(tab,igijBB_t))=true;}
if (Existe(tab,igijBB_tdt) && (aijBB_tdt == NULL) )
{aijBB_tdt = NevezTenseurBB(nbvec_base);tabbool(Existe_num(tab,igijBB_tdt))=true;}
if (Existe(tab,igijHH_0) && (aijHH_0 == NULL) )
{aijHH_0 = NevezTenseurHH(nbvec_base);tabbool(Existe_num(tab,igijHH_0))=true;}
if (Existe(tab,igijHH_t) && (aijHH_t == NULL) )
{aijHH_t = NevezTenseurHH(nbvec_base);tabbool(Existe_num(tab,igijHH_t))=true;}
if (Existe(tab,igijHH_tdt) && (aijHH_tdt == NULL) )
{aijHH_tdt = NevezTenseurHH(nbvec_base);tabbool(Existe_num(tab,igijHH_tdt))=true;}
if (Existe(tab,id_giB_t) && (d_aiB_t == NULL) )
{ BaseB truc(dim_base,nbvec_base,0);
tabbool(Existe_num(tab,id_giB_t))=true;
d_aiB_t = new Tableau <BaseB> (nbddlDepTot,truc);
d_N_t = new Tableau < CoordonneeB > (nbddl_x);
d_N_alpha_t_1 = new Tableau < CoordonneeB > (nbddl_x);
d_N_alpha_t_2 = new Tableau < CoordonneeB > (nbddl_x);
};
if (Existe(tab,id_giB_tdt) && (d_aiB_tdt == NULL) )
{ BaseB truc(dim_base,nbvec_base,0);
tabbool(Existe_num(tab,id_giB_tdt))=true;
d_aiB_tdt = new Tableau <BaseB> (nbddlDepTot,truc);
d_N_tdt = new Tableau < CoordonneeB > (nbddl_x);
d_N_alpha_tdt_1 = new Tableau < CoordonneeB > (nbddl_x);
d_N_alpha_tdt_2 = new Tableau < CoordonneeB > (nbddl_x);
};
if (Existe(tab,id_giH_t) && (d_aiH_t == NULL) )
{ BaseH truc(dim_base,nbvec_base,0);
tabbool(Existe_num(tab,id_giH_t))=true;
d_aiH_t = new Tableau <BaseH> (nbddlDepTot,truc); }
if (Existe(tab,id_giH_tdt) && (d_aiH_tdt == NULL) )
{ BaseH truc(dim_base,nbvec_base,0);
tabbool(Existe_num(tab,id_giH_tdt))=true;
d_aiH_tdt = new Tableau <BaseH> (nbddlDepTot,truc); }
if (Existe(tab,id_gijBB_t) && ( d_aijBB_t.Taille() == 0) )
{ tabbool(Existe_num(tab,id_gijBB_t))=true;
d_aijBB_t.Change_taille(nbddlDepTot);
for (int i=1;i<=nbddlDepTot;i++)
d_aijBB_t(i) = NevezTenseurBB(nbvec_base); }
if (Existe(tab,id_gijBB_tdt) && ( d_aijBB_tdt.Taille() == 0) )
{ tabbool(Existe_num(tab,id_gijBB_tdt))=true;
d_aijBB_tdt.Change_taille(nbddlDepTot);
for (int i=1;i<=nbddlDepTot;i++)
d_aijBB_tdt(i) = NevezTenseurBB(nbvec_base); }
if (Existe(tab,id_gijHH_t) && (d_aijHH_t.Taille() == 0) )
{ tabbool(Existe_num(tab,id_gijHH_t))=true;
d_aijHH_t.Change_taille(nbddlDepTot);
for (int i=1;i<=nbddlDepTot;i++)
d_aijHH_t(i) = NevezTenseurHH(nbvec_base); }
if (Existe(tab,id_gijHH_tdt) && (d_aijHH_tdt.Taille() == 0) )
{ tabbool(Existe_num(tab,id_gijHH_tdt))=true;
d_aijHH_tdt.Change_taille(nbddlDepTot);
for (int i=1;i<=nbddlDepTot;i++)
d_aijHH_tdt(i) = NevezTenseurHH(nbvec_base); }
if (Existe(tab,id_jacobien_t) && (d_ajacobien_t.Taille() == 0) )
{d_ajacobien_t.Change_taille(nbddlDepTot);tabbool(Existe_num(tab,id_jacobien_t))=true;}
if (Existe(tab,id_jacobien_tdt) && (d_ajacobien_tdt.Taille() == 0) )
{d_ajacobien_tdt.Change_taille(nbddlDepTot);tabbool(Existe_num(tab,id_jacobien_tdt))=true;}
// maintenant on met à jour le tableau local tab,
int nbplus = 0;
// on compte les éléments à rajouter
for (int i=1;i<=tabtaille;i++) if(tabbool(i)) nbplus++;
// on agrandi le tableau existant et on le complète
int taille_i = this->tab.Taille();
this->tab.Change_taille(taille_i + nbplus);
nbplus = 0;
for (int i=1;i<=tabtaille;i++)
if(tabbool(i))
{ nbplus++; this->tab(taille_i + nbplus) = tab(i);}
Init_conteneur_de_retour_pourFacette(); // Init des conteneurs de retour de fonction
};
//---------------------------------- fonctions privées -------------------------------------------
// allocation de la memoire
void Met_Sfe1::AllocSfe1 ()
{
// on met les pointeurs a NULL
P0 = NULL; Pt = NULL;d_Pt = NULL; Ptdt = NULL; d_Ptdt = NULL;
aiB_0 = NULL;aiB_t = NULL; aiB_tdt = NULL;
aiH_0 = NULL;aiH_t = NULL;aiH_tdt = NULL;
aijBB_0 = NULL;aijBB_t = NULL;aijBB_tdt = NULL;
aijHH_0 = NULL;aijHH_t = NULL;aijHH_tdt = NULL;
d_aiB_t = NULL; d_N_t=NULL; d_N_alpha_t_1=NULL;d_N_alpha_t_2=NULL;
d_aiB_tdt = NULL;d_N_tdt=NULL; d_N_alpha_tdt_1=NULL;d_N_alpha_tdt_2=NULL;
d_aiH_t = NULL;d_aiH_tdt = NULL;
// on alloue en fonction des parametres
int nbddl_x = tab_ddl.NbDdl_famille(X1); // nombre de ddl en position
int nbddlEpais = 0.;
if (tCalEpais) nbddlEpais = nbNoeudCentral; // un ddl par noeud central
int nbddl_v = tab_ddl.NbDdl_famille(V1); // nombre de ddl en vitesse
int nbddlDepTot = nbddl_x + nbddlEpais;
if (tCalEpais)
{ d_epais = new Tableau < Epai> (nbddlEpais);};
if (Existe(tab,iM0)) P0 = new Coordonnee3();
if (Existe(tab,iMt)) Pt = new Coordonnee3();
if (Existe(tab,idMt))
{Coordonnee3 toto; d_Pt = new Tableau <Coordonnee3> (nbddl_x,toto);}
if (Existe(tab,iMtdt)) Ptdt = new Coordonnee3;
if (Existe(tab,idMtdt))
{Coordonnee3 toto; d_Ptdt = new Tableau <Coordonnee3> (nbddl_x,toto);}
if (Existe(tab,igiB_0)) aiB_0 = new BaseB(dim_base,nbvec_base);
if (Existe(tab,igiB_t)) aiB_t = new BaseB(dim_base,nbvec_base);
if (Existe(tab,igiB_tdt))aiB_tdt = new BaseB(dim_base,nbvec_base);
if (Existe(tab,igiH_0)) aiH_0 = new BaseH (dim_base,nbvec_base);
if (Existe(tab,igiH_t)) aiH_t = new BaseH (dim_base,nbvec_base);
if (Existe(tab,igiH_tdt)) aiH_tdt = new BaseH (dim_base,nbvec_base);
if (Existe(tab,igijBB_0)) aijBB_0 = NevezTenseurBB(nbvec_base);
if (Existe(tab,igijBB_t)) aijBB_t = NevezTenseurBB(nbvec_base);
if (Existe(tab,igijBB_tdt)) aijBB_tdt = NevezTenseurBB(nbvec_base);
if (Existe(tab,igijHH_0)) aijHH_0 = NevezTenseurHH(nbvec_base);
if (Existe(tab,igijHH_t)) aijHH_t = NevezTenseurHH(nbvec_base);
if (Existe(tab,igijHH_tdt)) aijHH_tdt = NevezTenseurHH(nbvec_base);
if (Existe(tab,id_giB_t))
{ BaseB truc(dim_base,nbvec_base,0);
d_aiB_t = new Tableau <BaseB> (nbddlDepTot,truc);
d_N_t = new Tableau < CoordonneeB > (nbddl_x);
d_N_alpha_t_1 = new Tableau < CoordonneeB > (nbddl_x);
d_N_alpha_t_2 = new Tableau < CoordonneeB > (nbddl_x);
};
if (Existe(tab,id_giB_tdt))
{ BaseB truc(dim_base,nbvec_base,0);
d_aiB_tdt = new Tableau <BaseB> (nbddlDepTot,truc);
d_N_tdt = new Tableau < CoordonneeB > (nbddl_x);
d_N_alpha_tdt_1 = new Tableau < CoordonneeB > (nbddl_x);
d_N_alpha_tdt_2 = new Tableau < CoordonneeB > (nbddl_x);
};
if (Existe(tab,id_giH_t)) { BaseH truc(dim_base,nbvec_base,0);
d_aiH_t = new Tableau <BaseH> (nbddlDepTot,truc); }
if (Existe(tab,id_giH_tdt)) { BaseH truc(dim_base,nbvec_base,0);
d_aiH_tdt = new Tableau <BaseH> (nbddlDepTot,truc); }
if (Existe(tab,id_gijBB_t)) { d_aijBB_t.Change_taille(nbddlDepTot);
for (int i=1;i<=nbddlDepTot;i++)
d_aijBB_t(i) = NevezTenseurBB(nbvec_base); }
if (Existe(tab,id_gijBB_tdt)) { d_aijBB_tdt.Change_taille(nbddlDepTot);
for (int i=1;i<=nbddlDepTot;i++)
d_aijBB_tdt(i) = NevezTenseurBB(nbvec_base); }
if (Existe(tab,id_gijHH_t)) { d_aijHH_t.Change_taille(nbddlDepTot);
for (int i=1;i<=nbddlDepTot;i++)
d_aijHH_t(i) = NevezTenseurHH(nbvec_base); }
if (Existe(tab,id_gijHH_tdt)) { d_aijHH_tdt.Change_taille(nbddlDepTot);
for (int i=1;i<=nbddlDepTot;i++)
d_aijHH_tdt(i) = NevezTenseurHH(nbvec_base); }
if (Existe(tab,id_jacobien_t)) d_ajacobien_t.Change_taille(nbddlDepTot);
if (Existe(tab,id_jacobien_tdt)) d_ajacobien_tdt.Change_taille(nbddlDepTot);
};
// deallocation de la memoire complète, uniquement des grandeurs spécifiques à Met_Sfe1
void Met_Sfe1::DeallocSfe1()
{ DeallocSfe1(tab);
};
// deallocation de la memoire en fonction du tableau tib, uniquement des grandeurs spécifiques à Met_Sfe1
void Met_Sfe1::DeallocSfe1(Tableau<Enum_variable_metrique>& tib)
{ if (d_epais != NULL){ delete d_epais; d_epais=NULL;};
if (Existe(tib,iM0)) {delete P0;P0=NULL;}
if (Existe(tib,iMt)) {delete Pt;Pt=NULL;}
if (Existe(tib,idMt)) {delete d_Pt;d_Pt=NULL;};
if (Existe(tib,iMtdt)) {delete Ptdt;Ptdt=NULL;}
if (Existe(tib,idMtdt)) {delete d_Ptdt;d_Ptdt=NULL;};
if (Existe(tib,igiB_0)) {delete aiB_0;aiB_0=NULL;}
if (Existe(tib,igiB_t)) {delete aiB_t;aiB_t=NULL;}
if (Existe(tib,igiB_tdt)) {delete aiB_tdt;aiB_tdt=NULL;}
if (Existe(tib,igiH_0)) {delete aiH_0;aiH_0=NULL;}
if (Existe(tib,igiH_t)) {delete aiH_t;aiH_t=NULL;}
if (Existe(tib,igiH_tdt)) {delete aiH_tdt;aiH_tdt=NULL;}
if (Existe(tib,igijBB_0)) {delete aijBB_0;aijBB_0=NULL;}
if (Existe(tib,igijBB_t)) {delete aijBB_t;aijBB_t=NULL;}
if (Existe(tib,igijBB_tdt)) {delete aijBB_tdt;aijBB_tdt=NULL;}
if (Existe(tib,igijHH_0)) {delete aijHH_0;aijHH_0=NULL;}
if (Existe(tib,igijHH_t)) {delete aijHH_t;aijHH_t=NULL;}
if (Existe(tib,igijHH_tdt)) {delete aijHH_tdt;aijHH_tdt=NULL;}
if (Existe(tib,id_giB_t)) {delete d_aiB_t;d_aiB_t=NULL;
delete d_N_t; d_N_t=NULL;
delete d_N_alpha_t_1; d_N_alpha_t_1=NULL;
delete d_N_alpha_t_2; d_N_alpha_t_2=NULL;};
if (Existe(tib,id_giB_tdt)) {delete d_aiB_tdt;d_aiB_tdt=NULL;
delete d_N_tdt; d_N_tdt=NULL;
delete d_N_alpha_tdt_1; d_N_alpha_tdt_1=NULL;
delete d_N_alpha_tdt_2; d_N_alpha_tdt_2=NULL;};
if (Existe(tib,id_giH_t)) {delete d_aiH_t;d_aiH_t=NULL;}
if (Existe(tib,id_giH_tdt)) {delete d_aiH_tdt;d_aiH_tdt=NULL;}
if (Existe(tib,id_gijBB_t)) { for (int i = 1; i<= d_aijBB_t.Taille(); i++)
delete d_aijBB_t(i);
d_aijBB_t.Change_taille(0); }
if (Existe(tib,id_gijBB_tdt)) { for (int i = 1; i<= d_aijBB_tdt.Taille(); i++)
delete d_aijBB_tdt(i);
d_aijBB_tdt.Change_taille(0); }
if (Existe(tib,id_gijHH_t)) { for (int i = 1; i<= d_aijHH_t.Taille(); i++)
delete d_aijHH_t(i);
d_aijHH_t.Change_taille(0); }
if (Existe(tib,id_gijHH_tdt)) { for (int i = 1; i<= d_aijHH_tdt.Taille(); i++)
delete d_aijHH_tdt(i);
d_aijHH_tdt.Change_taille(0); }
if (Existe(tib,id_jacobien_t)) d_ajacobien_t.Change_taille(0);
if (Existe(tib,id_jacobien_tdt)) d_ajacobien_tdt.Change_taille(0);
// maintenant on reinitialise à NULL les variables de retour
Impli toto; ex_impli = toto;
};
// copie en fonction de l'instance passée
// concerne que les grandeurs pointées
void Met_Sfe1::Copie_metSfe1(const Met_Sfe1& a)
{// on alloue en fonction des parametres
int nbddl_x = tab_ddl.NbDdl_famille(X1); // nombre de ddl en position
int nbddlEpais = 0.;
if (tCalEpais) nbddlEpais = nbNoeudCentral; // un ddl par noeud central
int nbddl_v = tab_ddl.NbDdl_famille(V1); // nombre de ddl en vitesse
int nbddlDepTot = nbddl_x + nbddlEpais;
tCalEpais = a.tCalEpais;
if (tCalEpais) {if (d_epais == NULL) {d_epais = new Tableau <Epai> (*a.d_epais);}
else { *d_epais = *a.d_epais;}
};
if (a.P0 != NULL)
{if (P0==NULL) P0 = new Coordonnee3(*(a.P0)); else *P0=*a.P0;}
else {if (P0!=NULL) {delete P0;P0=NULL;}}
if (a.Pt != NULL)
{if (Pt==NULL) Pt = new Coordonnee3(*(a.Pt)); else *Pt=*a.Pt;}
else {if (Pt!=NULL) {delete Pt;Pt=NULL;}}
if (a.d_Pt != NULL)
{if (d_Pt==NULL) d_Pt = new Tableau <Coordonnee3> (*(a.d_Pt)); else *d_Pt=*a.d_Pt;}
else {if (d_Pt != NULL) {delete d_Pt;d_Pt=NULL;}}
if (a.Ptdt != NULL)
{if (Ptdt==NULL) Ptdt = new Coordonnee3(*(a.Ptdt)); else *Ptdt=*a.Ptdt;}
else {if (Ptdt!=NULL) {delete Ptdt;Ptdt=NULL;}}
if (a.d_Ptdt != NULL)
{if (d_Ptdt==NULL) d_Ptdt = new Tableau <Coordonnee3> (*(a.d_Ptdt)); else *d_Ptdt=*a.d_Ptdt;}
else {if (d_Ptdt != NULL) {delete d_Ptdt;d_Ptdt=NULL;}}
if (a.aiB_0 != NULL)
{if (aiB_0==NULL) aiB_0 = new BaseB(*(a.aiB_0)); else *aiB_0=*a.aiB_0;}
else {if (aiB_0!=NULL) {delete aiB_0;aiB_0 = NULL;}}
if (a.aiB_t != NULL)
{if (aiB_t==NULL) aiB_t = new BaseB(*(a.aiB_t)); else *aiB_t=*a.aiB_t;}
else {if (aiB_t!=NULL) {delete aiB_t;aiB_t = NULL;}}
if (a.aiB_tdt != NULL)
{if (aiB_tdt==NULL) aiB_tdt = new BaseB(*(a.aiB_tdt)); else *aiB_tdt=*a.aiB_tdt;}
else {if (aiB_tdt!=NULL) {delete aiB_tdt;aiB_tdt = NULL;}}
if (a.aiH_0 != NULL)
{if (aiH_0==NULL) aiH_0 = new BaseH(*(a.aiH_0)); else *aiH_0=*a.aiH_0;}
else {if (aiH_0!=NULL) {delete aiH_0;aiH_0 = NULL;}}
if (a.aiH_t != NULL)
{if (aiH_t==NULL) aiH_t = new BaseH(*(a.aiH_t)); else *aiH_t=*a.aiH_t;}
else {if (aiH_t!=NULL) {delete aiH_t;aiH_t = NULL;}}
if (a.aiH_tdt != NULL)
{if (aiH_tdt==NULL) aiH_tdt = new BaseH(*(a.aiH_tdt)); else *aiH_tdt=*a.aiH_tdt;}
else {if (aiH_tdt!=NULL) {delete aiH_tdt;aiH_tdt = NULL;}}
if (a.aijBB_0 != NULL)
{if (aijBB_0==NULL) aijBB_0 = NevezTenseurBB(*a.aijBB_0);else *aijBB_0=*a.aijBB_0;}
else {if (aijBB_0!=NULL) {delete aijBB_0;aijBB_0 = NULL;}}
if (a.aijBB_t != NULL)
{if (aijBB_t==NULL) aijBB_t = NevezTenseurBB(*a.aijBB_t);else *aijBB_t=*a.aijBB_t;}
else {if (aijBB_t!=NULL) {delete aijBB_t;aijBB_t = NULL;}}
if (a.aijBB_tdt != NULL)
{if (aijBB_tdt==NULL) aijBB_tdt = NevezTenseurBB(*a.aijBB_tdt);else *aijBB_tdt=*a.aijBB_tdt;}
else {if (aijBB_tdt!=NULL) {delete aijBB_tdt;aijBB_tdt = NULL;}}
if (a.aijHH_0 != NULL)
{if (aijHH_0==NULL) aijHH_0 = NevezTenseurHH(*a.aijHH_0);else *aijHH_0=*a.aijHH_0;}
else {if (aijHH_0!=NULL) {delete aijHH_0;aijHH_0 = NULL;}}
if (a.aijHH_t != NULL)
{if (aijHH_t==NULL) aijHH_t = NevezTenseurHH(*a.aijHH_t);else *aijHH_t=*a.aijHH_t;}
else {if (aijHH_t!=NULL) {delete aijHH_t;aijHH_t = NULL;}}
if (a.aijHH_tdt != NULL)
{if (aijHH_tdt==NULL) aijHH_tdt = NevezTenseurHH(*a.aijHH_tdt);else *aijHH_tdt=*a.aijHH_tdt;}
else {if (aijHH_tdt!=NULL) {delete aijHH_tdt;aijHH_tdt = NULL;}}
if (a.d_aiB_t != NULL)
{if (d_aiB_t==NULL) {d_aiB_t = new Tableau <BaseB>( *a.d_aiB_t);}else {*d_aiB_t = *a.d_aiB_t;};
if (d_N_t==NULL) {d_N_t = new Tableau < CoordonneeB > (*a.d_N_t);}
else { *d_N_t = *a.d_N_t; };
if (d_N_alpha_t_1==NULL) {d_N_alpha_t_1 = new Tableau < CoordonneeB > (*a.d_N_alpha_t_1);
d_N_alpha_t_2 = new Tableau < CoordonneeB > (*a.d_N_alpha_t_2);
}
else { *d_N_alpha_t_1 = *a.d_N_alpha_t_1;*d_N_alpha_t_2 = *a.d_N_alpha_t_2; };
}
else {if (d_aiB_t!=NULL) {delete d_aiB_t;d_aiB_t = NULL;};
if (d_N_t!=NULL) {delete d_N_t;d_N_t=NULL;};
if (d_N_alpha_t_1!=NULL) {delete d_N_alpha_t_1;d_N_alpha_t_1=NULL;};
if (d_N_alpha_t_2!=NULL) {delete d_N_alpha_t_2;d_N_alpha_t_2=NULL;};
};
if (a.d_aiB_tdt != NULL)
{if (d_aiB_tdt==NULL) {d_aiB_tdt = new Tableau <BaseB>( *a.d_aiB_tdt);}else {*d_aiB_tdt = *a.d_aiB_tdt;};
if (d_N_tdt==NULL) {d_N_tdt = new Tableau < CoordonneeB > (*a.d_N_tdt);}
else { *d_N_tdt = *a.d_N_tdt; };
if (d_N_alpha_tdt_1==NULL) {d_N_alpha_tdt_1 = new Tableau < CoordonneeB > (*a.d_N_alpha_tdt_1);
d_N_alpha_tdt_2 = new Tableau < CoordonneeB > (*a.d_N_alpha_tdt_2);
}
else { *d_N_alpha_tdt_1 = *a.d_N_alpha_tdt_1;*d_N_alpha_tdt_2 = *a.d_N_alpha_tdt_2; };
}
else {if (d_aiB_tdt!=NULL) {delete d_aiB_tdt;d_aiB_tdt = NULL;}
if (d_N_tdt!=NULL) {delete d_N_tdt;d_N_tdt=NULL;};
if (d_N_alpha_tdt_1!=NULL) {delete d_N_alpha_tdt_1;d_N_alpha_tdt_1=NULL;};
if (d_N_alpha_tdt_2!=NULL) {delete d_N_alpha_tdt_2;d_N_alpha_tdt_2=NULL;};
};
if (a.d_aiH_t != NULL)
{if (d_aiH_t==NULL) d_aiH_t = new Tableau <BaseH>( *a.d_aiH_t);else *d_aiH_t = *a.d_aiH_t;}
else {if (d_aiH_t!=NULL) {delete d_aiH_t;d_aiH_t = NULL;} }
if (a.d_aiH_tdt != NULL)
{if (d_aiH_tdt==NULL) d_aiH_tdt = new Tableau <BaseH>( *a.d_aiH_tdt);else *d_aiH_tdt = *a.d_aiH_tdt;}
else {if (d_aiH_tdt!=NULL) {delete d_aiH_tdt;d_aiH_tdt = NULL;} }
if (Existe(tab,id_gijBB_t))
{ d_aijBB_t.Change_taille(a.d_aijBB_t.Taille());
for (int i=1;i<=nbddlDepTot;i++)
{ d_aijBB_t(i) = NevezTenseurBB(nbvec_base);
*((d_aijBB_t)(i)) = *((a.d_aijBB_t)(i)) ; } }
else d_aijBB_t.Change_taille(0);
if (Existe(tab,id_gijBB_tdt))
{ d_aijBB_tdt.Change_taille(a.d_aijBB_tdt.Taille());
for (int i=1;i<=nbddlDepTot;i++)
{ d_aijBB_tdt(i) = NevezTenseurBB(nbvec_base);
*((d_aijBB_tdt)(i)) = *((a.d_aijBB_tdt)(i)) ; }}
else d_aijBB_tdt.Change_taille(0);
if (Existe(tab,id_gijHH_t))
{ d_aijHH_t.Change_taille(a.d_aijHH_t.Taille());
for (int i=1;i<=nbddlDepTot;i++)
{ d_aijHH_t(i) = NevezTenseurHH(nbvec_base);
*((d_aijHH_t)(i)) = *((a.d_aijHH_t)(i)) ; }}
else d_aijHH_t.Change_taille(0);
if (Existe(tab,id_gijHH_tdt))
{ d_aijHH_tdt.Change_taille(a.d_aijHH_tdt.Taille());
for (int i=1;i<=nbddlDepTot;i++)
{ d_aijHH_tdt(i) = NevezTenseurHH(nbvec_base);
*((d_aijHH_tdt)(i)) = *((a.d_aijHH_tdt)(i)); }}
else d_aijHH_tdt.Change_taille(0);
};
// initialisation des conteneurs de retour des méthodes
void Met_Sfe1::Init_conteneur_de_retour_pourFacette()
{ courbure_t_tdt.Mise_a_jour_grandeur(aiB_0,aiH_0,aiB_t,aiH_t,aiB_tdt,aiH_tdt,aijBB_0,aijHH_0
,aijBB_t,aijHH_t,aijBB_tdt,aijHH_tdt,&curb_t,&curb_tdt,&curb_0
,&ajacobien_tdt,&ajacobien_t,&ajacobien_0);
ex_impliFac.Mise_a_jour_grandeur(aiB_0,aiH_0,aiB_t,aiH_t,aiB_tdt,d_aiB_tdt,aiH_tdt,d_aiH_tdt
,aijBB_0,aijHH_0,aijBB_t,aijHH_t,aijBB_tdt,aijHH_tdt,gradVmoyBB_t,gradVmoyBB_tdt,gradVBB_tdt
,&d_aijBB_tdt,NULL,&d_aijHH_tdt,&jacobien_tdt,&jacobien_t,&jacobien_0,&d_jacobien_tdt
,&d_gradVmoyBB_t,&d_gradVmoyBB_tdt,&d_gradVBB_t,&d_gradVBB_tdt);
ex_expliFac.Mise_a_jour_grandeur(aiB_0,aiH_0,aiB_t,aiH_t,aijBB_0,aijHH_0,aijBB_t,aijHH_t,gradVmoyBB_t,gradVBB_t,
&d_aijBB_t,&jacobien_t,&jacobien_0);
ex_expli_t_tdtFac.Mise_a_jour_grandeur(aiB_0,aiH_0,aiB_t,aiH_t,aiB_tdt,aiH_tdt,aijBB_0,aijHH_0,aijBB_t,aijHH_t,aijBB_tdt
,aijHH_tdt,gradVmoyBB_t,gradVmoyBB_tdt,gradVBB_tdt,&d_aijBB_tdt,&jacobien_tdt,&jacobien_t,&jacobien_0);
ex_aijHH_0_et_aiH_0Fac.Mise_a_jour_grandeur(aiH_0,aijHH_0);
ex_DynamiqFac.Mise_a_jour_grandeur(aiB_0,aiB_tdt,aijBB_0,aijBB_tdt,
&jacobien_tdt,&jacobien_0);
ex_flambe_linFac.Mise_a_jour_grandeur(aiB_0,aiH_0,aiB_t,aiH_t,aiB_tdt,d_aiB_tdt,aiH_tdt,d_aiH_tdt
,aijBB_0,aijHH_0,aijBB_t,aijHH_t,aijBB_tdt,aijHH_tdt,gradVmoyBB_t,gradVmoyBB_tdt,gradVBB_tdt
,&d_aijBB_tdt,NULL,&d_aijHH_tdt,&jacobien_tdt,&jacobien_t,&jacobien_0,&d_jacobien_tdt
,&d_gradVmoyBB_t,&d_gradVmoyBB_tdt,&d_gradVBB_t,&d_gradVBB_tdt);
umat_contFac.Mise_a_jour_grandeur(aiB_0,aiH_0,aiB_t,aiH_t,aiB_tdt,aiH_tdt,aijBB_0,aijHH_0,aijBB_t,aijHH_t,aijBB_tdt
,aijHH_tdt,gradVmoyBB_t,gradVmoyBB_tdt,gradVBB_tdt,&jacobien_tdt,&jacobien_t,&jacobien_0);
ex_InfoImpFac.Mise_a_jour_grandeur(M0,Mtdt,aiB_0,aiB_tdt,aiH_0,aiH_tdt,aijHH_tdt,aijBB_tdt,aijBB_0,aijHH_0);
ex_InfoExp_tFac.Mise_a_jour_grandeur(M0,Mt,aiB_0,aiB_t,aiH_0,aiH_t,aijHH_t,aijBB_t,aijBB_0,aijHH_0);
ex_InfoExp_tdtFac.Mise_a_jour_grandeur(M0,Mtdt,aiB_0,aiB_tdt,aiH_0,aiH_tdt,aijHH_tdt,aijBB_tdt,aijBB_0,aijHH_0);
ex_Info0_t_tdtFac.Mise_a_jour_grandeur(M0,Mt,Mtdt,aiB_0,aiB_t,aiB_tdt,aiH_0,aiH_t,aiH_tdt);
};