From 378c28ff5cbf4ea21ab7da78501f2531d03a2e4c Mon Sep 17 00:00:00 2001
From: eficas <>
Date: Mon, 22 Nov 2004 14:47:39 +0000
Subject: [PATCH] PN changement P1[4]

---
 Aster/az.comm | 48 ++++++++++++++++++++++++++++--------------------
 1 file changed, 28 insertions(+), 20 deletions(-)

diff --git a/Aster/az.comm b/Aster/az.comm
index cb1a6042..953eda8d 100644
--- a/Aster/az.comm
+++ b/Aster/az.comm
@@ -2,14 +2,22 @@
 
 DEBUT();
 P1 = 9.8;
+
 P2 = 8.8;
+
 P3 = 7;
+
 P5 = P3*P1;
-P4 = [2,3,4]
+
+P4 = [2,3,4];
 
 #Pas trouve		shellpanel
 
+aaa = FORMULE(VALE='a+z',
+              NOM_PARA=('a','z'),);
+
 MAIL=LIRE_MAILLAGE(UNITE=P3,);
+
 MAILLA2=LIRE_MAILLAGE(UNITE=P4[1],);
 # 'LIRE_MAILLAGE', 'UNITE'            --> uniquebasepanel
 
@@ -36,10 +44,10 @@ MOD=AFFE_MODELE(MAILLAGE=MAIL,
                          MODELISATION='COQUE',),),);
 
 CARA=AFFE_CARA_ELEM(MODELE=MOD,
-                    POUTRE=(_F(GROUP_MA='MA',
-                               SECTION='CERCLE',
-                               CARA='R',
-                               VALE=1.0,),),);
+                    POUTRE=_F(GROUP_MA='MA',
+                              SECTION='CERCLE',
+                              CARA='R',
+                              VALE=1.0,),);
 # 'AFFE_MODELE', 'MAILLAGE'           --> uniqueassdpanel
 #  AFFE_MODELE', 'AFFE', 'GROUP_MA'   --> plusieursbasepanel 
 # 'AFFE_MODELE', 'AFFE', 'PHENOMENE'  --> uniqueintopanel
@@ -52,12 +60,12 @@ F3=DEFI_FONCTION(NOM_PARA='DRX',
                  VALE_C=(5.0,7.0,9.0,9.0,8.0,7.0,),);
 # 'DEFI_FONCTION', 'VALE'             --> fonctionpanel  
 
-MATER2=DEFI_MATERIAU(ELAS=(_F(E=100000000000.0,
-                              NU=0.0,),),
-                     ECRO_ASYM_LINE=(_F(DC_SIGM_EPSI=0.0,
-                                        SY_C=200000000.0,
-                                        DT_SIGM_EPSI=0.0,
-                                        SY_T=50000000.0,),),);
+MATER2=DEFI_MATERIAU(ELAS=_F(E=100000000000.0,
+                             NU=0.0,),
+                     ECRO_ASYM_LINE=_F(DC_SIGM_EPSI=0.0,
+                                       SY_C=200000000.0,
+                                       DT_SIGM_EPSI=0.0,
+                                       SY_T=50000000.0,),);
 
 PS1=DEFI_PARA_SENSI(VALE=1.0,);
 
@@ -66,28 +74,28 @@ PS2=DEFI_PARA_SENSI(VALE=1.0,);
 PS3=DEFI_PARA_SENSI(VALE=1.0,);
 
 CHMAT2=AFFE_MATERIAU(MAILLAGE=MAIL,
-                     AFFE=(_F(TOUT='OUI',
-                              MATER=MATER2,),),);
+                     AFFE=_F(TOUT='OUI',
+                             MATER=MATER2,),);
 
 AAAZ=AFFE_CHAR_THER(MODELE=AFFE1,
-                    TEMP_IMPO=(_F(TOUT='OUI',
-                                  TEMP=0.0,),),);
+                    TEMP_IMPO=_F(TOUT='OUI',
+                                 TEMP=0.0,),);
 
 TH1=THER_LINEAIRE(MODELE=AFFE1,
                   CHAM_MATER=CHMAT2,
-                  EXCIT=(_F(CHARGE=AAAZ,),),
+                  EXCIT=_F(CHARGE=AAAZ,),
                   SENSIBILITE=(PS1,PS2,),);
 # 'THER_LINEAIRE', 'SENSIBILITE'       --> plusieursassdpanel
 
 ACA1=AFFE_CHAR_ACOU(MODELE=AFFE1,
-                    PRES_IMPO=(_F(TOUT='OUI',
-                                  PRES=('RI',3.0,3.0,),),),);
+                    PRES_IMPO=_F(TOUT='OUI',
+                                 PRES=('RI',3.0,3.0,),),);
 # 'AFFE_CHAR_ACOU', 'PRES_IMPO', 'PRES' --> uniquecomppanel
 
 MACRO_MATR_ASSE(MODELE=AFFE1,
                 NUME_DDL=CO('DDL1'),
-                MATR_ASSE=(_F(MATRICE=CO('MAT1'),
-                              OPTION='RIGI_THER',),),);
+                MATR_ASSE=_F(MATRICE=CO('MAT1'),
+                             OPTION='RIGI_THER',),);
 # 'MACRO_MATR_ASSE', 'MATR_ASSE', 'MATRICE'  --> uniquesdcopanel
 
 FIN();
-- 
2.39.2