1 |
francois |
326 |
#include "gestionversion.h" |
2 |
|
|
#include "mgaster.h" |
3 |
|
|
#include "fem_maillage.h" |
4 |
|
|
#include "mg_gestionnaire.h" |
5 |
|
|
#include "mg_export.h" |
6 |
|
|
#include "mg_import.h" |
7 |
francois |
773 |
#include "mglanceuraster.h" |
8 |
couturad |
919 |
#include <sys/stat.h> |
9 |
|
|
#include <fstream> |
10 |
francois |
326 |
|
11 |
|
|
|
12 |
|
|
|
13 |
|
|
|
14 |
|
|
|
15 |
|
|
|
16 |
|
|
|
17 |
|
|
|
18 |
francois |
470 |
MGASTER::MGASTER():affichageactif(0) |
19 |
francois |
326 |
{ |
20 |
francois |
725 |
ini_param(); |
21 |
francois |
326 |
|
22 |
|
|
} |
23 |
|
|
|
24 |
francois |
470 |
MGASTER::MGASTER(MGASTER &mdd):affichageactif(mdd.affichageactif) |
25 |
francois |
326 |
{ |
26 |
francois |
725 |
ini_param(); |
27 |
francois |
326 |
} |
28 |
|
|
|
29 |
|
|
|
30 |
|
|
MGASTER::~MGASTER() |
31 |
|
|
{ |
32 |
|
|
} |
33 |
|
|
|
34 |
|
|
void MGASTER::active_affichage(void (*fonc)(char*)) |
35 |
|
|
{ |
36 |
|
|
affiche=fonc; |
37 |
|
|
affichageactif=1; |
38 |
|
|
} |
39 |
|
|
|
40 |
francois |
706 |
int MGASTER::calcule(char* nomfichierparam,FEM_MAILLAGE* fem,char *nometude,int typeetude,char *code,bool avecenreg) |
41 |
francois |
326 |
{ |
42 |
francois |
786 |
bool recures=true; |
43 |
gervaislavoie |
382 |
if (affichageactif==1) affiche((char*)""); |
44 |
|
|
if (affichageactif==1) affiche((char*)"*************************"); |
45 |
|
|
if (affichageactif==1) affiche((char*)" Calcul par code aster"); |
46 |
|
|
if (affichageactif==1) affiche((char*)"*************************"); |
47 |
|
|
if (affichageactif==1) affiche((char*)""); |
48 |
|
|
if (affichageactif==1) affiche((char*)""); |
49 |
|
|
if (affichageactif==1) affiche((char*)""); |
50 |
francois |
326 |
MG_EXPORT exp; |
51 |
francois |
706 |
if (nomfichierparam!=NULL) exp.lire_params_aster(nomfichierparam); |
52 |
francois |
581 |
double version; |
53 |
francois |
748 |
MG_GEOMETRIE* geo=fem->get_mg_maillage()->get_mg_geometrie(); |
54 |
|
|
char message[500]; |
55 |
|
|
if ((typeetude == MAGIC::CALCUL_ASTER::ELASTIQUE)) sprintf(message," Calcul elastique sur la geometrie %lu",geo->get_id()); |
56 |
francois |
786 |
if ((typeetude == MAGIC::CALCUL_ASTER::RIGIDITE)) {sprintf(message," Calcul de la matrice de rigidite sur la geometrie %lu",geo->get_id());recures=false;} |
57 |
francois |
748 |
if ((typeetude == MAGIC::CALCUL_ASTER::THERMIQUE)) sprintf(message," Calcul thermique sur la geometrie %lu",geo->get_id()); |
58 |
|
|
if ((typeetude == MAGIC::CALCUL_ASTER::ELASTIQUE_GROT_GDEF)) sprintf(message," Calcul elastique grand deplacement sur la geometrie %lu",geo->get_id()); |
59 |
|
|
if ((typeetude == MAGIC::CALCUL_ASTER::PLASTIQUE)) sprintf(message," Calcul plastique sur la geometrie %lu",geo->get_id()); |
60 |
|
|
if ((typeetude == MAGIC::CALCUL_ASTER::CONTRAINTE_PLANE)) sprintf(message," Calcul de contrainte plane sur la geometrie %lu",geo->get_id()); |
61 |
|
|
if ((typeetude == MAGIC::CALCUL_ASTER::DEFORMATION_PLANE)) sprintf(message," Calcul de deformation plane sur la geometrie %lu",geo->get_id()); |
62 |
francois |
786 |
if ((typeetude == MAGIC::CALCUL_ASTER::RIGIDITE_CONTRAINTE_PLANE)) {sprintf(message," Calcul de la matrice de rigidite en contrainte plane sur la geometrie %lu",geo->get_id());;recures=false;} |
63 |
|
|
if ((typeetude == MAGIC::CALCUL_ASTER::RIGIDITE_DEFORMATION_PLANE)) {sprintf(message," Calcul de la matrice de rigidite en deformation plane sur la geometrie %lu",geo->get_id());;recures=false;} |
64 |
mejri |
888 |
if ((typeetude == MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D)) sprintf(message," Calcul elastique non lineaire sur la geometrie %lu",geo->get_id()); |
65 |
francois |
748 |
if (affichageactif==1) affiche(message); |
66 |
|
|
char resultat[10]; |
67 |
|
|
strcpy(resultat,"00011111"); |
68 |
|
|
if ((typeetude == MAGIC::CALCUL_ASTER::THERMIQUE)) strcpy(resultat,""); |
69 |
|
|
if (code!=NULL) strcpy(resultat,code); |
70 |
|
|
version=exp.aster(geo,fem,nometude,typeetude,resultat); |
71 |
francois |
757 |
int base=exp.get_base_aster(); |
72 |
francois |
748 |
|
73 |
francois |
581 |
if (affichageactif==1) |
74 |
|
|
{ |
75 |
|
|
char messagever[255]; |
76 |
francois |
691 |
sprintf(messagever," Calcul aster \033[1;32m%.1lf\033[1;33m ",version); |
77 |
francois |
581 |
affiche(messagever); |
78 |
|
|
} |
79 |
couturad |
919 |
char fichier_mess[500]; |
80 |
|
|
strcpy(fichier_mess,nometude); |
81 |
|
|
strcat(fichier_mess,(char*)".mess"); |
82 |
|
|
bool fichier_mess_existant=false; |
83 |
|
|
struct stat t_stat; |
84 |
|
|
std::ifstream stream_fichier_mess; |
85 |
|
|
stream_fichier_mess.open(fichier_mess, std::ifstream::in); |
86 |
|
|
if(stream_fichier_mess.good()) |
87 |
|
|
{ |
88 |
|
|
fichier_mess_existant=true; |
89 |
|
|
struct stat t_stat; |
90 |
|
|
stat(fichier_mess,&t_stat); |
91 |
|
|
} |
92 |
|
|
else |
93 |
|
|
{ |
94 |
|
|
t_stat.st_ctime=0; |
95 |
|
|
} |
96 |
francois |
773 |
MGLANCEURASTER aster; |
97 |
|
|
int codesortie=aster.execute(param,nometude); |
98 |
francois |
326 |
if (codesortie!=0) |
99 |
couturad |
919 |
{ |
100 |
|
|
sprintf(message," Code de sortie aster : %d",codesortie); |
101 |
|
|
if (affichageactif==1) affiche(message); |
102 |
|
|
if(codesortie==1) |
103 |
|
|
{ |
104 |
|
|
if(fichier_mess_existant) |
105 |
|
|
{ |
106 |
|
|
struct stat t_stat_2; |
107 |
|
|
stat(fichier_mess,&t_stat_2); |
108 |
|
|
if(t_stat_2.st_ctime<=t_stat.st_ctime) |
109 |
|
|
{ |
110 |
gervaislavoie |
382 |
return codesortie; |
111 |
couturad |
919 |
} |
112 |
|
|
} |
113 |
|
|
} |
114 |
|
|
else return codesortie; |
115 |
|
|
} |
116 |
francois |
786 |
if (recures) |
117 |
gervaislavoie |
382 |
{ |
118 |
francois |
786 |
if (affichageactif==1) affiche((char*)" Recuperation des resultats"); |
119 |
|
|
char nomfichiertmp[600]; |
120 |
|
|
MG_IMPORT imp; |
121 |
|
|
sprintf(nomfichiertmp,"%s.resu",nometude); |
122 |
|
|
std::string res=imp.aster(base,fem,nomfichiertmp,nometude); |
123 |
|
|
if (affichageactif==1) printf("%s",(char*)("\033[1;31m"+res+"\033[1;33m").c_str()); |
124 |
|
|
if (avecenreg==true) |
125 |
|
|
{ |
126 |
gervaislavoie |
382 |
if (affichageactif==1) affiche((char*)" Enregistrement MAGIC"); |
127 |
|
|
sprintf(nomfichiertmp,"%s.magic",nometude); |
128 |
|
|
fem->get_mg_maillage()->get_gestionnaire()->enregistrer(nomfichiertmp); |
129 |
|
|
if (affichageactif==1) affiche((char*)" Enregistrement GMSH"); |
130 |
|
|
exp.gmsh(fem,nometude); |
131 |
|
|
} |
132 |
francois |
786 |
} |
133 |
mejrim |
597 |
} |
134 |
mejri |
932 |
int MGASTER::calcule_fatigue(char* nomfichierparam,FEM_MAILLAGE* fem,char *nometude,int typeetude,vector<FEM_ELEMENT3*> *lst,int niveaumax,char *code,bool avecenreg) |
135 |
|
|
{ |
136 |
|
|
bool recures=true; |
137 |
|
|
if (affichageactif==1) affiche((char*)""); |
138 |
|
|
if (affichageactif==1) affiche((char*)"*************************"); |
139 |
|
|
if (affichageactif==1) affiche((char*)" Calcul par code aster"); |
140 |
|
|
if (affichageactif==1) affiche((char*)"*************************"); |
141 |
|
|
if (affichageactif==1) affiche((char*)""); |
142 |
|
|
if (affichageactif==1) affiche((char*)""); |
143 |
|
|
if (affichageactif==1) affiche((char*)""); |
144 |
|
|
MG_EXPORT exp; |
145 |
|
|
if (nomfichierparam!=NULL) exp.lire_params_aster(nomfichierparam); |
146 |
|
|
double version; |
147 |
|
|
MG_GEOMETRIE* geo=fem->get_mg_maillage()->get_mg_geometrie(); |
148 |
|
|
char message[500]; |
149 |
|
|
if ((typeetude == MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D_FATIGUE)) sprintf(message," Calcul de fatigue sur la geometrie %lu",geo->get_id()); |
150 |
|
|
if (affichageactif==1) affiche(message); |
151 |
|
|
char resultat[10]; |
152 |
|
|
strcpy(resultat,"00011111"); |
153 |
|
|
if (code!=NULL) strcpy(resultat,code); |
154 |
|
|
//version=exp.aster(geo,fem,nometude,typeetude,resultat); |
155 |
|
|
version=exp.aster(geo,fem,nometude,typeetude,resultat,0.,niveaumax,lst); |
156 |
|
|
int base=exp.get_base_aster(); |
157 |
|
|
|
158 |
|
|
if (affichageactif==1) |
159 |
|
|
{ |
160 |
|
|
char messagever[255]; |
161 |
|
|
sprintf(messagever," Calcul aster \033[1;32m%.1lf\033[1;33m ",version); |
162 |
|
|
affiche(messagever); |
163 |
|
|
} |
164 |
|
|
|
165 |
|
|
MGLANCEURASTER aster; |
166 |
|
|
int codesortie=aster.execute(param,nometude); |
167 |
|
|
if (codesortie!=0) |
168 |
|
|
{ |
169 |
|
|
sprintf(message," Code de sortie aster : %d",codesortie); |
170 |
|
|
if (affichageactif==1) affiche(message); |
171 |
|
|
return codesortie; |
172 |
|
|
} |
173 |
|
|
if (recures) |
174 |
|
|
{ |
175 |
|
|
if (affichageactif==1) affiche((char*)" Recuperation des resultats"); |
176 |
|
|
char nomfichiertmp[600]; |
177 |
|
|
MG_IMPORT imp; |
178 |
|
|
sprintf(nomfichiertmp,"%s.resu",nometude); |
179 |
|
|
std::string res=imp.aster(base,fem,nomfichiertmp,nometude); |
180 |
|
|
if (affichageactif==1) printf("%s",(char*)("\033[1;31m"+res+"\033[1;33m").c_str()); |
181 |
|
|
if (avecenreg==true) |
182 |
|
|
{ |
183 |
|
|
if (affichageactif==1) affiche((char*)" Enregistrement MAGIC"); |
184 |
|
|
sprintf(nomfichiertmp,"%s.magic",nometude); |
185 |
|
|
fem->get_mg_maillage()->get_gestionnaire()->enregistrer(nomfichiertmp); |
186 |
|
|
if (affichageactif==1) affiche((char*)" Enregistrement GMSH"); |
187 |
|
|
exp.gmsh(fem,nometude); |
188 |
|
|
} |
189 |
|
|
} |
190 |
|
|
} |
191 |
mejrim |
597 |
|
192 |
|
|
|
193 |
mejri |
932 |
|
194 |
francois |
725 |
void MGASTER::ini_param(void) |
195 |
|
|
{ |
196 |
|
|
param.ajouter("Affiche_Code_Aster",0,OT_PARAMETRES::DOUBLE,"0. Affichage redirigé vers le fichier aster.log 1 affichage dans un terminal"); |
197 |
|
|
char fichier[500]; |
198 |
|
|
sprintf(fichier,"%s/.magic",getenv("HOME")); |
199 |
|
|
param.lire(fichier); |
200 |
|
|
param.enregistrer(fichier); |
201 |
|
|
|
202 |
|
|
} |
203 |
mejrim |
597 |
|