From d15d68839e40c83badc7d581e10aab8ac4acd6ba Mon Sep 17 00:00:00 2001
From: eficas <>
Date: Fri, 9 Dec 2005 14:32:22 +0000
Subject: [PATCH] *** empty log message ***

---
 Editeur/Patrons/AnalyseModale.salome.comm     | 64 +++++++++++++++++++
 Editeur/Patrons/elasticite.salome.comm        | 55 ++++++++++++++++
 .../Patrons/{vide.comm => limaillage.comm}    |  2 -
 Editeur/Patrons/thermique.salome.comm         | 34 ++++++++++
 4 files changed, 153 insertions(+), 2 deletions(-)
 create mode 100644 Editeur/Patrons/AnalyseModale.salome.comm
 create mode 100644 Editeur/Patrons/elasticite.salome.comm
 rename Editeur/Patrons/{vide.comm => limaillage.comm} (59%)
 create mode 100644 Editeur/Patrons/thermique.salome.comm

diff --git a/Editeur/Patrons/AnalyseModale.salome.comm b/Editeur/Patrons/AnalyseModale.salome.comm
new file mode 100644
index 00000000..898d5715
--- /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
index 00000000..66a43a47
--- /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/vide.comm b/Editeur/Patrons/limaillage.comm
similarity index 59%
rename from Editeur/Patrons/vide.comm
rename to Editeur/Patrons/limaillage.comm
index 8340546a..bb12c443 100644
--- a/Editeur/Patrons/vide.comm
+++ b/Editeur/Patrons/limaillage.comm
@@ -6,8 +6,6 @@ DEBUT(CODE=_F(NOM='VIDE',
 
 MA=LIRE_MAILLAGE();
 
-MO=AFFE_MODELE(MAILLAGE=MA,
-               AFFE=_F(PHENOMENE=None,),);
 
 FIN();
 #
diff --git a/Editeur/Patrons/thermique.salome.comm b/Editeur/Patrons/thermique.salome.comm
new file mode 100644
index 00000000..61c6fa16
--- /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();
-- 
2.39.2