228 lines
8.1 KiB
C++
228 lines
8.1 KiB
C++
|
// FICHIER : Enum_matrice.cp
|
||
|
|
|
||
|
|
|
||
|
|
// 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 "Enum_matrice.h"
|
||
|
|
|
||
|
|
|
||
|
|
# include <iostream>
|
||
|
|
using namespace std; //introduces namespace std
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include "Sortie.h"
|
||
|
|
//#ifdef SYSTEM_MAC_OS_X
|
||
|
|
// #include <stringfwd.h> // a priori ce n'est pas portable
|
||
|
|
//#el
|
||
|
|
#if defined SYSTEM_MAC_OS_CARBON
|
||
|
|
#include <stringfwd.h> // a priori ce n'est pas portable
|
||
|
|
#else
|
||
|
|
#include <string.h> // pour le flot en memoire centrale
|
||
|
|
#endif
|
||
|
|
#include <string>
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
string Nom_matrice(Enum_matrice id_matrice)
|
||
|
|
// Retourne le nom du type de matrice correspondant a l'identificateur
|
||
|
|
// de type enumere id_matrice
|
||
|
|
{
|
||
|
|
string result;
|
||
|
|
switch (id_matrice)
|
||
|
|
{case RIEN_MATRICE : result="RIEN_MATRICE"; break;
|
||
|
|
case CARREE : result="CARREE"; break;
|
||
|
|
case CARREE_SYMETRIQUE : result="CARREE_SYMETRIQUE"; break;
|
||
|
|
case RECTANGLE : result="RECTANGLE"; break;
|
||
|
|
case BANDE_SYMETRIQUE : result="BANDE_SYMETRIQUE"; break;
|
||
|
|
case BANDE_NON_SYMETRIQUE: result="BANDE_NON_SYMETRIQUE"; break;
|
||
|
|
case CARREE_LAPACK : result="CARREE_LAPACK"; break;
|
||
|
|
case CARREE_SYMETRIQUE_LAPACK : result="CARREE_SYMETRIQUE_LAPACK"; break;
|
||
|
|
case RECTANGLE_LAPACK : result="RECTANGLE_LAPACK"; break;
|
||
|
|
case BANDE_SYMETRIQUE_LAPACK : result="BANDE_SYMETRIQUE_LAPACK"; break;
|
||
|
|
case BANDE_NON_SYMETRIQUE_LAPACK : result="BANDE_NON_SYMETRIQUE_LAPACK"; break;
|
||
|
|
case TRIDIAGONALE_GENE_LAPACK : result="TRIDIAGONALE_GENE_LAPACK"; break;
|
||
|
|
case TRIDIAGONALE_DEF_POSITIVE_LAPACK : result="TRIDIAGONALE_DEF_POSITIVE_LAPACK"; break;
|
||
|
|
case CREUSE_NON_COMPRESSEE : result="CREUSE_NON_COMPRESSEE"; break;
|
||
|
|
case CREUSE_COMPRESSEE_COLONNE : result="CREUSE_COMPRESSEE_COLONNE"; break;
|
||
|
|
case CREUSE_COMPRESSEE_LIGNE : result="CREUSE_COMPRESSEE_LIGNE"; break;
|
||
|
|
case DIAGONALE : result="DIAGONALE"; break;
|
||
|
|
default :
|
||
|
|
cout << "\nErreur : valeur incorrecte du type Enum_matrice !\n";
|
||
|
|
cout << "Nom_matrice(Enum_matrice ) \n";
|
||
|
|
Sortie(1);
|
||
|
|
};
|
||
|
|
return result;
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
Enum_matrice Id_nom_matrice(const string& nom_matrice)
|
||
|
|
// Retourne la variable de type enumere associe au nom
|
||
|
|
// de matrice nom_matrice
|
||
|
|
{
|
||
|
|
|
||
|
|
Enum_matrice result;
|
||
|
|
if ( nom_matrice == "RIEN_MATRICE" )
|
||
|
|
result=RIEN_MATRICE;
|
||
|
|
else if ( nom_matrice == "CARREE" )
|
||
|
|
result=CARREE;
|
||
|
|
else if ( nom_matrice == "CARREE_SYMETRIQUE" )
|
||
|
|
result=CARREE_SYMETRIQUE;
|
||
|
|
else if ( nom_matrice == "RECTANGLE" )
|
||
|
|
result=RECTANGLE;
|
||
|
|
else if ( nom_matrice == "BANDE_SYMETRIQUE" )
|
||
|
|
result=BANDE_SYMETRIQUE;
|
||
|
|
else if ( nom_matrice == "BANDE_NON_SYMETRIQUE" )
|
||
|
|
result=BANDE_NON_SYMETRIQUE;
|
||
|
|
else if ( nom_matrice == "CARREE_LAPACK" )
|
||
|
|
result=CARREE_LAPACK;
|
||
|
|
else if ( nom_matrice == "CARREE_SYMETRIQUE_LAPACK" )
|
||
|
|
result=CARREE_SYMETRIQUE_LAPACK;
|
||
|
|
else if ( nom_matrice == "RECTANGLE_LAPACK" )
|
||
|
|
result=RECTANGLE_LAPACK;
|
||
|
|
else if ( nom_matrice == "BANDE_SYMETRIQUE_LAPACK" )
|
||
|
|
result=BANDE_SYMETRIQUE_LAPACK;
|
||
|
|
else if ( nom_matrice == "BANDE_NON_SYMETRIQUE_LAPACK" )
|
||
|
|
result=BANDE_NON_SYMETRIQUE_LAPACK;
|
||
|
|
else if ( nom_matrice == "TRIDIAGONALE_GENE_LAPACK" )
|
||
|
|
result=TRIDIAGONALE_GENE_LAPACK;
|
||
|
|
else if ( nom_matrice == "TRIDIAGONALE_DEF_POSITIVE_LAPACK" )
|
||
|
|
result=TRIDIAGONALE_DEF_POSITIVE_LAPACK;
|
||
|
|
else if ( nom_matrice == "CREUSE_NON_COMPRESSEE" )
|
||
|
|
result=CREUSE_NON_COMPRESSEE;
|
||
|
|
else if ( nom_matrice == "CREUSE_COMPRESSEE_COLONNE" )
|
||
|
|
result=CREUSE_COMPRESSEE_COLONNE;
|
||
|
|
else if ( nom_matrice == "CREUSE_COMPRESSEE_LIGNE" )
|
||
|
|
result=CREUSE_COMPRESSEE_LIGNE;
|
||
|
|
else if ( nom_matrice == "DIAGONALE" )
|
||
|
|
result=DIAGONALE;
|
||
|
|
else
|
||
|
|
{
|
||
|
|
cout << "\nErreur : nom de matrice inconnu !\n";
|
||
|
|
cout << "Id_nom_interpol(string ) \n";
|
||
|
|
Sortie(1);
|
||
|
|
};
|
||
|
|
return result;
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
// indique si le type existe ou pas, -> 1 ou 0
|
||
|
|
int Existe_Enum_matrice(string& nom_matrice)
|
||
|
|
|
||
|
|
{
|
||
|
|
|
||
|
|
int result;
|
||
|
|
if ( nom_matrice == "RIEN_MATRICE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "CARREE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "CARREE_SYMETRIQUE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "RECTANGLE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "BANDE_SYMETRIQUE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "BANDE_NON_SYMETRIQUE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "CARREE_LAPACK" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "CARREE_SYMETRIQUE_LAPACK" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "RECTANGLE_LAPACK" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "BANDE_SYMETRIQUE_LAPACK" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "BANDE_NON_SYMETRIQUE_LAPACK" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "TRIDIAGONALE_GENE_LAPACK" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "TRIDIAGONALE_DEF_POSITIVE_LAPACK" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "CREUSE_NON_COMPRESSEE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "CREUSE_COMPRESSEE_COLONNE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "CREUSE_COMPRESSEE_LIGNE" )
|
||
|
|
result=1;
|
||
|
|
else if ( nom_matrice == "DIAGONALE" )
|
||
|
|
result=1;
|
||
|
|
else
|
||
|
|
{result = 0;};
|
||
|
|
return result;
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
// indique si la matrice est de part son type, symétrique ou pas
|
||
|
|
bool Symetrique_Enum_matrice(Enum_matrice id_matrice)
|
||
|
|
{
|
||
|
|
bool result;
|
||
|
|
switch (id_matrice)
|
||
|
|
{case RIEN_MATRICE : result=false; break;
|
||
|
|
case CARREE : result=false; break;
|
||
|
|
case CARREE_SYMETRIQUE : result=true; break;
|
||
|
|
case RECTANGLE : result=false; break;
|
||
|
|
case BANDE_SYMETRIQUE : result=true; break;
|
||
|
|
case BANDE_NON_SYMETRIQUE: result=false; break;
|
||
|
|
case CARREE_LAPACK : result=false; break;
|
||
|
|
case CARREE_SYMETRIQUE_LAPACK : result=true; break;
|
||
|
|
case RECTANGLE_LAPACK : result=false; break;
|
||
|
|
case BANDE_SYMETRIQUE_LAPACK : result=true; break;
|
||
|
|
case BANDE_NON_SYMETRIQUE_LAPACK : result=false; break;
|
||
|
|
case TRIDIAGONALE_GENE_LAPACK : result=false; break;
|
||
|
|
case TRIDIAGONALE_DEF_POSITIVE_LAPACK : result=false; break;
|
||
|
|
case CREUSE_NON_COMPRESSEE : result=false; break;
|
||
|
|
case CREUSE_COMPRESSEE_COLONNE : result=false; break;
|
||
|
|
case CREUSE_COMPRESSEE_LIGNE : result=false; break;
|
||
|
|
case DIAGONALE : result=true; break;
|
||
|
|
default :
|
||
|
|
cout << "\nErreur : valeur incorrecte (id_matrice="<< id_matrice <<") du type Enum_matrice !\n";
|
||
|
|
cout << "\n Symetrique(Enum_matrice id_matrice) \n";
|
||
|
|
Sortie(1);
|
||
|
|
};
|
||
|
|
return result;
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
// surcharge de la lecture
|
||
|
|
istream & operator >> (istream & entree, Enum_matrice & result)
|
||
|
|
{ char nom_matrice[80];
|
||
|
|
entree >> nom_matrice;
|
||
|
|
result = Id_nom_matrice ( nom_matrice);
|
||
|
|
return entree;
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
// surcharge de l'operator d'ecriture
|
||
|
|
ostream & operator << (ostream & sort, const Enum_matrice& a)
|
||
|
|
{ // on ecrit la forme caractère
|
||
|
|
sort << Nom_matrice(a) << " ";
|
||
|
|
return sort;
|
||
|
|
};
|
||
|
|
|