128 lines
5.4 KiB
C++
Executable file
128 lines
5.4 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 "Hyper3DN.h"
|
|
#include "ComLoi_comp_abstraite.h"
|
|
|
|
# include <iostream>
|
|
using namespace std; //introduces namespace std
|
|
#include <math.h>
|
|
#include <stdlib.h>
|
|
#include "Sortie.h"
|
|
|
|
|
|
Hyper3DN::Hyper3DN () : // Constructeur par defaut
|
|
HyperDN<class Tenseur3HH,class Tenseur3BB,class Tenseur3BH,class Tenseur3HB,
|
|
class Tenseur_ns3HH,class Tenseur_ns3BB> (RIEN_COMP,RIEN_CATEGORIE_LOI_COMP,3)
|
|
{};
|
|
// Constructeur utile si l'identificateur du nom de la loi
|
|
// de comportement est connu
|
|
Hyper3DN::Hyper3DN (Enum_comp id_compor,Enum_categorie_loi_comp categorie_comp) :
|
|
HyperDN<class Tenseur3HH,class Tenseur3BB,class Tenseur3BH,class Tenseur3HB,
|
|
class Tenseur_ns3HH,class Tenseur_ns3BB> (id_compor,categorie_comp,3)
|
|
{} ;
|
|
// Constructeur utile si l'identificateur du nom de la loi
|
|
// de comportement est connu
|
|
Hyper3DN::Hyper3DN (char* nom,Enum_categorie_loi_comp categorie_comp) :
|
|
HyperDN<class Tenseur3HH,class Tenseur3BB,class Tenseur3BH,class Tenseur3HB,
|
|
class Tenseur_ns3HH,class Tenseur_ns3BB> (nom,categorie_comp,3)
|
|
{} ;
|
|
// Constructeur de copie
|
|
Hyper3DN::Hyper3DN (const Hyper3DN& loi) :
|
|
HyperDN<class Tenseur3HH,class Tenseur3BB,class Tenseur3BH,class Tenseur3HB,
|
|
class Tenseur_ns3HH,class Tenseur_ns3BB> (loi)
|
|
{};
|
|
|
|
|
|
|
|
|
|
// =========== METHODES Protégées dérivant de virtuelles : ==============
|
|
|
|
// Calcul des trois invariants et de epsBH,
|
|
// retour de IdGBH qui pointe sur le bon tenseur
|
|
Tenseur3BH* Hyper3DN::Invariants (TenseurBB& epsBB_t,TenseurBB& ,
|
|
TenseurHH & gijHH_t, double& jacobien_0,double& jacobien_t,
|
|
double & Ieps, double & V,double& bIIb,Tenseur3BH & epsBH_t)
|
|
{
|
|
const Tenseur3BB & epsBB = *((Tenseur3BB*) &epsBB_t); // passage en dim 3
|
|
Tenseur3BH & epsBH = *((Tenseur3BH*) &epsBH_t); // passage en dim 3
|
|
const Tenseur3HH & gijHH = *((Tenseur3HH*) &gijHH_t); // passage en dim 3
|
|
|
|
epsBH = epsBB * gijHH; // deformation en mixte
|
|
Ieps = epsBH.Trace(); // trace de la déformation
|
|
Tenseur3BH eps_barreBH = epsBH - (Ieps/3.) * IdBH3;
|
|
double IIb = eps_barreBH.II()/2.;
|
|
// double IIIb = eps_barreBH.III()/3.;
|
|
bIIb = IIb - Ieps*Ieps/6.;
|
|
V = (jacobien_t/jacobien_0);
|
|
return & IdBH3;
|
|
};
|
|
|
|
// calcul des trois invariants et de leurs variations, de epsBH,
|
|
// et de sa variation, puis retour de IdGBH qui pointe sur le bon tenseur
|
|
Tenseur3BH* Hyper3DN::Invariants_et_var (TenseurBB& epsBB_tdt,
|
|
TenseurBB& ,Tableau <TenseurBB *>& d_gijBB_tdt,
|
|
TenseurHH & gijHH_tdt,Tableau <TenseurHH *>& d_gijHH_tdt,
|
|
double& jacobien_0,double& jacobien_tdt,Vecteur& d_jacobien_tdt,
|
|
double & Ieps,Tableau<double> & dIeps,double & V,Tableau<double> & dV,
|
|
double& bIIb,Tableau<double> & dbIIb,
|
|
Tenseur3BH & epsBH_tdt,Tableau<Tenseur3BH> & depsBH_tdt)
|
|
{
|
|
const Tenseur3BB & epsBB = *((Tenseur3BB*) &epsBB_tdt); // passage en dim 3
|
|
Tenseur3BH & epsBH = *((Tenseur3BH*) &epsBH_tdt); // passage en dim 3
|
|
const Tenseur3HH & gijHH = *((Tenseur3HH*) &gijHH_tdt); // passage en dim 3
|
|
|
|
epsBH = epsBB * gijHH; // deformation en mixte
|
|
Ieps = epsBH.Trace(); // trace de la déformation
|
|
Tenseur3BH eps_barreBH = epsBH - (Ieps/3.) * IdBH3;
|
|
double IIb = eps_barreBH.II()/2.;
|
|
// double IIIb = eps_barreBH.III()/3.;
|
|
bIIb = IIb - Ieps*Ieps/6.;
|
|
V = (jacobien_tdt/jacobien_0);
|
|
|
|
// cas les variations par rapport aux degrés de liberté
|
|
int nbddl = d_gijBB_tdt.Taille();
|
|
Tenseur3BH deps_barreBH; // grandeurs intermédiaires
|
|
|
|
|
|
for (int i = 1; i<= nbddl; i++)
|
|
{const Tenseur3HH & dgijHH = *((Tenseur3HH*)(d_gijHH_tdt(i))) ; // pour simplifier l'ecriture
|
|
const Tenseur3BB & dgijBB = *((Tenseur3BB*)(d_gijBB_tdt(i))); // passage en dim 3
|
|
depsBH_tdt(i) = 0.5 * dgijBB * gijHH_tdt + epsBB_tdt * dgijHH;
|
|
double dIeps_i = (depsBH_tdt(i)).Trace();
|
|
dIeps(i) = dIeps_i ;
|
|
deps_barreBH = depsBH_tdt(i) - (dIeps(i)/3.) * IdBH3; // en mixte les coordonnées de IdBH3 sont fixes
|
|
dbIIb(i) = 2. * (eps_barreBH * deps_barreBH).Trace() - dIeps_i * Ieps /3. ;
|
|
dV(i) = (d_jacobien_tdt(i)/jacobien_0) ;
|
|
};
|
|
|
|
return & IdBH3;
|
|
};
|
|
|