Herezh_dev/Resultats/MAPLE/Animation_maple.cc

404 lines
20 KiB
C++
Raw Permalink Normal View History

// 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.
//
2023-05-03 17:23:49 +02:00
// 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 "Animation_maple.h"
#include <iomanip>
#include "CharUtil.h"
#include "Banniere.h"
// CONSTRUCTEURS :
// par defaut
Animation_maple::Animation_maple () :
OrdreVisu("...................................animation_maple" // de 15 à 65=50 caracteres
,"definition de l'animation si necessaire","ani")
,cycleInterval(8) //,loop(false),startTime(1),stopTime(0)
// ,debut_auto(false),inter_2pas(2.)
,choix_grandeurs_maple(NULL),choix_mail(NULL),xyanim()
{};
// constructeur de copie
Animation_maple::Animation_maple (const Animation_maple& ord) :
OrdreVisu(ord)
,cycleInterval(ord.cycleInterval) //,loop(ord.loop)
// ,startTime(ord.startTime),stopTime(ord.stopTime)
// ,debut_auto(ord.debut_auto),inter_2pas(ord.inter_2pas)
// ,choix_grandeurs_maple(ord.choix_grandeurs_maple)
// ,choix_mail(ord.choix_mail),xyanim(ord.xyanim)
{ };
// DESTRUCTEUR :
Animation_maple::~Animation_maple ()
{};
// METHODES PUBLIQUES :
// initialisation : permet d'initialiser les différents paramètres de l'ordre
// lors d'un premier passage des différents incréments
// en virtuelle, a priori est défini si nécessaire dans les classes dérivées
// fil_calcul indique si s'est une initialisation lite !!
void Animation_maple::Initialisation(ParaGlob * paraGlob,LesMaillages * lesmail,LesReferences* lesRefer
,LesLoisDeComp* lesLoisDeComp,DiversStockage* diversStockage,Charge* charge
,LesCondLim* lesCondLim,LesContacts* lesContacts
,Resultats* resultats,EnumTypeIncre type_incre,int incre
,const map < string, const double * , std::less <string> >& listeVarGlob
,const List_io < TypeQuelconque >& listeVecGlob,bool fil_calcul)
{ // initialisation de la liste
List_io <List_io <DeuxDoubles> >::iterator il,ilfin=xyanim.end();
for (il = xyanim.begin();il!=ilfin;il++)
{ List_io <DeuxDoubles> & ilist = (*il);
ilist.erase(ilist.begin(),ilist.end());
};
xyanim.erase(xyanim.begin(),xyanim.end());
//appel de l'ordre d'initialisation de la classe mère
OrdreVisu::Initialisation(paraGlob,lesmail,lesRefer,lesLoisDeComp,diversStockage,charge
,lesCondLim,lesContacts,resultats,type_incre,incre
,listeVarGlob,listeVecGlob,fil_calcul);
};
// execution de l'ordre
// tab_mail : donne les numéros de maillage concerné
// incre : numéro d'incrément qui en cours
// type_incre : indique si c'est le premier le dernier ou l'incrément courant a visualiser ou pas
// animation : indique si l'on est en animation ou pas
// unseul_incre : indique si oui ou non il y a un seul increment à visualiser
void Animation_maple::ExeOrdre(ParaGlob * ,const Tableau <int>& ,LesMaillages * ,bool ,LesReferences*
,LesLoisDeComp* ,DiversStockage*,Charge*,LesCondLim*
,LesContacts*,Resultats*,UtilLecture & entreePrinc,OrdreVisu::EnumTypeIncre type_incre,int
,bool animation,const map < string, const double * , std::less <string> >&
,const List_io < TypeQuelconque >& listeVecGlob
)
{ostream &sort = entreePrinc.Sort_princ_maple();
// définition de l'animation uniquement si animation est vraie, que c'est le dernier incrément
if (actif && animation && (type_incre == DERNIER_INCRE))
{ // ----- partie 1 : sortie des données ------------------
// si la liste de valeur à sortir est vide on arrête avec un message
int taille_xyanim = xyanim.size();
if (taille_xyanim==0)
{ cout << "\n warning :: aucun resultats en sortie pour l'animation !!"; return;};
// on écrit successivement les grandeurs
int taille_liste = xyanim.front().size();
if (taille_liste == 0)
{ cout << "\n warning :: aucun resultats en sortie pour le premier temps, pour l'animation !!"; return;};
// on vérifie que toutes les listes ont la même taille
List_io <List_io <DeuxDoubles> >::iterator il,ilfin=xyanim.end();
for (il = xyanim.begin();il!=ilfin;il++)
{ if (taille_liste != (*il).size())
{ cout << "\n erreur: le nombre de point en sortie entre le premier temps et un autre temps est different"
<< " on ne peut pas traiter -> rien en sortie !! ";
return;
};
}
// maintenant on définit une liste de pointeurs pour chaque temps
Tableau <List_io <DeuxDoubles>::iterator> tab_ip(taille_xyanim);
int i_tab=1;
for (il = xyanim.begin();il!=ilfin;il++,i_tab++)
{ tab_ip(i_tab)= (*il).begin();};
// on écrit les infos
sort << "\n"; double xmax=0.;double xmin=0.; double ymax=0.; double ymin=0.;
for (i_tab=1;i_tab<= taille_liste;i_tab++)
{ for (int itemps = 1; itemps <= taille_xyanim; itemps++)
{ List_io <DeuxDoubles>::iterator & iptl = tab_ip(itemps);
double x=(*iptl).un ; double y = (*iptl).deux;
sort << setprecision(ParaGlob::NbdigdoGR()) << x << " " << y << " ";
iptl++;
// calcul des maxi
if (xmin > x) xmin = x; if (xmax < x) xmax = x;
if (ymin > y) ymin = y; if (ymax < y) ymax = y;
}
sort << "\n";
};
// et on vide le buffer de sortie
sort << endl;
// ----- partie 2 : écriture du petit programme gnuplot qui est relue constamment ------------------
float temps_pause = cycleInterval/taille_xyanim;
// ouverture du fichier
ofstream auxi("plotter");
// on regarde l'utilisation de la sauvegarde de l'ancienne racine
if (!auxi)
//cas d'une erreur a l'ouverture du fichier
{ cout << "\n erreur en ouverture du fichier: plotter, on passe ! ";
if (ParaGlob::NiveauImpression() >= 4) cout << "Animation_maple::ExeOrdre(....";
}
else
{ cout << "\n creation du fichier: plotter, pour la visualisation avec gnuplot";
auxi << "#fichier au format gnuplot \n";
// le titre
auxi << "###############################################################################################\n"
<< "# Visualisation elements finis : Herezh++ V" << ParaGlob::NbVersion()
<< " #\n"
<< "# " << Banniere::CopiPirate() << " #\n"
<< "# http://www-lg2m.univ-ubs.fr #\n"
<< "###############################################################################################\n"
<< "\n\n";
auxi << "\n# fichier gnuplot pour activer le dessin d'une courbe ";
auxi << "\n \n ";
auxi << "\n c_p = c_p+1 ";
auxi << "\n c_p1=c_p +1 ";
auxi << "\n plot \"$0\" using c_p:c_p1 ";
auxi << "\n pause " << temps_pause;
auxi << "\n c_p = c_p + 1 ";
auxi << "\n if(c_p < n_p) reread ";
auxi.close();
}
// ----- partie 3 : écriture du programme principale de pilotage gnuplot ------------------
// ouverture du fichier
ofstream auxa("anime.hz");
// on regarde l'utilisation de la sauvegarde de l'ancienne racine
if (!auxa)
//cas d'une erreur a l'ouverture du fichier
{ cout << "\n erreur en ouverture du fichier: anime.hz, on passe ! ";
if (ParaGlob::NiveauImpression() >= 4) cout << "Animation_maple::ExeOrdre(....";
}
else
{ cout << "\n creation du fichier: anime.hz, pour la visualisation avec gnuplot: "
<< "\n utilisation: call 'anime.hz' ' <nom>_princ.maple' ";
auxa << "#fichier au format gnuplot\n";
// le titre
auxa << "###############################################################################################\n"
<< "# Visualisation elements finis : Herezh++ V" << ParaGlob::NbVersion()
<< " #\n"
<< "# " << Banniere::CopiPirate() << " #\n"
<< "# http://www-lg2m.univ-ubs.fr #\n"
<< "###############################################################################################\n"
<< "\n\n";
auxa << "\n set xrange [" << xmin <<":" << xmax << "] # amplitude sur x ";
auxa << "\n set yrange [" << ymin <<":" << ymax << "] # amplitude sur y ";
// auxa << "\n set style data line # on relie les points par des lignes ";
auxa << "\n set data style line # on relie les points par des lignes ";
auxa << "\n n_p = " << (2*taille_xyanim) << " # def du nombre de courbes (c-a-d de pas de temps) ";
auxa << "\n c_p = 0 # initialisation ";
auxa << "\n call 'plotter' '$0' # appel du petit programme de boucle ";
auxa.close();
}
};
};
// choix de l'ordre, cet méthode peut entraîner la demande d'informations
// supplémentaires si nécessaire. qui sont ensuite gérer par la classe elle même
void Animation_maple::ChoixOrdre()
{ // on commence par appeler une fonction de Choix_grandeurs_mapple pour déterminer les
// deux grandeurs à visualiser (en x et y)
// auparavant on vérifie qu'il n'y a qu'un seul maillage a visualiser et on récupère son numéro
const list <int>& numeros_maillage = choix_mail->List_choisit() ;
if (numeros_maillage.size() != 1)
{ cout << "\n erreur: le nombre de maillage actuellement enregistre est different de 1, pour l'animation"
<< " il faut choisir un seul maillage !! ";
return;
}
int num_mail = numeros_maillage.front();
bool resultat = choix_grandeurs_maple->Choix_deux_grandeurs(num_mail);
if (resultat) {actif = true;} else {actif = false; return;}
// puis demande de précision
bool choix_valide = false; string rep;
cout << "\n ----> choix des parametre de l'animation "
<< "\n parametres actuels ? : duree de l'animation : " << cycleInterval;
// << "\n bouclage de l'animation : " ;
// if (loop) cout << "oui"; else cout << "non";
// cout << "\n debut automatique ";
// if (debut_auto) cout << "oui"; else cout << "non";
// cout << "\n duree entre deux passages automatiques: " << inter_2pas
// << "\n (valable si l'on a un debut automatique);";
cout << " \n (rep 'o') pour accepter ces parametres sinon autre ";
cout << "\n reponse ? "; rep = lect_return_defaut(false,"o");
if (rep != "o")
{// cas d'un choix autre que standart
while (!choix_valide)
{
try
{
cout
<< "\n (0) fin modif"
<< "\n (1) duree du cycle? "; // (2)bouclage de l'animation ? "
// << "\n (3) debut automatique ? (4)duree entre deux passages auto? ";
cout << "\n \n reponse ? ";
rep = lect_return_defaut(false,"0");
if (rep == "fin_prog") Sortie(1);
// sinon
int num = ChangeEntier(rep);
if (num == 0) choix_valide=true;
else if (num == 1) //((num >= 1)&&(num<=4))
{ choix_valide=false;
switch (num)
{ case 1: //durée du cycle
{ // cas de la durée du cycle
cout << "\n duree du cycle (un reel strictement positif) ? ";
double duree;
duree=lect_double();
if (duree > 0) cycleInterval = duree;
else
{ cout << "erreur le cycle doit être positif!, on garde la valeur precedente "
<< cycleInterval;
}
break;
}
/* case 2: // bouclage de l'animation
{ // bouclage continue
cout << "\n bouclage non continu (oui (rep 'o') sinon non (autre reponse) ? ";
cin >> rep;
if (rep == "o") loop = false;
else loop = true;
break;
}
case 3: // début automatique
{ // bouclage continue
cout << "\n debut automatique (oui (rep 'o') sinon non (autre reponse) ? ";
cin >> rep;
if (rep == "o") debut_auto = true;
else debut_auto = false;
break;
}
case 4: // durée entre deux passage automatique
{ cout << "\n duree entre deux passages, dans le cas d'un demarrage automatique"
<< "\n (un reel strictement positif) ? ";
double duree;
cin >> duree;
if (duree > 0) inter_2pas = duree;
else
{ cout << "erreur la duree doit être positive!, on garde la valeur precedente "
<< inter_2pas;
}
break;
*/
}
}
else { cout << "\n Erreur on attendait un entier entre 0 et 1 !!, " //4 !!, "
<< "\n redonnez une bonne valeur"
<< "\n ou taper fin_prog pour arreter le programme";
choix_valide=false;
}
}
catch (ErrSortieFinale)
// cas d'une direction voulue vers la sortie
// on relance l'interuption pour le niveau supérieur
{ ErrSortieFinale toto;
throw (toto);
}
catch (...)// erreur de lecture
{ cout << "\n Erreur on attendait un des mots clés proposes !!, "
<< "\n redonnez une bonne valeur"
<< "\n ou taper fin_prog pour arreter le programme";
choix_valide=false;
}
} //-- fin du while
} //-- fin du if (rep != "o") du départ c'est-à-dire du cas non standart
// // on prévient qu'il faut absolument renseigner l'ordre "déformée"
// cout << "\n n'oubliez pas de definir les parametres de deformees pour que l'animation fonctionne\n";
// appel de la méthode de la classe mère
OrdreVisu::ChoixOrdre();
};
// écriture des informations d'entête, renseigne sur les infos du fichier, ceci
// pour permettre l'exploitation par les programmes graphiques
// en entrée : list_mail = la liste des maillages à visualiser
void Animation_maple::Entete_fichier_maple(const list<int>& ,ostream & sort)
{ // le détails des grandeurs
sort << "\n # entete des donnees : cas d'un fichier pour une animation";
sort << "\n # les courbes sont classees par colonnes: x(t=1) y(t=1) x(t=2) y(t=2) x(t=3) ....";
};
// lecture des paramètres de l'ordre dans un flux
void Animation_maple::Lecture_parametres_OrdreVisu(UtilLecture & entreePrinc)
{ // si dans le flot il existe l'identificateur adoc on lit sinon on passe
if (strstr(entreePrinc.tablcarCVisu,"debut_animation")!=NULL)
{// sauvegarde des paramètres actuelles
// bool loop_s=loop; bool debut_auto_s=debut_auto;
double cycleInterval_s = cycleInterval; //double startTime_s=startTime; double stopTime_s=stopTime;
// double inter_2pas_s = inter_2pas;
// essaie de lecture
try
{ string nom;
(*entreePrinc.entCVisu) >> nom ;
if (nom != "debut_animation")
{ cout << "\n Erreur en lecture des parametres de l'animation a partir d'un fichier .CVisu,"
<< " le premier enregistrement doit etre le mot clef: debut_animation "
<< " on ne tiens pas compte des parametres fournies !! ";
}
else
{ // appel de l'ordre de la classe mère
OrdreVisu::Lect_para_OrdreVisu_general(entreePrinc);
while (nom != "fin_animation")
{ (*entreePrinc.entCVisu) >> nom;
if (nom == "cycleInterval") (*entreePrinc.entCVisu) >> cycleInterval;
// if (nom == "loop") (*entreePrinc.entCVisu) >> loop;
// if (nom == "startTime") (*entreePrinc.entCVisu) >> startTime;
// if (nom == "stopTime") (*entreePrinc.entCVisu) >> stopTime ;
// if (nom == "debut_auto") (*entreePrinc.entCVisu) >> debut_auto ;
// if (nom == "inter_2pas") (*entreePrinc.entCVisu) >> inter_2pas ;
entreePrinc.NouvelleDonneeCVisu(); // on passe un enregistrement
}
}
}
catch (ErrSortieFinale)
// cas d'une direction voulue vers la sortie
// on relance l'interuption pour le niveau supérieur
{ ErrSortieFinale toto;
throw (toto);
}
catch (...)// erreur de lecture
{ cout << "\n Erreur en lecture des parametres de l'animation a partir d'un fichier .CVisu,"
<< " on ne tiens pas compte des parametres fournies !! ";
// récup des infos sauvées
cycleInterval=cycleInterval_s; //loop=loop_s;
// startTime = startTime_s; stopTime=stopTime_s; debut_auto=debut_auto_s; inter_2pas=inter_2pas_s;
if (ParaGlob::NiveauImpression() >= 4)
cout << "\n Animation_maple::Lecture_parametres_OrdreVisu(..";
}
}
};
// écriture des paramètres de l'ordre dans un flux
void Animation_maple::Ecriture_parametres_OrdreVisu(UtilLecture & entreePrinc)
{ // récup du flot
ostream & sort = (*(entreePrinc.Sort_CommandeVisu()));
// on commente le fonctionnement
sort << "\n # ----------------------------- definition des parametres d'animation: ---------------- ";
sort << "\n debut_animation # un mot cle de debut de liste (debut_animation)";
// appel de l'ordre de la classe mère
OrdreVisu::Ecrit_para_OrdreVisu_general(entreePrinc);
sort << "\n # des parametres avec des valeurs: (sur une meme ligne) ";
// la liste des paramètres
sort << "\n cycleInterval " << cycleInterval << " # cycleInterval <un reel> (indique le temps en seconde du cycle de l'animation)";
// << "\n loop " << loop << " # loop <0 ou 1> (indique si l'on veut une animation en boucle continue ou non)"
// << "\n startTime " << startTime << " # startTime <un reel> (temps de démarrage de l'animation en absolu depuis 1970)"
// << "\n stopTime " << stopTime << " # stopTime <un réel> (temps de fin en absolu depuis 1970, si < a starttime on n'en tiend pas compte)"
// << "\n debut_auto " << debut_auto << " # debut_auto <0 ou 1> (indique si l'on veut ou non un debut automatique de l'animation)"
// << "\n inter_2pas " << inter_2pas << " # inter_2pas <un réel> (temps entre deux cycle d'animation, si loop est actif)";
// sort << " rien_pour_l_instant ";
// fin
sort << "\n fin_animation " << " # un mot cle de fin \n";
};