403 lines
20 KiB
C++
Executable file
403 lines
20 KiB
C++
Executable file
|
|
// This file is part of the Herezh++ application.
|
|
//
|
|
// The finite element software Herezh++ is dedicated to the field
|
|
// of mechanics for large transformations of solid structures.
|
|
// It is developed by Gérard Rio (APP: IDDN.FR.010.0106078.000.R.P.2006.035.20600)
|
|
// INSTITUT DE RECHERCHE DUPUY DE LÔME (IRDL) <https://www.irdl.fr/>.
|
|
//
|
|
// Herezh++ is distributed under GPL 3 license ou ultérieure.
|
|
//
|
|
// Copyright (C) 1997-2021 Université Bretagne Sud (France)
|
|
// AUTHOR : Gérard Rio
|
|
// E-MAIL : gerardrio56@free.fr
|
|
//
|
|
// This program is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, either version 3 of the License,
|
|
// or (at your option) any later version.
|
|
//
|
|
// This program is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty
|
|
// of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
// See the GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
//
|
|
// For more information, please consult: <https://herezh.irdl.fr/>.
|
|
|
|
#include "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";
|
|
};
|
|
|
|
|