Herezh_dev/herezh_pp/tenseurs_mai99/Tenseur/Tenseur1.h

668 lines
26 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/>.
/************************************************************************
* DATE: 23/01/97 *
* $ *
* AUTEUR: G RIO (mailto:gerardrio56@free.fr) *
* $ *
* PROJET: Herezh++ *
* $ *
************************************************************************
* BUT: Definition des classes derivees de dimension 1. *
* $ *
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
************************************************************************/
#ifndef Tenseur1_H
#define Tenseur1_H
//#include "Debug.h"
#include <iostream>
#include "Tenseur.h"
#include "PtTabRel.h"
#include "MathUtil.h"
#include "Coordonnee1.h"
/** @defgroup Les_classes_tenseurs_dim1_ordre2
*
* BUT: Definir les tenseurs d'ordre 2 de differentes composantes,
* spécifiquement à la dimension 1.
* L'objectif principal est de surcharger les differentes operations
* classiques.
*
* concernant le produit contracte un fois, en particulier pour les tenseurs mixtes
* il y a contraction du 2ieme indice du premier tenseur avec le premier indice du second
* tenseur : Aij * Bjk = C ik <-> A * B = C
* le tenseur inverse par rapport au produit contracte est defini de la maniere suivante
* Inverse(A) * A = Id, ainsi l'inverse d'un tenseur BH est un BH idem pour les HB
* mais l'inverse d'un BB est un HH, et l'inverse d'un HH est un BB
*
* NB: lorsque les tenseurs mixtes sont issues de tenseurs HH ou BB symetrique, l'ordre
* de contraction des indices n'a pas d'importance sur le resultat !!
*
* le produit contracte de deux tenseurs symetriques quelconques ne donne pas un tenseur
* symetrique !!, donc par exemple la contraction d'un tenseur HB avec HH n'est pas forcement
* symetrique. Le resultat est symetrique SEULEMENT lorsque ces operations sont effectues
* avec le tenseur metrique.
*
* \author Gérard Rio
* \version 1.0
* \date 23/01/97
* \brief Définition des classes de dimension 1 de type Tenseur d'ordre 2, en coordonnées avec différentes variances.
*
*/
class TenseurHB; // pour l'utilisation dans les produits contractes
/// @addtogroup Les_classes_tenseurs_dim1_ordre2
/// @{
//------------------------------------------------------------------
/// Definition des tenseur derivees de dimension1.
/// cas des composantes deux fois contravariantes
//------------------------------------------------------------------
/// \author Gérard Rio
/// \version 1.0
/// \date 23/01/97
class Tenseur1HH : public TenseurHH
{
// surcharge de l'operator de lecture
friend istream & operator >> (istream &, Tenseur1HH &);
// surcharge de l'operator d'ecriture
friend ostream & operator << (ostream &, const Tenseur1HH &);
public :
// Constructeur
Tenseur1HH() ; // par défaut
// initialisation de la compoante (1,1)
Tenseur1HH(double val) ;
// DESTRUCTEUR :
~Tenseur1HH() ;
// constructeur a partir d'une instance non differenciee
Tenseur1HH (const TenseurHH &);
// constructeur de copie
Tenseur1HH ( const Tenseur1HH & B);
// METHODES PUBLIQUES :
// initialise toutes les composantes à val
void Inita(double val);
// operations
TenseurHH & operator + ( const TenseurHH &) const ;
void operator += ( const TenseurHH &);
TenseurHH & operator - () const ;
TenseurHH & operator - ( const TenseurHH &) const ;
void operator -= ( const TenseurHH &);
TenseurHH & operator = ( const TenseurHH &);
TenseurHH & operator = ( const Tenseur1HH & B)
{ return this->operator=(*((const TenseurHH*) & B));};
TenseurHH & operator * ( const double &) const ;
void operator *= ( const double &);
TenseurHH & operator / ( const double &) const ;
void operator /= ( const double &);
// produit contracte avec un vecteur
CoordonneeH operator * ( const CoordonneeB & ) const ;
// produit contracte contracté une fois A(i,j)*B(j,k)=A.B
// -> donc c'est l'indice du milieu qui est contracté
TenseurHH & operator * ( const TenseurBH &) const ;
TenseurHB & operator * ( const TenseurBB &) const ;
// produit contracte contracté deux fois A(i,j)*B(j,i)=A..B
// -> on contracte d'abord l'indice du milieu puis l'indice externe
double operator && ( const TenseurBB &) const ;
// test
int operator == ( const TenseurHH &) const ;
int operator != ( const TenseurHH &) const ;
double Det() const ; // determinant de la matrice des coordonnees
// ATTENTION creation d'un tenseur transpose qui est supprime par Libere
TenseurHH & Transpose() const ;
// calcul du maximum en valeur absolu des composantes du tenseur
double MaxiComposante() const {return Dabs(*t);};
// ---- manipulation d'indice ---- -> création de nouveaux tenseurs
virtual TenseurBB& Baisse2Indices() const;
virtual TenseurBH& BaissePremierIndice() const;
virtual TenseurHB& BaisseDernierIndice() const;
// affectation de B dans this, plusZero = false: les données manquantes sont inchangées,
// plusZero = true: les données manquantes sont mises à 0
// si au contraire la dimension de B est plus grande que *this, il y a uniquement affectation
// des données possibles
void Affectation_trans_dimension(const TenseurHH & B,bool plusZero);
// calcul du tenseur inverse par rapport au produit contracte
TenseurBB & Inverse() const ;
// retourne la composante i,j en lecture/écriture
#ifdef MISE_AU_POINT
inline double& Coor(int i,int j)
#else
inline double& Coor(int ,int )
#endif
{
#ifdef MISE_AU_POINT
if ( (i!=1) || (j!=1) )
{ cout << "\nErreur : composante " << i <<"," << j <<" inexistante !\n";
cout << "Tenseur1HH::OPERATOR() (int,int ) \n";
Sortie(1);
};
#endif
return *t;
};
// retourne la composante i,j en lecture seule
#ifdef MISE_AU_POINT
inline double operator () (int i,int j) const
#else
inline double operator () (int ,int ) const
#endif
{
#ifdef MISE_AU_POINT
if ( (i!=1) || (j!=1) )
{ cout << "\nErreur : composante " << i <<"," << j <<" inexistante !\n";
cout << "Tenseur1HH::OPERATOR() (int,int ) \n";
Sortie(1);
};
#endif
return *t;
};
//fonctions static définissant le produit tensoriel de deux vecteurs
static TenseurHH & Prod_tensoriel(const CoordonneeH & aH, const CoordonneeH & bH);
// lecture et écriture de données
istream & Lecture(istream & entree);
ostream & Ecriture(ostream & sort) const ;
protected :
// allocator dans la liste de data
listdouble1Iter ipointe;
};
/// @} // end of group
class TenseurBH; // pour l'utilisation dans TenseurHH
/// @addtogroup Les_classes_tenseurs_dim1_ordre2
/// @{
//------------------------------------------------------------------
/// Definition des tenseur derivees de dimension1.
/// cas des composantes deux fois covariantes
//------------------------------------------------------------------
/// \author Gérard Rio
/// \version 1.0
/// \date 23/01/97
class Tenseur1BB : public TenseurBB
{
// surcharge de l'operator de lecture
friend istream & operator >> (istream &, Tenseur1BB &);
// surcharge de l'operator d'ecriture
friend ostream & operator << (ostream &, const Tenseur1BB &) ;
public :
// constructeur
Tenseur1BB() ; // par défaut
// initialisation de la compoante (1,1)
Tenseur1BB(double val) ;
// DESTRUCTEUR :
~Tenseur1BB() ;
// constructeur a partir d'une instance non differenciee
Tenseur1BB ( const TenseurBB &);
// constructeur de copie
Tenseur1BB ( const Tenseur1BB & B);
// METHODES PUBLIQUES :
// initialise toutes les composantes à val
void Inita(double val);
// operations
TenseurBB & operator + ( const TenseurBB &) const ;
void operator += ( const TenseurBB &);
TenseurBB & operator - () const ;
TenseurBB & operator - ( const TenseurBB &) const ;
void operator -= ( const TenseurBB &);
TenseurBB & operator = ( const TenseurBB &) ;
TenseurBB & operator = ( const Tenseur1BB & B)
{ return this->operator=(*((const TenseurBB*) & B)) ;};
TenseurBB & operator * ( const double &) const ;
void operator *= ( const double &);
TenseurBB & operator / ( const double &) const ;
void operator /= ( const double &);
// produit contracte avec un vecteur
CoordonneeB operator * ( const CoordonneeH & ) const ;
// produit contracte contracté une fois A(i,j)*B(j,k)=A.B
// -> donc c'est l'indice du milieu qui est contracté
TenseurBB & operator * ( const TenseurHB &) const ;
TenseurBH & operator * ( const TenseurHH &) const ;
// produit contracte contracté deux fois A(i,j)*B(j,i)=A..B
// -> on contracte d'abord l'indice du milieu puis l'indice externe
double operator && ( const TenseurHH &) const ;
// test
int operator == ( const TenseurBB &) const ;
int operator != ( const TenseurBB &) const ;
double Det() const ; // determinant de la matrice des coordonnees
// ATTENTION creation d'un tenseur transpose qui est supprime par Libere
TenseurBB & Transpose() const ;
// ---- manipulation d'indice ---- -> création de nouveaux tenseurs
virtual TenseurHH& Monte2Indices() const ;
virtual TenseurHB& MontePremierIndice() const ;
virtual TenseurBH& MonteDernierIndice() const ;
// calcul du maximum en valeur absolu des composantes du tenseur
double MaxiComposante() const {return Dabs(*t);};
// affectation de B dans this, plusZero = false: les données manquantes sont inchangées,
// plusZero = true: les données manquantes sont mises à 0
// si au contraire la dimension de B est plus grande que *this, il y a uniquement affectation
// des données possibles
void Affectation_trans_dimension(const TenseurBB & B,bool plusZero);
// calcul du tenseur inverse par rapport au produit contracte
TenseurHH & Inverse() const ;
// retourne la composante i,j en lecture/écriture
#ifdef MISE_AU_POINT
inline double& Coor(int i,int j)
#else
inline double& Coor(int ,int )
#endif
{
#ifdef MISE_AU_POINT
if ( (i!=1) || (j!=1) )
{ cout << "\nErreur : composante " << i <<"," << j <<" inexistante !\n";
cout << " Tenseur1BB::OPERATOR() (int,int ) \n";
Sortie(1);
};
#endif
return *t;
};
// retourne la composante i,j en écriture seule
#ifdef MISE_AU_POINT
inline double operator () (int i,int j) const
#else
inline double operator () (int ,int ) const
#endif
{
#ifdef MISE_AU_POINT
if ( (i!=1) || (j!=1) )
{ cout << "\nErreur : composante " << i <<"," << j <<" inexistante !\n";
cout << " Tenseur1BB::OPERATOR() (int,int ) \n";
Sortie(1);
};
#endif
return *t;
};
//fonctions static définissant le produit tensoriel de deux vecteurs
static TenseurBB & Prod_tensoriel(const CoordonneeB & aB, const CoordonneeB & bB);
// lecture et écriture de données
istream & Lecture(istream & entree);
ostream & Ecriture(ostream & sort) const ;
protected :
// allocator dans la liste de data
listdouble1Iter ipointe;
};
/// @} // end of group
class Tenseur3BH; // pour Affectation_3D_a_1D
/// @addtogroup Les_classes_tenseurs_dim1_ordre2
/// @{
//------------------------------------------------------------------
/// Definition des tenseur derivees de dimension1.
/// cas des composantes mixtes BH
//------------------------------------------------------------------
/// \author Gérard Rio
/// \version 1.0
/// \date 23/01/97
class Tenseur1BH : public TenseurBH
{
// surcharge de l'operator de lecture
friend istream & operator >> (istream &, Tenseur1BH &);
// surcharge de l'operator d'ecriture
friend ostream & operator << (ostream &, const Tenseur1BH &) ;
friend class Tenseur3BH; // pour le passage 3D 2D: méthode Affectation_3D_a_2D(..
public :
// constructeur
Tenseur1BH() ; // par défaut
// initialisation de la compoante (1,1)
Tenseur1BH(double val) ;
// DESTRUCTEUR :
~Tenseur1BH();
// constructeur a partir d'une instance non differenciee
Tenseur1BH ( const TenseurBH &);
// constructeur de copie
Tenseur1BH ( const Tenseur1BH & B);
// METHODES PUBLIQUES :
// initialise toutes les composantes à val
void Inita(double val);
// operations
TenseurBH & operator + ( const TenseurBH &) const ;
void operator += ( const TenseurBH &);
TenseurBH & operator - () const ;
TenseurBH & operator - ( const TenseurBH &) const ;
void operator -= ( const TenseurBH &);
TenseurBH & operator = ( const TenseurBH &);
TenseurBH & operator = ( const Tenseur1BH & B)
{ return this->operator=(*((const TenseurBH*) & B)) ;};
TenseurBH & operator * ( const double &) const ;
void operator *= ( const double &);
TenseurBH & operator / ( const double &) const ;
void operator /= ( const double &);
// produit contracte avec un vecteur
CoordonneeB operator * ( const CoordonneeB & ) const ;
// produit contracte contracté une fois A(i,j)*B(j,k)=A.B
// -> donc c'est l'indice du milieu qui est contracté
TenseurBB & operator * ( const TenseurBB &) const ; // produit une fois contracte
TenseurBH & operator * ( const TenseurBH &) const ; // produit une fois contracte
// produit contracte contracté deux fois A(i,j)*B(j,i)=A..B
// -> on contracte d'abord l'indice du milieu puis l'indice externe
double operator && ( const TenseurBH &) const ; // produit deux fois contracte
double Trace() const ; // trace du tenseur ou premier invariant
double II() const ; // second invariant = trace (A*A)
double III() const ; // troisieme invariant = trace ((A*A)*A)
double Det() const ; // determinant de la matrice des coordonnees
// valeurs propre dans le vecteur de retour, classée par ordres "décroissants"
// cas indique le cas de valeur propre:
// quelque soit la dimension: cas = -1, si l'extraction des valeurs propres n'a pas pu se faire
// dans ce cas les valeurs propres de retour sont nulles par défaut
// dim = 1, cas=1 pour une valeur propre ;
virtual Coordonnee ValPropre(int& cas) const ;
// idem met en retour la matrice mat contiend par colonne les vecteurs propre
// elle doit avoir la dimension du tenseur
// les vecteurs propre sont exprime dans le repere naturel
virtual Coordonnee ValPropre(int& cas, Mat_pleine& mat) const ;
// ici il s'agit uniquement de calculer les vecteurs propres, les valeurs propres
// étant déjà connues
// en retour VP les vecteurs propre : doivent avoir la dimension du tenseur
// les vecteurs propre sont exprime dans le repere naturel (pour les tenseurs dim 3
// pour dim=2:le premier vecteur propre est exprime dans le repere naturel
// le second vecteur propre est exprimé dans le repère dual
// pour dim=1 le vecteur est dans la base naturelle (mais ça importe pas)
// en sortie cas = -1 s'il y a eu un problème, dans ce cas, V_P est quelconque
// sinon si tout est ok, cas est identique en sortie avec l'entrée
virtual void VecteursPropres(const Coordonnee& Val_P,int& cas, Tableau <Coordonnee>& V_P) const;
// test
int operator == ( const TenseurBH &) const ;
int operator != ( const TenseurBH &) const ;
// affectation de B dans this, plusZero = false: les données manquantes sont inchangées,
// plusZero = true: les données manquantes sont mises à 0
// si au contraire la dimension de B est plus grande que *this, il y a uniquement affectation
// des données possibles
void Affectation_trans_dimension(const TenseurBH & B,bool plusZero);
// calcul du tenseur inverse par rapport au produit contracte
TenseurBH & Inverse() const ;
// tenseur transpose
TenseurHB & Transpose() const ;
// symétrie formelle A^i_j = A_j^i : ==> création du tenseur en HB identique
TenseurHB & Identique() const;
// permute Bas Haut, mais reste dans le même tenseur
// ici ne fait rien
void PermuteHautBas() {};
// calcul du maximum en valeur absolu des composantes du tenseur
double MaxiComposante() const {return Dabs(*t);};
// retourne la composante i,j en lecture/écriture
#ifdef MISE_AU_POINT
inline double& Coor(int i,int j)
#else
inline double& Coor(int ,int )
#endif
{
#ifdef MISE_AU_POINT
if ( (i!=1) || (j!=1) )
{ cout << "\nErreur : composante " << i <<"," << j <<" inexistante !\n";
cout << "Tenseur1BH::OPERATOR() (int,int ) \n";
Sortie(1);
};
#endif
return *t;
};
// retourne la composante i,j en lecture seule
#ifdef MISE_AU_POINT
inline double operator () (int i,int j) const
#else
inline double operator () (int ,int ) const
#endif
{
#ifdef MISE_AU_POINT
if ( (i!=1) || (j!=1) )
{ cout << "\nErreur : composante " << i <<"," << j <<" inexistante !\n";
cout << "Tenseur1BH::OPERATOR() (int,int ) \n";
Sortie(1);
};
#endif
return *t;
};
//fonctions static définissant le produit tensoriel de deux vecteurs
static TenseurBH & Prod_tensoriel(const CoordonneeB & aB, const CoordonneeH & bH);
// lecture et écriture de données
istream & Lecture(istream & entree);
ostream & Ecriture(ostream & sort) const ;
protected :
// allocator dans la liste de data
listdouble1Iter ipointe;
};
/// @} // end of group
/// @addtogroup Les_classes_tenseurs_dim1_ordre2
/// @{
//------------------------------------------------------------------
/// Definition des tenseur derivees de dimension1.
/// cas des composantes mixtes HB
//------------------------------------------------------------------
/// \author Gérard Rio
/// \version 1.0
/// \date 23/01/97
class Tenseur1HB : public TenseurHB
{
// surcharge de l'operator de lecture
friend istream & operator >> (istream &, Tenseur1HB &);
// surcharge de l'operator d'ecriture
friend ostream & operator << (ostream &, const Tenseur1HB &);
public :
// Constructeur
Tenseur1HB() ; // par défaut
// initialisation de la compoante (1,1)
Tenseur1HB(double val) ;
// DESTRUCTEUR :
~Tenseur1HB();
// constructeur a partir d'une instance non differenciee
Tenseur1HB ( const TenseurHB &);
// constructeur de copie
Tenseur1HB ( const Tenseur1HB & B);
// METHODES PUBLIQUES :
// initialise toutes les composantes à val
void Inita(double val);
// operations
TenseurHB & operator + ( const TenseurHB &) const ;
void operator += ( const TenseurHB &);
TenseurHB & operator - () const ;
TenseurHB & operator - ( const TenseurHB &) const ;
void operator -= ( const TenseurHB &);
TenseurHB & operator = ( const TenseurHB &) ;
TenseurHB & operator = ( const Tenseur1HB & B)
{ return this->operator=(*((const TenseurHB*) & B));};
TenseurHB & operator * ( const double &) const ;
void operator *= ( const double &);
TenseurHB & operator / ( const double &) const ;
void operator /= ( const double &);
// produit contracte avec un vecteur
CoordonneeH operator * ( const CoordonneeH & ) const ;
// produit contracte contracté une fois A(i,j)*B(j,k)=A.B
// -> donc c'est l'indice du milieu qui est contracté
TenseurHH & operator * ( const TenseurHH &) const ;
TenseurHB & operator * ( const TenseurHB &) const ; // produit une fois contracte
// produit contracte contracté deux fois A(i,j)*B(j,i)=A..B
// -> on contracte d'abord l'indice du milieu puis l'indice externe
double operator && ( const TenseurHB &) const ; // produit deux fois contracte
double Trace() const ; // trace du tenseur ou premier invariant
double II() const ; // second invariant = trace (A*A)
double III() const ; // troisieme invariant = trace ((A*A)*A)
double Det() const ; // determinant de la matrice des coordonnees
// valeurs propre dans le vecteur de retour, classée par ordres "décroissants"
// cas indique le cas de valeur propre:
// quelque soit la dimension: cas = -1, si l'extraction des valeurs propres n'a pas pu se faire
// dans ce cas les valeurs propres de retour sont nulles par défaut
// dim = 1, cas=1 pour une valeur propre ;
virtual Coordonnee ValPropre(int& cas) const ;
// idem met en retour la matrice mat contiend par colonne les vecteurs propre
// elle doit avoir la dimension du tenseur
// les vecteurs propre sont exprime dans le repere naturel
virtual Coordonnee ValPropre(int& cas, Mat_pleine& mat) const ;
// ici il s'agit uniquement de calculer les vecteurs propres, les valeurs propres
// étant déjà connues
// en retour VP les vecteurs propre : doivent avoir la dimension du tenseur
// les vecteurs propre sont exprime dans le repere naturel (pour les tenseurs dim 3
// pour dim=2:le premier vecteur propre est exprime dans le repere naturel
// le second vecteur propre est exprimé dans le repère dual
// pour dim=1 le vecteur est dans la base naturelle (mais ça importe pas)
// en sortie cas = -1 s'il y a eu un problème, dans ce cas, V_P est quelconque
// sinon si tout est ok, cas est identique en sortie avec l'entrée
virtual void VecteursPropres(const Coordonnee& Val_P,int& cas, Tableau <Coordonnee>& V_P) const;
// test
int operator == ( const TenseurHB &) const ;
int operator != ( const TenseurHB &) const ;
// affectation de B dans this, plusZero = false: les données manquantes sont inchangées,
// plusZero = true: les données manquantes sont mises à 0
// si au contraire la dimension de B est plus grande que *this, il y a uniquement affectation
// des données possibles
void Affectation_trans_dimension(const TenseurHB & B,bool plusZero);
// calcul du tenseur inverse par rapport au produit contracte
TenseurHB & Inverse() const ;
// tenseur transpose
TenseurBH & Transpose() const ;
// symétrie formelle A^i_j = A_j^i : ==> création du tenseur en BH identique
TenseurBH & Identique() const;
// permute Bas Haut, mais reste dans le même tenseur
// ici ne fait rien
void PermuteHautBas() {};
// calcul du maximum en valeur absolu des composantes du tenseur
double MaxiComposante() const {return Dabs(*t);};
// retourne la composante i,j en lecture/écriture
#ifdef MISE_AU_POINT
inline double& Coor(int i,int j)
#else
inline double& Coor(int ,int )
#endif
{
#ifdef MISE_AU_POINT
if ( (i!=1) || (j!=1) )
{ cout << "\nErreur : composante " << i <<"," << j <<" inexistante !\n";
cout << "Tenseur1HB::OPERATOR() (int,int ) \n";
Sortie(1);
};
#endif
return *t;
};
// retourne la composante i,j en lecture seule
#ifdef MISE_AU_POINT
inline double operator () (int i,int j) const
#else
inline double operator () (int ,int ) const
#endif
{
#ifdef MISE_AU_POINT
if ( (i!=1) || (j!=1) )
{ cout << "\nErreur : composante " << i <<"," << j <<" inexistante !\n";
cout << "Tenseur1HB::OPERATOR() (int,int ) \n";
Sortie(1);
};
#endif
return *t;
};
//fonctions static définissant le produit tensoriel de deux vecteurs
static TenseurHB & Prod_tensoriel(const CoordonneeH & aH, const CoordonneeB & bB);
// lecture et écriture de données
istream & Lecture(istream & entree);
ostream & Ecriture(ostream & sort) const ;
protected :
// allocator dans la liste de data
listdouble1Iter ipointe;
};
/// @} // end of group
#ifndef MISE_AU_POINT
#include "Tenseur1-1.cc"
#include "Tenseur1-2.cc"
#define Tenseur1_H_deja_inclus
#endif
#endif