677 lines
36 KiB
C++
Executable file
677 lines
36 KiB
C++
Executable file
|
|
// 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 "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);
|
|
};
|
|
|
|
|
|
|
|
|