ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magic/lib/aster/src/mgaster.cpp
Revision: 786
Committed: Wed Mar 9 21:10:49 2016 UTC (9 years, 2 months ago) by francois
File size: 4185 byte(s)
Log Message: 
Possibilité d'obtenir la matrice de rigidite de code aster sous form de matrice bande.
Pour cela ajouter -opt dans l'operation -fem à la création du maillage FEM et dans -calculaster utiliser les nouveaux types d'étude rigidite.
Attention pour cela il faut une version de code aster modifiée
De manière automatique elle peut etre optenu en faisant ./instal_aster 12.5mod
Uniquement implantée avec la version 12.5 de code aster.

File Contents

# User Rev Content
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 francois 326
9    
10    
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 francois 748 if (affichageactif==1) affiche(message);
65     char resultat[10];
66     strcpy(resultat,"00011111");
67     if ((typeetude == MAGIC::CALCUL_ASTER::THERMIQUE)) strcpy(resultat,"");
68     if (code!=NULL) strcpy(resultat,code);
69     version=exp.aster(geo,fem,nometude,typeetude,resultat);
70 francois 757 int base=exp.get_base_aster();
71 francois 748
72 francois 581 if (affichageactif==1)
73     {
74     char messagever[255];
75 francois 691 sprintf(messagever," Calcul aster \033[1;32m%.1lf\033[1;33m ",version);
76 francois 581 affiche(messagever);
77     }
78 francois 773
79     MGLANCEURASTER aster;
80     int codesortie=aster.execute(param,nometude);
81 francois 326 if (codesortie!=0)
82     {
83 francois 773 sprintf(message," Code de sortie aster : %d",codesortie);
84     if (affichageactif==1) affiche(message);
85 gervaislavoie 382 return codesortie;
86 francois 326 }
87 francois 786 if (recures)
88 gervaislavoie 382 {
89 francois 786 if (affichageactif==1) affiche((char*)" Recuperation des resultats");
90     char nomfichiertmp[600];
91     MG_IMPORT imp;
92     sprintf(nomfichiertmp,"%s.resu",nometude);
93     std::string res=imp.aster(base,fem,nomfichiertmp,nometude);
94     if (affichageactif==1) printf("%s",(char*)("\033[1;31m"+res+"\033[1;33m").c_str());
95     if (avecenreg==true)
96     {
97 gervaislavoie 382 if (affichageactif==1) affiche((char*)" Enregistrement MAGIC");
98     sprintf(nomfichiertmp,"%s.magic",nometude);
99     fem->get_mg_maillage()->get_gestionnaire()->enregistrer(nomfichiertmp);
100     if (affichageactif==1) affiche((char*)" Enregistrement GMSH");
101     exp.gmsh(fem,nometude);
102     }
103 francois 786 }
104 mejrim 597 }
105    
106    
107 francois 725 void MGASTER::ini_param(void)
108     {
109     param.ajouter("Affiche_Code_Aster",0,OT_PARAMETRES::DOUBLE,"0. Affichage redirigé vers le fichier aster.log 1 affichage dans un terminal");
110     char fichier[500];
111     sprintf(fichier,"%s/.magic",getenv("HOME"));
112     param.lire(fichier);
113     param.enregistrer(fichier);
114    
115     }
116 mejrim 597