Herezh_dev/comportement/thermique/Loi_iso_thermo.cc

// FICHIER : Loi_iso_thermo.cp
// CLASSE : Loi_iso_thermo


// 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 "Debug.h"

# include <iostream>
using namespace std;  //introduces namespace std
#include <math.h>
#include <stdlib.h>
#include "Sortie.h"
#include "TypeConsTens.h"
#include "ConstMath.h"
#include "TypeQuelconqueParticulier.h"
#include "CharUtil.h"


#include "Loi_iso_thermo.h"

//==================== cas de la class de sauvegarde SaveResul ===================

// constructeur  par défaut à ne pas utiliser
Loi_iso_thermo::SaveResul_Loi_iso_thermo::SaveResul_Loi_iso_thermo() :
	stockParaInt(NULL), saveCrista(NULL)
  { }; 

// le constructeur courant
// sCrista s'il est NULL, on en tient pas compte
// s'il est non NULL, on cré l'instances saveCrista par défaut
Loi_iso_thermo::SaveResul_Loi_iso_thermo::SaveResul_Loi_iso_thermo
                        (CompThermoPhysiqueAbstraite::StockParaInt* stock
                         ,CristaliniteAbstraite::SaveCrista* sCrista):
	stockParaInt(NULL),saveCrista(NULL) 
  {if (sCrista != NULL) 
  	saveCrista = sCrista->Nevez_SaveCrista();	
   if (stock != NULL)
   	{ stockParaInt = new CompThermoPhysiqueAbstraite::StockParaInt(*stock);
   	};
  }; 

// constructeur de copie 
Loi_iso_thermo::SaveResul_Loi_iso_thermo::SaveResul_Loi_iso_thermo
                                         (const Loi_iso_thermo::SaveResul_Loi_iso_thermo& sav ):
	stockParaInt(NULL),saveCrista(NULL) 
  {if (sav.saveCrista != NULL) 
  	  saveCrista = sav.saveCrista->Nevez_SaveCrista();  	
   if (sav.stockParaInt != NULL)
   	{ stockParaInt = new CompThermoPhysiqueAbstraite::StockParaInt(*(sav.stockParaInt));
   	};
  }; 

// destructeur
Loi_iso_thermo::SaveResul_Loi_iso_thermo::~SaveResul_Loi_iso_thermo() 
  {if (saveCrista != NULL) delete saveCrista;
   if (stockParaInt != NULL) delete stockParaInt; 
  };
  
// affectation
CompThermoPhysiqueAbstraite::SaveResul &
   Loi_iso_thermo::SaveResul_Loi_iso_thermo::operator = ( const CompThermoPhysiqueAbstraite::SaveResul & a)
  { Loi_iso_thermo::SaveResul_Loi_iso_thermo& sav = *((Loi_iso_thermo::SaveResul_Loi_iso_thermo*) &a);
    if (sav.saveCrista != NULL)
     { if (saveCrista == NULL)
         saveCrista = sav.saveCrista->Nevez_SaveCrista();
       else
         (*saveCrista) = *(sav.saveCrista);
     }
    else
     delete saveCrista;
    if (sav.stockParaInt != NULL)
     { if (stockParaInt == NULL)
         stockParaInt  = new CompThermoPhysiqueAbstraite::StockParaInt(*(sav.stockParaInt));
       else
         (*stockParaInt) = *(sav.stockParaInt);
     }
    else
     delete stockParaInt;
    return *this;
  };


     //============= lecture écriture dans base info ==========
     
// cas donne le niveau de la récupération
// = 1 : on récupère tout
// = 2 : on récupère uniquement les données variables (supposées comme telles)
void Loi_iso_thermo::SaveResul_Loi_iso_thermo::Lecture_base_info 
                                                 (ifstream& ent,const int cas)
  {  // ici toutes les données sont toujours a priori variables
     // ou en tout cas pour les méthodes appelées, elles sont gérées par le paramètre: cas
     string toto; ent >> toto;
     #ifdef MISE_AU_POINT	 	 
      if (toto != "S_R_LoiIso_thermo")
          { cout << "\n erreur en lecture du conteneur pour la loi thermo physique de Loi_iso_thermo"
                 << " \n Loi_iso_thermo::SaveResul_Loi_iso_thermo::Lecture_base_info(..";
            Sortie(1);     
          }
     #endif
     bool test=false;ent >> test;
     if (test)
       {// on regarde si les pointeurs existent sinon erreur
        if (stockParaInt == NULL) 
          { cout << "\n erreur en lecture du conteneur pour la loi thermo physique de Loi_iso_thermo"
                 << " on a detecte qu'il faut lire un conteneur de StockParaInt, mais "
                 << " le conteneur resultat n'a pas ete aloue !! "
                 << " \n Loi_iso_thermo::SaveResul_Loi_iso_thermo::Lecture_base_info(..";
            Sortie(1);     
          }
        else // sinon on peut lire
          { ent  >> stockParaInt->pression  >> stockParaInt->temperature ;};
     	};
     test=false; ent >> test;
// --- pour le débug
//     test=true; ent >> toto; cout << "\n toto= " << toto << endl;
//-- fin débug     
     if (test)
       {// on regarde si les pointeurs existent sinon erreur
        if (saveCrista == NULL) 
          { cout << "\n erreur en lecture du conteneur pour la loi thermo physique de Loi_iso_thermo"
                 << " on a detecte qu'il faut lire un conteneur de cristalinite, mais "
                 << " le conteneur resultat n'a pas ete aloue !! "
                 << " \n Loi_iso_thermo::SaveResul_Loi_iso_thermo::Lecture_base_info(..";
            Sortie(1);     
          }
        else // sinon on peut lire
         { saveCrista->Lecture_base_info (ent,cas);}; 
     	};
    }; 

// cas donne le niveau de sauvegarde
// = 1 : on sauvegarde tout
// = 2 : on sauvegarde uniquement les données variables (supposées comme telles)
void Loi_iso_thermo::SaveResul_Loi_iso_thermo::Ecriture_base_info
                                                 (ofstream& sort,const int cas)
   { // ici toutes les données sont toujours a priori variables
     // ou en tout cas pour les méthodes appelées, elles sont gérées par le paramètre: cas
     sort << "\n S_R_LoiIso_thermo  ";
     if (stockParaInt == NULL)
     	{sort << " 0  ";} // on sort un indicateur disant qu'il n'y a pas de pointeur
     else
     	{sort << " 1  "  << stockParaInt->pression << " " << stockParaInt->temperature<< " ";
     	};
     if (saveCrista == NULL)
     	{sort << " 0  ";} // on sort un indicateur disant qu'il n'y a pas de pointeur
     else
     	{sort << " 1  "; saveCrista->Ecriture_base_info(sort,cas);};	
	 }; 
	        
// affichage des infos
void Loi_iso_thermo::SaveResul_Loi_iso_thermo::Affiche()	
   { cout << "\n S_R_LoiIso_thermo ";
     if (stockParaInt != NULL)
     	{ cout << " pression= " << stockParaInt->pression
     	       << " temperature= " << stockParaInt->temperature << " ";
     	};
     if (saveCrista != NULL)
     	{ cout << " cristalinite a tdt: "; saveCrista->Affiche();};	
	 }; 
// idem sur un ofstream
void Loi_iso_thermo::SaveResul_Loi_iso_thermo::Affiche(ofstream& sort)			        
   { sort << "\n S_R_LoiIso_thermo ";
     if (stockParaInt != NULL)
     	{ sort << " pression= " << stockParaInt->pression
     	       << " temperature= " << stockParaInt->temperature << " ";
     	};
     if (saveCrista != NULL)
     	{ sort << " cristalinite a tdt: "; saveCrista->Affiche(sort);};	
	 }; 	        

// mise à jour des informations transitoires en définitif s'il y a convergence 
// par exemple (pour la plasticité par exemple)
void Loi_iso_thermo::SaveResul_Loi_iso_thermo::TdtversT() 
 { if (saveCrista != NULL)
 	 saveCrista->TdtversT();
 };

void Loi_iso_thermo::SaveResul_Loi_iso_thermo::TversTdt() 
 { if (saveCrista != NULL)
 	  saveCrista->TversTdt();
 };

      
// def d'une instance de données spécifiques, et initialisation
Loi_iso_thermo::SaveResul * Loi_iso_thermo::New_et_Initialise() 
 { Loi_iso_thermo::SaveResul * cont=NULL; // conteneur de retour
   if (sortie_post || (crista != NULL)) 
     // cas où il faut un conteneur spécifique
     {if (sortie_post && (crista == NULL))
        // cas sans cristalinité
        { cont = new Loi_iso_thermo::SaveResul_Loi_iso_thermo(); }
      else // sinon c'est soit  (sortie_post && (crista != NULL))
           // ou (!sortie_post && (crista != NULL)) 
        { CristaliniteAbstraite::SaveCrista* interr =  crista->New_et_Initialise();
          double  pres=0; double  temper=0.;
          CompThermoPhysiqueAbstraite::StockParaInt* stock =
          new CompThermoPhysiqueAbstraite::StockParaInt();
          cont = new Loi_iso_thermo::SaveResul_Loi_iso_thermo(stock , interr);
          delete interr;
          delete stock;
         };
     }
   else // sinon on ne garde que le conteneur basique hérité
     { cont = new SaveResul_Loi_iso_thermo(NULL,NULL);
     };
   return cont;
 };

//==================== fin du cas de la class de sauvegarde SaveResul ============

Loi_iso_thermo::Loi_iso_thermo () :  // Constructeur par defaut
  CompThermoPhysiqueAbstraite(LOI_ISO_THERMO,CAT_THERMO_PHYSIQUE,4),alphaT(0.),alphaT_temperature(NULL)
  ,compressibilite(ConstMath::trespetit),compressibilite_temperature(NULL)
  ,lambda(0.),lambda_temperature(NULL),cp(0.),cp_temperature(NULL)
  ,sortie_post(false),type_de_calcul(0),crista(NULL)
   { };
	

// Constructeur de copie
Loi_iso_thermo::Loi_iso_thermo (const Loi_iso_thermo& loi) :
	CompThermoPhysiqueAbstraite(loi),alphaT(loi.alphaT),alphaT_temperature(loi.alphaT_temperature)
  ,compressibilite(loi.compressibilite),compressibilite_temperature(loi.compressibilite_temperature)
  ,lambda(loi.lambda),lambda_temperature(loi.lambda_temperature)
  ,cp(loi.cp),cp_temperature(loi.cp_temperature)
  ,sortie_post(loi.sortie_post),type_de_calcul(loi.type_de_calcul),crista(loi.crista)
	 {// on regarde s'il s'agit de courbes locales ou de courbes globales
	  if (alphaT_temperature != NULL)
	   if (alphaT_temperature->NomCourbe() == "_")
        {// comme il s'agit d'une courbe locale on la redéfinie (sinon pb lors du destructeur de loi)
         string non_courbe("_");   
         alphaT_temperature = Courbe1D::New_Courbe1D(*loi.alphaT_temperature);
        };
	  if (lambda_temperature != NULL)
	   if (lambda_temperature->NomCourbe() == "_")
        {// comme il s'agit d'une courbe locale on la redéfinie (sinon pb lors du destructeur de loi)
         string non_courbe("_");   
         lambda_temperature = Courbe1D::New_Courbe1D(*loi.lambda_temperature);
        };
	  if (cp_temperature != NULL)
	   if (cp_temperature->NomCourbe() == "_")
        {// comme il s'agit d'une courbe locale on la redéfinie (sinon pb lors du destructeur de loi)
         string non_courbe("_");   
         cp_temperature = Courbe1D::New_Courbe1D(*loi.cp_temperature);
        };
	  if (compressibilite_temperature != NULL)
	   if (compressibilite_temperature->NomCourbe() == "_")
        {// comme il s'agit d'une courbe locale on la redéfinie (sinon pb lors du destructeur de loi)
         string non_courbe("_");   
         compressibilite_temperature = Courbe1D::New_Courbe1D(non_courbe,loi.compressibilite_temperature->Type_courbe());
        };
	  };

Loi_iso_thermo::~Loi_iso_thermo ()
// Destructeur 
{ if (alphaT_temperature != NULL)
      if (alphaT_temperature->NomCourbe() == "_") delete alphaT_temperature;
  if (lambda_temperature != NULL)
      if (lambda_temperature->NomCourbe() == "_") delete lambda_temperature;
  if (cp_temperature != NULL)
      if (cp_temperature->NomCourbe() == "_") delete cp_temperature;
  if (compressibilite_temperature != NULL)
      if (compressibilite_temperature->NomCourbe() == "_") delete compressibilite_temperature;
  if (crista != NULL)
        delete crista;   
  };

// Lecture des donnees de la classe sur fichier
void Loi_iso_thermo::LectureDonneesParticulieres (UtilLecture * entreePrinc
                   ,LesCourbes1D& lesCourbes1D ,LesFonctions_nD& lesFonctionsnD)
  { // ------------    lecture du coefficient de dilatation
    string nom; *(entreePrinc->entree) >>  nom; 
    if (nom != "alphaT=")
      { cout << "\n erreur en lecture du coefficient de dilatation, on attendait le mot cle alphaT=";
        entreePrinc->MessageBuffer("**erreur1** Loi_iso_thermo::LectureDonneesParticulieres (... ");
        throw (UtilLecture::ErrNouvelleDonnee(-1));
        Sortie(1);     
       }
    // on regarde si le coeff est thermo dépendant 
    if(strstr(entreePrinc->tablcar,"alphaT_thermo_dependant_")!=0)
     { thermo_dependant=true;
       *(entreePrinc->entree) >> nom;
       if (nom != "alphaT_thermo_dependant_")
         { cout << "\n erreur en lecture de la thermodependance, on aurait du lire le mot cle alphaT_thermo_dependant_"
                << " suivi du nom d'une courbe de charge ou de la courbe elle meme ";
           entreePrinc->MessageBuffer("**erreur2** Loi_iso_thermo::LectureDonneesParticulieres (... ");
           throw (UtilLecture::ErrNouvelleDonnee(-1));
           Sortie(1);     
          }
       // lecture de la loi d'évolution du coefficient de dilatation en fonction de la température
       *(entreePrinc->entree) >>  nom;    
       // on regarde si la courbe existe, si oui on récupère la référence 
       if (lesCourbes1D.Existe(nom)) 
         { alphaT_temperature = lesCourbes1D.Trouve(nom);
          }
       else
        { // sinon il faut la lire maintenant
          string non_courbe("_");   
          alphaT_temperature = Courbe1D::New_Courbe1D(non_courbe,Id_Nom_Courbe1D (nom.c_str()));
          // lecture de la courbe
          alphaT_temperature->LectDonnParticulieres_courbes (non_courbe,entreePrinc);
         } 
       entreePrinc->NouvelleDonnee(); // prepa du flot de lecture
      }
    else
     { // lecture du coefficient 
       *(entreePrinc->entree) >> alphaT ;
      };
    //   ----------  lecture de la conductivité
    *(entreePrinc->entree) >>  nom; 
    if (nom != "lambda=")
      { cout << "\n erreur en lecture de la conductivite, on attendait le mot cle lambda=";
        entreePrinc->MessageBuffer("**erreur3** Loi_iso_thermo::LectureDonneesParticulieres (... ");
        throw (UtilLecture::ErrNouvelleDonnee(-1));
        Sortie(1);     
       }
    // on regarde si le coeff est thermo dépendant 
    if(strstr(entreePrinc->tablcar,"lambda_thermo_dependant_")!=0)
     { thermo_dependant=true;
       *(entreePrinc->entree) >> nom;
       if (nom != "lambda_thermo_dependant_")
         { cout << "\n erreur en lecture de la thermodependance, on aurait du lire le mot cle lambda_thermo_dependant_"
                << " suivi du nom d'une courbe de charge ou de la courbe elle meme ";
           entreePrinc->MessageBuffer("**erreur4** Loi_iso_thermo::LectureDonneesParticulieres (... ");
           throw (UtilLecture::ErrNouvelleDonnee(-1));
           Sortie(1);     
          }
       // lecture de la loi d'évolution du coefficient  en fonction de la température
       *(entreePrinc->entree) >>  nom;    
       // on regarde si la courbe existe, si oui on récupère la référence 
       if (lesCourbes1D.Existe(nom)) 
         { lambda_temperature = lesCourbes1D.Trouve(nom);
          }
       else
        { // sinon il faut la lire maintenant
          string non_courbe("_");   
          lambda_temperature = Courbe1D::New_Courbe1D(non_courbe,Id_Nom_Courbe1D (nom.c_str()));
          // lecture de la courbe
          lambda_temperature->LectDonnParticulieres_courbes (non_courbe,entreePrinc);
         } 
       entreePrinc->NouvelleDonnee(); // prepa du flot de lecture
      }
    else
     { // lecture du coefficient 
       *(entreePrinc->entree) >> lambda ;
      };
    //   ----------  lecture de la capacité calorifique
    *(entreePrinc->entree) >>  nom; 
    if (nom != "cp=")
      { cout << "\n erreur en lecture de la capacite calorifique, on attendait le mot cle cp=";
        entreePrinc->MessageBuffer("**erreur5** Loi_iso_thermo::LectureDonneesParticulieres (... ");
        throw (UtilLecture::ErrNouvelleDonnee(-1));
        Sortie(1);     
       }
    // on regarde si le coeff est thermo dépendant 
    if(strstr(entreePrinc->tablcar,"cp_thermo_dependant_")!=0)
     { thermo_dependant=true;
       *(entreePrinc->entree) >> nom;
       if (nom != "cp_thermo_dependant_")
         { cout << "\n erreur en lecture de la thermodependance, on aurait du lire le mot cle cp_thermo_dependant_"
                << " suivi du nom d'une courbe de charge ou de la courbe elle meme ";
           entreePrinc->MessageBuffer("**erreur6** Loi_iso_thermo::LectureDonneesParticulieres (... ");
           throw (UtilLecture::ErrNouvelleDonnee(-1));
           Sortie(1);     
          }
       // lecture de la loi d'évolution du coefficient  en fonction de la température
       *(entreePrinc->entree) >>  nom;    
       // on regarde si la courbe existe, si oui on récupère la référence 
       if (lesCourbes1D.Existe(nom)) 
         { cp_temperature = lesCourbes1D.Trouve(nom);
          }
       else
        { // sinon il faut la lire maintenant
          string non_courbe("_");   
          cp_temperature = Courbe1D::New_Courbe1D(non_courbe,Id_Nom_Courbe1D (nom.c_str()));
          // lecture de la courbe
          cp_temperature->LectDonnParticulieres_courbes (non_courbe,entreePrinc);
         } 
       entreePrinc->NouvelleDonnee(); // prepa du flot de lecture
      }
    else
     { // lecture du coefficient 
       *(entreePrinc->entree) >> cp ;
      };
      
    //   ----------  lecture éventuelle de la compressibilite
    if(strstr(entreePrinc->tablcar,"compressibilite=")!=0)
    {*(entreePrinc->entree) >>  nom; 
     if (nom != "compressibilite=")
      { cout << "\n erreur en lecture de la compressibilite, on attendait le mot cle compressibilite=";
        entreePrinc->MessageBuffer("**erreur7** Loi_iso_thermo::LectureDonneesParticulieres (... ");
        throw (UtilLecture::ErrNouvelleDonnee(-1));
        Sortie(1);     
       }
     // on regarde si le coeff est thermo dépendant 
     if(strstr(entreePrinc->tablcar,"compressibilite_thermo_dependant_")!=0)
     { thermo_dependant=true;
       *(entreePrinc->entree) >> nom;
       if (nom != "compressibilite_thermo_dependant_")
         { cout << "\n erreur en lecture de la thermodependance, on aurait du lire le mot cle compressibilite_thermo_dependant_"
                << " suivi du nom d'une courbe de charge ou de la courbe elle meme ";
           entreePrinc->MessageBuffer("**erreur8** Loi_iso_thermo::LectureDonneesParticulieres (... ");
           throw (UtilLecture::ErrNouvelleDonnee(-1));
           Sortie(1);     
          }
       // lecture de la loi d'évolution du coefficient  en fonction de la température
       *(entreePrinc->entree) >>  nom;    
       // on regarde si la courbe existe, si oui on récupère la référence 
       if (lesCourbes1D.Existe(nom)) 
         { compressibilite_temperature = lesCourbes1D.Trouve(nom);
          }
       else
        { // sinon il faut la lire maintenant
          string non_courbe("_");   
          compressibilite_temperature = Courbe1D::New_Courbe1D(non_courbe,Id_Nom_Courbe1D (nom.c_str()));
          // lecture de la courbe
          compressibilite_temperature->LectDonnParticulieres_courbes (non_courbe,entreePrinc);
         } 
       entreePrinc->NouvelleDonnee(); // prepa du flot de lecture
      }
     else
     { // lecture du coefficient 
       *(entreePrinc->entree) >> compressibilite ;
      };
    }
    else 
     {compressibilite=ConstMath::trespetit;}; // valeur par défaut indiquant qu'il n'y  pas de compressibilité 
    //   ----------  fin de la lecture éventuelle de la compressibilite
    // si on n'est pas arrivé à la fin de la lecture on passe à la ligne suivante
    // sinon pour l'instant on y reste
    if (strstr(entreePrinc->tablcar,"fin_thermique_isotrope")==0)
      entreePrinc->NouvelleDonnee(); // prepa du flot de lecture
//    entreePrinc->NouvelleDonnee();  // prepa du flot de lecture 
      
    // lecture éventuelle du paramètre   sortie_post
    if(strstr(entreePrinc->tablcar,"prepa_sortie_post=")!=0)
      {*(entreePrinc->entree) >>  nom >> sortie_post;
       entreePrinc->NouvelleDonnee(); // prepa du flot de lecture
       };
      
    // lecture éventuelle de la cristalinité  
    if(strstr(entreePrinc->tablcar,"type_de_calcul_=")!=0)
      {*(entreePrinc->entree) >>  nom >> type_de_calcul;
       if (type_de_calcul != 0)
       	{ // lecture de loi de cristalinité
       	  string non_crista;
       	  *(entreePrinc->entree) >>  nom >> non_crista;
       	  // on crée la loi
       	  crista = CristaliniteAbstraite::New_Cristalinite(Id_nom_Enum_crista(non_crista.c_str()));
       	  // on lit les données spécifiques à la loi    
          entreePrinc->NouvelleDonnee(); // prepa du flot de lecture
          crista->LectureDonneesLoiCrista(entreePrinc,lesCourbes1D,lesFonctionsnD);
       	}
       else 
         while (strstr(entreePrinc->tablcar,"fin_thermique_isotrope")==0)
            entreePrinc->NouvelleDonnee(); // prepa du flot de lecture
      };
      
    // prepa du flot de lecture
    if (strstr(entreePrinc->tablcar,"fin_thermique_isotrope")==0)
      entreePrinc->NouvelleDonnee();
    // on passe les lignes éventuelles jusqu'au mot clé de fin de lecture de la loi
    bool entete_message_info_en_trop = true; 
    while (strstr(entreePrinc->tablcar,"fin_thermique_isotrope")==0)
    	{ // il y a des lignes qui ne veulent rien dire pour la loi ??
    	  if (entete_message_info_en_trop)
    	     cout << "\n **** warning, loi iso thermo "
    	          << "\n il y a des infos non utiles ! bizarre et est-ce normal "
    	          << ", lire la doc et les supprimer si elles ne servent pas " ;
    	  cout << "\n " <<  entreePrinc->tablcar;        
    	  entete_message_info_en_trop = false;
    	  entreePrinc->NouvelleDonnee();	
    	};
//    // donc maintenant la prochaine ligne doit-être valide, mais on laisse le test (a virer par la suite) 
//    if(strstr(entreePrinc->tablcar,"fin_thermique_isotrope")==0) entreePrinc->NouvelleDonnee(); 
    entreePrinc->NouvelleDonnee();
    };

// affichage de la loi
void Loi_iso_thermo::Affiche() const 
  { cout << " \n loi de comportement thermique isotrope";
    if ( alphaT_temperature != NULL) { cout << " coefficient de dilatation thermo dependant " 
                                            << " courbe alphaT=f(T): " << alphaT_temperature->NomCourbe() <<" ";}
     else                            { cout << " coefficient de dilatation  alphaT = " << alphaT ;} 
    if ( lambda_temperature != NULL) { cout << " conductivite thermo dependante " 
                                            << " courbe lambda=f(T): " << lambda_temperature->NomCourbe() <<" ";}
    else                             { cout << " conductivite lambda= " << lambda ;} 
    if ( cp_temperature != NULL) { cout << " capacite calorifique thermo dependante " 
                                        << " courbe cp=f(T): " << cp_temperature->NomCourbe() <<" ";}
    else                             { cout << " conductivite lambda= " << lambda ;} 
    if ( compressibilite_temperature != NULL) { cout << " compressibilite thermo dependante " 
                                        << " courbe compressibilite=f(T): " << compressibilite_temperature->NomCourbe() <<" ";}
    else                         { cout << " compressibilite= " << compressibilite ;} 
    cout << " \n prepa_sortie_post=" << sortie_post << " ";
    if (type_de_calcul != 0)
      { cout << "\n calcul avec cristalinite: type_de_calcul= " << type_de_calcul;
        crista->Affiche();
      };
    cout << endl;
  };
            
// affichage et definition interactive des commandes particulières à chaques lois
void Loi_iso_thermo::Info_commande_LoisDeComp(UtilLecture& entreePrinc)
 {  ofstream & sort = *(entreePrinc.Commande_pointInfo()); // pour simplifier
	   cout << "\n definition standart (rep o) ou exemples exhaustifs (rep n'importe quoi) ? ";
	   string rep = "_";
    // procédure de lecture avec prise en charge d'un retour chariot
    rep = lect_return_defaut(true,"o");
    if (alphaT == 0.) { alphaT = 100.;}; // on initialise à une valeur arbitraire
    if (lambda == 0.) { lambda = 10.;}; // on initialise à une valeur arbitraire
    if (cp == 0.) { cp = 1.;}; // on initialise à une valeur arbitraire
    if (compressibilite == 0.) { compressibilite = 0.002;}; // on initialise à une valeur arbitraire
      
 //   sort << "\n# .......  loi de comportement thermique isotrope ........"
 //        << "\n#    coefficient de dilatation :"
 //        << "\n "<< setprecision(6) << alphaT << endl;
         
    sort << "\n# ..........................  loi de comportement thermique isotrope ......................"
         << "\n# |  coefficient de     |   conductivite  |  capacite       |      compressibilite         "
         << "\n# |                     |                 |   calorifique   |       (facultatif)           "
         << "\n# | dilatation  alphaT  |        lambda   |       cp        |      compressibilite         "
         << "\n#.........................................................................................."
         << "\n    alphaT= "<< setprecision(8) << alphaT << "    lambda=  " << setprecision(8) << lambda
         << "    cp=  " << setprecision(8) << cp << "  compressibilite= " << setprecision(8) << compressibilite
         << "\n                       fin_thermique_isotrope      ";
    if ((rep != "o") && (rep != "O" ) && (rep != "0") )
      { sort
         << "\n# \n# chaque parametre peut etre remplace par une fonction dependante de la temperature " 
         << "\n# pour ce faire on utilise un mot cle puis une nom de courbe ou la courbe directement comme avec "
         << "\n# les autre loi de comportement "
         << "\n# exemple pour le coefficient de dilatation:     alphaT=    alphaT_thermo_dependant_   courbe1  "
         << "\n# exemple pour la conductivite:                  mlambda=   lambda_thermo_dependant_   courbe2  "
         << "\n# exemple pour la capacite calorifique:          cp=        cp_thermo_dependant_       courbe3  "
         << "\n# exemple pour la compressibilite:  compressibilite=        compressibilite_thermo_dependant_       courbe3  "
         << "\n# IMPORTANT: a chaque fois qu'il y a une thermodependence, il faut passer une ligne apres la description"
         << "\n# de la grandeur thermodependante, mais pas de passage à la ligne si se n'est pas thermo dependant "
         << "\n#"
         << "\n# ensuite une variable booleenne qui indique si oui ou non on sauvegarde des donnees intermediaires"
         << "\n# pour le post-traitement, pour ensuite pouvoir afficher : temperature de transition, volume specifique"
         << "\n# pression, dilatation, conditivité, capacite calorifique, coeff de compressibilite"
         << "\n#   prepa_sortie_post=   0 # valeur par defaut -> pas de sauvegarde "
         << "\n#"
         << "\n#---- prise en compte de la cristalinite ---------"
         << "\n# il est possible de tenir compte d'un tau de cristalinite de la maniere suivante: "
         << "\n# tout d'abord un indicateur (faculatatif) indiquant le type de calcul voulu, par defaut = 0"
         << "\n#   type_de_calcul : =1 -> calcul du taux de cristalinite, mais pas de dependance des variables " 
         << "\n#                        de  ThermoDonnee(alpha, lambda, compressibilite) avec la cristalinite "
         << "\n#                  : =2 -> calcul du taux de cristalinité, avec dépendance des variables de ThermoDonnee "
         << "\n#  Dans le cas ou le type_de_calcul n'est pas nul, il faut ensuite definir la methode de calcul de la cristalinite"
         << "\n#  ex: pour la loi d'hoffman1  "
         << "\n# type_de_calcul_=  2 Cristalinite_= HOFFMAN1 "
         << "\n#  "
         << "\n# on se reportera a la documentation pour plus d'info sur l'introduction de la cristalinite "
         << "\n#";
       };
    // appel de la cristalinité a priori ici le pointeur est nul, mais on laisse pour le futur où l'on pourrait peut-être
    // accéder à des infos sur la critalinité en interactif
    if (crista != NULL)
     	{ crista->Info_commande_LoisCrista(entreePrinc);};
    // appel de la classe mère
    CompThermoPhysiqueAbstraite::Info_commande_don_LoisDeComp(entreePrinc); 
    sort << "\n#   la derniere ligne doit contenir uniquement le mot cle:     fin_thermique_isotrope "
         << endl;     
  };  		  	  

// test si la loi est complete
int Loi_iso_thermo::TestComplet()
    { int ret = LoiAbstraiteGeneral::TestComplet();
       return ret; 
    }; 
   
// récupération des grandeurs particulière (hors ddl )
// correspondant à liTQ
// absolue: indique si oui ou non on sort les tenseurs dans la base absolue ou une base particulière
void Loi_iso_thermo::Grandeur_particuliere
              (bool absolue,List_io<TypeQuelconque>& liTQ,CompThermoPhysiqueAbstraite::SaveResul * saveDon,list<int>& )
 {// on passe en revue la liste
  List_io<TypeQuelconque>::iterator itq,itqfin=liTQ.end();
  // on accède aux grandeurs que si sortie_post=true 
  if(sortie_post)
   for (itq=liTQ.begin();itq!=itqfin;itq++)
    {TypeQuelconque& tipParticu = (*itq); // pour simplifier
     if (tipParticu.EnuTypeQuelconque().Nom_vide()) // veut dire que c'est un enum pur
     { EnumTypeQuelconque enuTQ = tipParticu.EnuTypeQuelconque().EnumTQ();

       if (enuTQ == TEMPERATURE_LOI_THERMO_PHYSIQUE)
        { SaveResul_Loi_iso_thermo & save_resul = *((SaveResul_Loi_iso_thermo*) saveDon);
          Grandeur_scalaire_double& tyTQ= *((Grandeur_scalaire_double*) (*itq).Grandeur_pointee()); // pour simplifier
          tyTQ=save_resul.stockParaInt->temperature;
         }
       else if (enuTQ == PRESSION_LOI_THERMO_PHYSIQUE)
        { SaveResul_Loi_iso_thermo & save_resul = *((SaveResul_Loi_iso_thermo*) saveDon);
          Grandeur_scalaire_double& tyTQ= *((Grandeur_scalaire_double*) (*itq).Grandeur_pointee()); // pour simplifier
          tyTQ=save_resul.stockParaInt->pression;
         }
       else if ( (enuTQ == COEFF_DILATATION_LINEAIRE)
                || (enuTQ == CONDUCTIVITE)
                || (enuTQ == CAPACITE_CALORIFIQUE)
                || (enuTQ == COEFF_COMPRESSIBILITE)
                || (enuTQ == CRISTALINITE))
        { // dans ce cas il faut recalculer les grandeurs
          SaveResul_Loi_iso_thermo & save_resul = *((SaveResul_Loi_iso_thermo*) saveDon);
          Grandeur_scalaire_double& tyTQ= *((Grandeur_scalaire_double*) (*itq).Grandeur_pointee()); // pour simplifier
          // appel fonction interne
          double& P=save_resul.stockParaInt->pression;          // récup des valeurs sauvegardées
          temperature = save_resul.stockParaInt->temperature;  //       "
          // calcul des grandeurs en fonction de la température si nécessaire
          if (alphaT_temperature != NULL) {alphaT= alphaT_temperature->Valeur(temperature);}
          if (lambda_temperature != NULL) {lambda= lambda_temperature->Valeur(temperature);}
          if (cp_temperature != NULL) {cp= cp_temperature->Valeur(temperature);}
          if (compressibilite_temperature != NULL) {compressibilite= compressibilite_temperature->Valeur(temperature);}
          
          // choix pour les retours
          if (enuTQ == COEFF_DILATATION_LINEAIRE) {tyTQ=alphaT;}
          else if (enuTQ == CONDUCTIVITE) {tyTQ=lambda;}
          else if (enuTQ == CAPACITE_CALORIFIQUE) {tyTQ=cp;}
          else if (enuTQ == COEFF_COMPRESSIBILITE) {tyTQ=compressibilite;}
          else if ((enuTQ == CRISTALINITE)
                   && (crista != NULL))  
            {// !! a priori on sort les valeurs pour tdt, car sinon ça ne fonctionne pas pour l'instant
             // on considère que l'intervale = 0 
             tyTQ = crista->Cristalinite(save_resul.saveCrista,P,temperature);
             }
//          cout << "\n " << temp_trans <<" " << vol_spec << " " <<alphaT << " ";
         };
      };
     };
  };

// récupération et création de la liste de tous les grandeurs particulières
// ces grandeurs sont ajoutées à la liste passées en paramètres
// absolue: indique si oui ou non on sort les tenseurs dans la base absolue ou une base particulière
void Loi_iso_thermo::ListeGrandeurs_particulieres(bool absolue,List_io<TypeQuelconque>& liTQ)
 {Grandeur_scalaire_double grand_courant; // def d'une grandeur courante 
  // def d'un type quelconque représentatif à chaque grandeur
  // a priori ces grandeurs sont défini aux points d'intégration identique à la contrainte par exemple
  // enu_ddl_type_pt est définit dans la loi Abtraite générale
  // on n'ajoute que si sortie_post est vraie, sinon aucune grandeur n'est sauvegardé, donc on ne peut
  // plus y accèder
  if(sortie_post)
  {// a) $$$ cas de TEMPERATURE_LOI_THERMO_PHYSIQUE
   {TypeQuelconque typQ1(TEMPERATURE_LOI_THERMO_PHYSIQUE,enu_ddl_type_pt,grand_courant);
    liTQ.push_back(typQ1);
    };
   // b) $$$ cas de PRESSION_LOI_THERMO_PHYSIQUE
   {TypeQuelconque typQ2(PRESSION_LOI_THERMO_PHYSIQUE,enu_ddl_type_pt,grand_courant);
    liTQ.push_back(typQ2);
    };
   // e) $$$ cas de COEFF_DILATATION_LINEAIRE
   {TypeQuelconque typQ5(COEFF_DILATATION_LINEAIRE,enu_ddl_type_pt,grand_courant);
    liTQ.push_back(typQ5);
    };
   // f) $$$ cas de CONDUCTIVITE
   {TypeQuelconque typQ6(CONDUCTIVITE,enu_ddl_type_pt,grand_courant);
    liTQ.push_back(typQ6);
    };
   // g) $$$ cas de CAPACITE_CALORIFIQUE
   {TypeQuelconque typQ7(CAPACITE_CALORIFIQUE,enu_ddl_type_pt,grand_courant);
    liTQ.push_back(typQ7);
    };
   // h) $$$ cas de COEFF_COMPRESSIBILITE
   {TypeQuelconque typQ8(COEFF_COMPRESSIBILITE,enu_ddl_type_pt,grand_courant);
    liTQ.push_back(typQ8);
    };
   // i) $$$ cas de CRISTALINITE
   if (crista != NULL)
   {TypeQuelconque typQ8(CRISTALINITE,enu_ddl_type_pt,grand_courant);
    liTQ.push_back(typQ8);
    };
   }; //-- fin du cas sortie_post=true
  };
          
	   //----- lecture écriture de restart -----
	   // cas donne le niveau de la récupération
       // = 1 : on récupère tout
       // = 2 : on récupère uniquement les données variables (supposées comme telles)
void Loi_iso_thermo::Lecture_base_info_loi(ifstream& ent,const int cas,LesReferences& lesRef,LesCourbes1D& lesCourbes1D
                                             ,LesFonctions_nD& lesFonctionsnD)
  { string nom; 
	if (cas == 1)
	  { ent >> nom; 
	    if (nom != "LOI_ISO_THERMO")
	     { cout << "\n erreur en lecture de la loi : LOI_ISO_THERMO, on attendait le mot cle : LOI_ISO_THERMO "
	            << "\n LOI_ISO_THERMO::Lecture_base_info_loi(...";
	       Sortie(1);
	      }
	    // ensuite normalement il n'y a pas de pb de lecture puisque c'est écrit automatiquement (sauf en debug)        
	    ent >> nom; // alphaT
	    bool test; ent >> test;
	    if (!test)
	     { ent >> alphaT;
	       if (alphaT_temperature != NULL) 
	           {if (alphaT_temperature->NomCourbe() == "_") delete alphaT_temperature; alphaT_temperature = NULL;};
	      }
	    else
	     { ent >> nom; alphaT_temperature = lesCourbes1D.Lecture_pour_base_info(ent,cas,alphaT_temperature); };
	    // lambda
	    ent >> nom >> test;
	    if (!test)
	     { ent >> lambda;
	       if (lambda_temperature != NULL) 
	          {if (lambda_temperature->NomCourbe() == "_") delete lambda_temperature; lambda_temperature = NULL;};
	      }
	    else
	     { ent >> nom; lambda_temperature = lesCourbes1D.Lecture_pour_base_info(ent,cas,lambda_temperature); };
	    // cp
	    ent >> nom >> test;
	    if (!test)
	     { ent >> cp;
	       if (cp_temperature != NULL) 
	          {if (cp_temperature->NomCourbe() == "_") delete cp_temperature; cp_temperature = NULL;};
	      }
	    else
	     { ent >> nom; cp_temperature = lesCourbes1D.Lecture_pour_base_info(ent,cas,cp_temperature); };
	    // compressibilite
	    ent >> nom >> test;
	    if (!test)
	     { ent >> compressibilite;
	       if (compressibilite_temperature != NULL) 
	          {if (compressibilite_temperature->NomCourbe() == "_") delete compressibilite_temperature; compressibilite_temperature = NULL;};
	      }
	    else
	     { ent >> nom; compressibilite_temperature = lesCourbes1D.Lecture_pour_base_info(ent,cas,compressibilite_temperature); };
        // cas du post-traitement
        ent >> nom >> sortie_post ; 
        // cas de la cristalinité
        ent >> nom >> type_de_calcul;
        if (type_de_calcul != 0)
     	{ Enum_crista enuCrista;
     	  ent >> nom >> enuCrista;
     	  // création s'il le faut de l'instance de calcul de la cristalinité
     	  if (crista != NULL)
     	  	{ // cas où une instance existe déjà
     	  	  if (crista->Type_Crista() != enuCrista)
     	  	  	{ // cas où l'instance n'est pas a doc
     	  	  	  delete crista; 
       	          // on crée une  loi conforme
       	          crista = CristaliniteAbstraite::New_Cristalinite(enuCrista);
     	  	  	};
     	  	}
     	  else // sinon l'instance n'existe pas, il faut donc la créer	
       	     { crista = CristaliniteAbstraite::New_Cristalinite(enuCrista);
     	  	  };
       	  // on lit les données spécifiques à la loi    
          crista->Lecture_don_base_info(ent,cas,lesCourbes1D,lesFonctionsnD);
     	};
	   } 
	 CompThermoPhysiqueAbstraite::Lecture_don_base_info(ent,cas,lesRef,lesCourbes1D,lesFonctionsnD);
 };
       // cas donne le niveau de sauvegarde
       // = 1 : on sauvegarde tout
       // = 2 : on sauvegarde uniquement les données variables (supposées comme telles)
void Loi_iso_thermo::Ecriture_base_info_loi(ofstream& sort,const int cas)
{ if (cas == 1)
   { sort << " LOI_ISO_THERMO " ;
	 sort << "\n  alphaT= ";             
     if (alphaT_temperature == NULL)
      { sort << false << " " << alphaT << " ";}
     else 
      { sort << true << " fonction_alphaT_temperature ";
        LesCourbes1D::Ecriture_pour_base_info(sort,cas,alphaT_temperature);
       }; 
	 sort << "\n  lambda= ";             
     if (lambda_temperature == NULL)
      { sort << false << " " << lambda << " ";}
     else 
      { sort << true << " fonction_lambda_temperature ";
        LesCourbes1D::Ecriture_pour_base_info(sort,cas,lambda_temperature);
       }; 
	 sort << "\n  cp= ";             
     if (cp_temperature == NULL)
      { sort << false << " " << cp << " ";}
     else 
      { sort << true << " fonction_cp_temperature ";
        LesCourbes1D::Ecriture_pour_base_info(sort,cas,cp_temperature);
       }; 
	 sort << "\n  compressibilite= ";             
     if (compressibilite_temperature == NULL)
      { sort << false << " " << compressibilite << " ";}
     else 
      { sort << true << " fonction_compressibilite_temperature ";
        LesCourbes1D::Ecriture_pour_base_info(sort,cas,compressibilite_temperature);
       }; 
     // cas du post-traitement
     sort << "\n prepa_sortie_post= " << sortie_post << " "; 
     // cas de la cristalinité
     sort << "\n type_de_calcul= " << type_de_calcul;
     if (type_de_calcul != 0)
     	{ sort << " id_crista= " << crista->Type_Crista() << " ";
     	  crista->Ecriture_don_base_info(sort,cas);
     	};
     }  
  // appel de la classe mère
  CompThermoPhysiqueAbstraite::Ecriture_don_base_info(sort,cas);
  };

 // ========== codage des METHODES VIRTUELLES :================
// ramène les données thermiques défnies au point
// P: la pression à l'énuméré temps, et P_t la pression au temps t
void Loi_iso_thermo::Cal_donnees_thermiques
          (const double& P_t,CompThermoPhysiqueAbstraite::SaveResul * saveDon,const Deformation & def,const double& P
		  	                               ,Enum_dure temps, ThermoDonnee& donneeThermique)
  { saveResul = saveDon; // association pour les méthodes dérivées
    // calcul de la température
    temperature = def.DonneeInterpoleeScalaire(TEMP,temps);
    // calcul de alphaT
    if (alphaT_temperature != NULL) {alphaT= alphaT_temperature->Valeur(temperature);}
    if (lambda_temperature != NULL) {lambda= lambda_temperature->Valeur(temperature);}
    if (cp_temperature != NULL) {cp= cp_temperature->Valeur(temperature);}
    if (compressibilite_temperature != NULL) {compressibilite= compressibilite_temperature->Valeur(temperature);}
    // retour des données thermiques
    donneeThermique.ChangeAlphaTLambdaCp(alphaT,lambda,cp);  
    donneeThermique.ChangeCompressibilite(compressibilite);  
    // la cristalinité si nécessaire
    double taux_cris = 0;
    double temperature_t=0; 
    if (crista != NULL)
      { Loi_iso_thermo::SaveResul_Loi_iso_thermo* saveRes 
                = ((Loi_iso_thermo::SaveResul_Loi_iso_thermo*) saveResul);
        if (temps == TEMPS_tdt)
          { // dans ce cas on doit disposer des températures et pression à t
            temperature_t = def.DonneeInterpoleeScalaire(TEMP,TEMPS_t);
        	}
        else // on prend la température déjà calculée (car c'est o ou t)
          {	temperature_t = temperature;}
        taux_cris = crista->Cristalinite
                     (P_t,temperature_t,saveRes->saveCrista,P,temperature,temps);
        donneeThermique.ChangeTauxCrista(taux_cris);
        
      };
    // les données particulière a enregistrer si nécessaire
    if(sortie_post)
     { SaveResul_Loi_iso_thermo & save_resul = *((SaveResul_Loi_iso_thermo*) saveDon);
       save_resul.stockParaInt->pression=P;
       save_resul.stockParaInt->temperature=temperature;
      };
   };

// calcul du flux et ses variations  par rapport aux ddl a t+dt: stockage dans ptIntegThermi et dans d_flux
// calcul des énergies thermiques
// en entrée: température, gradient de temp, et grandeurs associées, métrique
void Loi_iso_thermo::Calcul_DfluxH_tdt
            (const double & P_t,PtIntegThermiInterne& ptIntegThermi, const double & P,DdlElement & tab_ddl
             ,const Deformation & def  // prévue pour servir pour l'interpolation
             , Tableau <CoordonneeB >& d_gradTB,Tableau <CoordonneeH >& d_flux,ThermoDonnee& dTP
             ,EnergieThermi & energ,const EnergieThermi & energ_t,const Met_abstraite::Impli& ex)
   {
     // on commence par calculer les paramètres de la loi thermique
     Cal_donnees_thermiques(P_t,saveResul,def,P,TEMPS_tdt,dTP);
     // calcul du flux en isotrope
     CoordonneeB fluxB = dTP.Conductivite() * ptIntegThermi.GradTB();
     // on le passe en coordonnées contravariantes
     ptIntegThermi.FluxH() = (*ex.gijHH_tdt) * fluxB;
     // calcul de la variation du flux par rapport aux ddl thermique
     int nb_ddl = d_gradTB.Taille();
     d_flux.Change_taille(nb_ddl); // mise à jour de la taille au cas ou
     if (lambda_temperature == NULL)
       // cas le plus simple où seule le gradient dépend de la température
       { for (int iddl=1;iddl<=nb_ddl;iddl++)
           d_flux(iddl) = (*ex.gijHH_tdt) * (lambda*d_gradTB(iddl));
       }
     else
       // cas où la conductivité dépend de la température
       { double der_lambda= lambda_temperature->Derivee(temperature);
         for (int iddl=1;iddl<=nb_ddl;iddl++)
           d_flux(iddl) = (*ex.gijHH_tdt)* (lambda*d_gradTB(iddl) + der_lambda * fluxB);
       };
     // pour les énergies je ne sais pas trop quoi faire actuellement
   };