*** empty log message ***

diff --git a/Editeur/Patrons/AnalyseModale.salome.comm b/Editeur/Patrons/AnalyseModale.salome.comm
new file mode 100644 (file)
index 0000000..898d571
--- /dev/null
+++ b/Editeur/Patrons/AnalyseModale.salome.comm
@@ -0,0 +1,64 @@
+DEBUT();
+
+# 1 - MISE EN DONNEES :
+# LECTURE DU MAILLAGE MED
+
+MAIL=LIRE_MAILLAGE(UNITE=21,
+                   FORMAT='MED',);
+#
+# DEFINITION DES ELEMENTS FINIS UTILISES
+
+MODELE=AFFE_MODELE(MAILLAGE=MAIL,
+                   AFFE=_F(TOUT='OUI',
+                           PHENOMENE='MECANIQUE',
+                           MODELISATION='3D',),);
+#
+# DEFINITION DU MATERIAU UTILISE
+
+ACIER=DEFI_MATERIAU(ELAS=_F(E=2.1E11,
+                            NU=0.3,
+                            RHO=7800.0,),);
+
+CHMAT=AFFE_MATERIAU(MAILLAGE=MAIL,
+                    AFFE=_F(TOUT='OUI',
+                            MATER=ACIER,),);
+                            
+#
+# DEFINITION DES CONDITIONS AUX LIMITES 
+
+BLOQUAGE=AFFE_CHAR_MECA(MODELE=MODELE,
+                        DDL_IMPO=_F(GROUP_MA='ABB1A1',
+                                    DX=0.0,
+                                    DY=0.0,
+                                    DZ=0.0,),);
+                                    
+# 2 - CALCUL DES CINQ PREMIERS MODES PROPRES
+#
+# CALCUL DES MATRICES ASSEMBLEES K ET M
+
+MACRO_MATR_ASSE(MODELE=MODELE,
+                CHAM_MATER=CHMAT,
+                CHARGE=BLOQUAGE,
+                NUME_DDL=CO('NUMEDDL'),
+                MATR_ASSE=(_F(MATRICE=CO('RIGIDITE'),
+                              OPTION='RIGI_MECA',),
+                           _F(MATRICE=CO('MASSE'),
+                              OPTION='MASS_MECA',),),);
+#
+
+MODES=MODE_ITER_SIMULT(MATR_A=RIGIDITE,
+                       MATR_B=MASSE,
+                       CALC_FREQ=_F(
+                       OPTION='PLUS_PETITE',
+                       NMAX_FREQ=5,),);
+#
+# ECRITURE DES MODES AU FORMAT MED
+
+IMPR_RESU(MODELE=MODELE,
+          FORMAT='MED',
+          RESU=_F(MAILLAGE=MAIL,
+                  RESULTAT=MODES,
+                  NOM_CHAM='DEPL',),);
+
+FIN();
+#

diff --git a/Editeur/Patrons/elasticite.salome.comm b/Editeur/Patrons/elasticite.salome.comm
new file mode 100644 (file)
index 0000000..66a43a4
--- /dev/null
+++ b/Editeur/Patrons/elasticite.salome.comm
@@ -0,0 +1,55 @@
+DEBUT();
+
+MA=DEFI_MATERIAU(ELAS=_F(E=210000000000, 
+                        NU=0.3,),);
+
+
+
+MAIL=LIRE_MAILLAGE(UNITE=21,
+                   FORMAT='MED',
+                   INFO_MED=2,);
+
+MODE=AFFE_MODELE(MAILLAGE=MAIL,
+               AFFE=_F(TOUT='OUI',
+                               PHENOMENE='MECANIQUE',
+                               MODELISATION= '3D',),);
+
+
+
+MATE=AFFE_MATERIAU(MAILLAGE=MAIL,
+                   AFFE=_F(TOUT='OUI',
+                           MATER=MA,),);
+
+CHAR=AFFE_CHAR_MECA(MODELE=MODE,
+                       FACE_IMPO=(
+                               _F(GROUP_MA='ABB1A1',
+                                               DX=0,
+                                               DY=0,
+                                               DZ=0,),),
+                       PRES_REP=(
+                               _F(GROUP_MA='CDD1C1',
+                                               PRES=10000,),),);
+
+RESU=MECA_STATIQUE(MODELE=MODE,
+                   CHAM_MATER=MATE,
+                   EXCIT=_F(CHARGE=CHAR,),);
+
+RESU=CALC_ELEM(reuse =RESU,
+               MODELE=MODE,
+               CHAM_MATER=MATE,
+               RESULTAT=RESU,
+               OPTION=('SIGM_ELNO_DEPL','EQUI_ELNO_SIGM',),
+               EXCIT=_F(
+               CHARGE=CHAR,),);
+
+RESU=CALC_NO(reuse =RESU,
+             RESULTAT=RESU,
+             OPTION=('SIGM_NOEU_DEPL', 'EQUI_NOEU_SIGM', ),);
+
+IMPR_RESU(FORMAT='MED',
+          UNITE=80,
+          RESU=_F(MAILLAGE=MAIL,
+                  RESULTAT=RESU,
+                  NOM_CHAM=('SIGM_NOEU_DEPL','EQUI_NOEU_SIGM','DEPL',),),);
+
+FIN();
\ No newline at end of file

diff --git a/Editeur/Patrons/limaillage.comm b/Editeur/Patrons/limaillage.comm
new file mode 100644 (file)
index 0000000..bb12c44
--- /dev/null
+++ b/Editeur/Patrons/limaillage.comm
@@ -0,0 +1,11 @@
+
+
+DEBUT(CODE=_F(NOM='VIDE',
+              NIV_PUB_WEB='INTERNET',),);
+#
+
+MA=LIRE_MAILLAGE();
+
+
+FIN();
+#

diff --git a/Editeur/Patrons/thermique.salome.comm b/Editeur/Patrons/thermique.salome.comm
new file mode 100644 (file)
index 0000000..61c6fa1
--- /dev/null
+++ b/Editeur/Patrons/thermique.salome.comm
@@ -0,0 +1,34 @@
+
+
+DEBUT();
+
+MESH=LIRE_MAILLAGE(UNITE=21,
+                   FORMAT='MED',);
+
+MATER=DEFI_MATERIAU(THER=_F(LAMBDA=1.2,),);
+
+MODEL=AFFE_MODELE(MAILLAGE=MESH,
+                  AFFE=_F(TOUT='OUI',
+                          PHENOMENE='THERMIQUE',
+                          MODELISATION='3D',),);
+
+MATFIELD=AFFE_MATERIAU(MAILLAGE=MESH,
+                       AFFE=_F(TOUT='OUI',
+                               MATER=MATER,),);
+
+LOADING=AFFE_CHAR_THER(MODELE=MODEL,
+                       TEMP_IMPO=_F(GROUP_MA='Bloq',
+                                    TEMP=23.,),
+                       FLUX_REP=_F(GROUP_MA='Press',
+                                   FLUN=2.,),
+                       SOURCE=_F(GROUP_MA='Source',
+                                 SOUR=2.,),);
+
+TEMP=THER_LINEAIRE(MODELE=MODEL,
+                   CHAM_MATER=MATFIELD,
+                   EXCIT=_F(CHARGE=LOADING,),);
+
+IMPR_RESU(FORMAT='MED',
+          RESU=_F(RESULTAT=TEMP,),);
+
+FIN();

diff --git a/Editeur/Patrons/vide.comm b/Editeur/Patrons/vide.comm
deleted file mode 100644 (file)
index 8340546..0000000
--- a/Editeur/Patrons/vide.comm
+++ /dev/null
@@ -1,13 +0,0 @@
-
-
-DEBUT(CODE=_F(NOM='VIDE',
-              NIV_PUB_WEB='INTERNET',),);
-#
-
-MA=LIRE_MAILLAGE();
-
-MO=AFFE_MODELE(MAILLAGE=MA,
-               AFFE=_F(PHENOMENE=None,),);
-
-FIN();
-#