]> SALOME platform Git repositories - tools/eficas.git/commitdiff
Salome HOME
PN pour version 7
authoreficas <>
Mon, 4 Apr 2005 07:31:18 +0000 (07:31 +0000)
committereficas <>
Mon, 4 Apr 2005 07:31:18 +0000 (07:31 +0000)
Aster/Cata/Macro/impr_fonction_ops.py
Aster/Cata/Macro/lire_fonction_ops.py
Aster/Cata/Macro/lire_table_ops.py
Aster/Cata/Macro/macr_ascouf_mail_ops.py
Aster/Cata/Macro/macro_mode_meca_ops.py
Aster/Cata/Macro/stanley_ops.py

index bdba4bf4b7513136d080180f31b18217149f2016..4f2ace216f636d3feefff01713ac1b2a26687bcb 100644 (file)
@@ -1,4 +1,4 @@
-#@ MODIF impr_fonction_ops Macro  DATE 22/11/2004   AUTEUR MCOURTOI M.COURTOIS 
+#@ MODIF impr_fonction_ops Macro  DATE 30/11/2004   AUTEUR MCOURTOI M.COURTOIS 
 # -*- coding: iso-8859-1 -*-
 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
@@ -32,6 +32,8 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
    macro='IMPR_FONCTION'
    import aster
    from Accas import _F
+   from Utilitai import Graph
+   from Utilitai.Utmess import UTMESS
    ier=0
    # La macro compte pour 1 dans la numerotation des commandes
    self.set_icmd(1)
@@ -59,9 +61,8 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
          niv='A'
       else:
          niv='I'
-      from Utilitai.Utmess import UTMESS
       UTMESS(niv,macro,'Le fichier '+nomfich+' existe déjà, on écrit ' \
-             'à la suite.',self)
+             'à la suite.')
 
    # 0.2. Récupération des valeurs sous COURBE
    unparmi=('FONCTION','LIST_RESU','FONC_X','ABSCISSE')
@@ -97,8 +98,7 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
                typ=obj.__class__.__name__
                break
          if obj==None:
-            from Utilitai.Utmess import UTMESS
-            UTMESS('S',macro,'incohérence entre le catalogue et la macro.', self)
+            UTMESS('S',macro,'incohérence entre le catalogue et la macro.')
          if typi=='FONCTION':
             if typ=='nappe_sdaster':
                lpar,lval=obj.Valeurs()
@@ -118,7 +118,6 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
    # 1. Récupération des valeurs des N courbes sous forme
    #    d'une liste de N listes
    #----------------------------------------------
-   from Utilitai import Graph
    graph=Graph.Graph()
    iocc=-1
    for dCi in Courbe:
@@ -131,11 +130,10 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
             obj=dCi[typi]
             typ=obj.__class__.__name__
             break
-      if not dCi.has_key('LEGENDE'):
-         dCi['LEGENDE']=obj.get_name()
+      if not dCi.has_key('LEGENDE') and hasattr(obj,'get_name'):
+            dCi['LEGENDE']=obj.get_name()
       if obj==None:
-         from Utilitai.Utmess import UTMESS
-         UTMESS('S',macro,'incohérence entre le catalogue et la macro.',self)
+         UTMESS('S',macro,'incohérence entre le catalogue et la macro.')
 
       # 1.2. Extraction des valeurs
 
@@ -175,7 +173,7 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
                   'Val' : [lx,ly],
                   'Lab' : [dic['NOM_PARA_FONC'],dic['NOM_RESU']]
                }
-               AjoutParaCourbe(dicC, args=dCi)
+               Graph.AjoutParaCourbe(dicC, args=dCi)
                graph.AjoutCourbe(**dicC)
          else:
             ftmp__=obj
@@ -208,27 +206,25 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
                   'Val' : [lx,lr],
                   'Lab' : [dpar['NOM_PARA'],dpar['NOM_RESU']]
                }
-            AjoutParaCourbe(dicC, args=dCi)
+            Graph.AjoutParaCourbe(dicC, args=dCi)
             graph.AjoutCourbe(**dicC)
 
       # 1.2.2. Mot-clé LIST_RESU
       elif typi=='LIST_RESU':
          if interp and iocc>0:
-            from Utilitai.Utmess import UTMESS
             UTMESS('S',macro,"""Il n'y a pas de règles d'interpolation pour LIST_PARA/LIST_RESU,
      LIST_PARA/LIST_RESU ne peut donc apparaitre qu'une seule fois
-     et à la première occurence de COURBE""",self)
+     et à la première occurence de COURBE""")
          lx=dCi['LIST_PARA'].Valeurs()
          lr=obj.Valeurs()
          if len(lx)<>len(lr):
-            from Utilitai.Utmess import UTMESS
-            UTMESS('S',macro,"LIST_PARA et LIST_RESU n'ont pas la meme taille",self)
+            UTMESS('S',macro,"LIST_PARA et LIST_RESU n'ont pas la meme taille")
          # on stocke les données dans le Graph
          dicC={
             'Val' : [lx,lr],
             'Lab' : [dCi['LIST_PARA'].get_name(),obj.get_name()]
          }
-         AjoutParaCourbe(dicC, args=dCi)
+         Graph.AjoutParaCourbe(dicC, args=dCi)
          graph.AjoutCourbe(**dicC)
 
       # 1.2.3. Mot-clé FONC_X
@@ -238,12 +234,10 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
          ob2=dCi['FONC_Y']
          # peut-on blinder au niveau du catalogue
          if typ=="nappe_sdaster" or ob2.__class__.__name__=="nappe_sdaster":
-            from Utilitai.Utmess import UTMESS
-            UTMESS('S',macro,"FONC_X/FONC_Y ne peuvent pas etre des nappes !",self)
+            UTMESS('S',macro,"FONC_X/FONC_Y ne peuvent pas etre des nappes !")
          if interp and iocc>0:
-            from Utilitai.Utmess import UTMESS
             UTMESS('S',macro,"""Au format 'TABLEAU' ,FONC_X/FONC_Y ne peut apparaitre qu'une seule fois
-     et à la première occurence de COURBE""",self)
+     et à la première occurence de COURBE""")
          ftmp__=obj
          dpar=ftmp__.Parametres()
          ftm2__=ob2
@@ -290,27 +284,25 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
                'Val' : [lx,ly],
                'Lab' : [dpar['NOM_RESU'],dpa2['NOM_RESU']]
             }
-         AjoutParaCourbe(dicC, args=dCi)
+         Graph.AjoutParaCourbe(dicC, args=dCi)
          graph.AjoutCourbe(**dicC)
 
       # 1.2.4. Mot-clé ABSCISSE / ORDONNEE
       elif typi=='ABSCISSE':
          if interp and iocc>0:
-            from Utilitai.Utmess import UTMESS
             UTMESS('S',macro,"""Il n'y a pas de règles d'interpolation pour ABSCISSE/ORDONNEE,
      ABSCISSE/ORDONNEE ne peut donc apparaitre qu'une seule fois
-     et à la première occurence de COURBE""",self)
+     et à la première occurence de COURBE""")
          lx=obj
          lr=dCi['ORDONNEE']
          if len(lx)<>len(lr):
-            from Utilitai.Utmess import UTMESS
-            UTMESS('S',macro,"ABSCISSE et ORDONNEE n'ont pas la meme taille",self)
+            UTMESS('S',macro,"ABSCISSE et ORDONNEE n'ont pas la meme taille")
          # on stocke les données dans le Graph
          dicC={
             'Val' : [lx,lr],
             'Lab' : ['Absc','Ordo']
          }
-         AjoutParaCourbe(dicC, args=dCi)
+         Graph.AjoutParaCourbe(dicC, args=dCi)
          graph.AjoutCourbe(**dicC)
 
       # 1.2.9. ménage
@@ -330,6 +322,7 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
    #----------------------------------------------
 
    # 2.0. Surcharge des propriétés du graphique et des axes
+   # (bloc quasiment identique dans Table)
    if args['TITRE']<>None:          graph.Titre=args['TITRE']
    if args['SOUS_TITRE']<>None:     graph.SousTitre=args['SOUS_TITRE']
    if FORMAT in ('XMGRACE','AGRAF'):
@@ -376,8 +369,7 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
 
    # 2.39. Format inconnu
    else:
-      from Utilitai.Utmess import UTMESS
-      UTMESS('S',macro,'Format inconnu : '+FORMAT,self)
+      UTMESS('S',macro,'Format inconnu : '+FORMAT)
 
    # Traiter le cas des UL réservées
    if args['UNITE'] and args['UNITE'] in ul_reserve:
@@ -399,22 +391,3 @@ def impr_fonction_ops(self, FORMAT, COURBE, INFO, **args):
             TYPE='ASCII', ACCES='APPEND' )
 
    return ier
-
-# ------------------------------------------------------------------------------
-def AjoutParaCourbe(dCourbe, args):
-   """Ajoute les arguments fournis par l'utilisateur (args) dans le dictionnaire
-   décrivant la courbe (dCourbe).
-   """
-   # correspondance : mot-clé Aster / clé du dico de l'objet Graph
-   keys={
-      'LEGENDE'         : 'Leg',
-      'STYLE'           : 'Sty',
-      'COULEUR'         : 'Coul',
-      'MARQUEUR'        : 'Marq',
-      'FREQ_MARQUEUR'   : 'FreqM',
-      'TRI'             : 'Tri',
-   }
-   for mc, key in keys.items():
-      if args.has_key(mc):
-         dCourbe[key]=args[mc]
-
index 25f568078176e9ff8c786556fc5926f9e00d43ba..52d1e90665e37f1c7ce2fc70fa5cbf498285b20e 100644 (file)
@@ -1,4 +1,4 @@
-#@ MODIF lire_fonction_ops Macro  DATE 20/09/2004   AUTEUR DURAND C.DURAND 
+#@ MODIF lire_fonction_ops Macro  DATE 30/11/2004   AUTEUR MCOURTOI M.COURTOIS 
 # -*- coding: iso-8859-1 -*-
 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 
 import string,os,Numeric
 
-
-######################################################################
-####  méthode de construction du VALE pour le format libre
-######################################################################
+# ------------------------------------------------------------------------------
 def m_format_libre(texte,INDIC_PARA,INDIC_RESU,SEPAR):
+  """Méthode de construction du VALE pour le format libre
+  format LIBRE
+  Les lignes contenant autre chose que des séquences de nombres
+  réels et de séparateurs sont considérées comme délimitant deux
+  fonctions différentes. Cette situation correspond à l exception
+  ValueError levée par le map de float. Le deuxieme indice de
+  INDIC_PARA et INDIC_RESU est l indice permettant de pointer sur la
+  fonction voulue, au sens de ce découpage.
+  """
 
   from Utilitai.transpose import transpose
-
-  # format LIBRE
-  # Les lignes contenant autre chose que des séquences de nombres
-  # réels et de séparateurs sont considérées comme délimitant deux
-  # fonctions différentes. Cette situation correspond à l exception
-  # ValueError levée par le map de float. Le deuxieme indice de
-  # INDIC_PARA et INDIC_RESU est l indice permettant de pointer sur la
-  # fonction voulue, au sens de ce découpage.
-
   l_fonc=[]
   fonc  =[]
   ier   =0
@@ -93,11 +90,10 @@ def m_format_libre(texte,INDIC_PARA,INDIC_RESU,SEPAR):
   liste_vale=reduce(add,liste_vale)
   return ier,'',liste_vale
 
-######################################################################
-####  recherche d une liste simple
-######################################################################
+# ------------------------------------------------------------------------------
 def liste_simple(texte,INDIC_PARA,SEPAR):
-
+  """recherche d'une liste simple
+  """
   # format LIBRE
   # liste simple
 
@@ -137,12 +133,12 @@ def liste_simple(texte,INDIC_PARA,SEPAR):
   vale_1=l_fonc[ind_para[0]][:,ind_para[1]]
   return ier,'',vale_1.tolist()
 
-######################################################################
-####  méthode corps de la macro
-######################################################################
+# ------------------------------------------------------------------------------
 def lire_fonction_ops(self,FORMAT,TYPE,SEPAR,INDIC_PARA,UNITE,
                       NOM_PARA,NOM_RESU,INTERPOL,PROL_DROITE,
                       PROL_GAUCHE,VERIF,INFO,TITRE,**args):
+  """Méthode corps de la macro
+  """
   ier=0
 
   from Accas import _F
index f42d2c95455cfbc4825c29ad25d31ac1284cf172..e7ba100663480e7f9e7879ba06ef8efb6aed4044 100644 (file)
@@ -1,4 +1,4 @@
-#@ MODIF lire_table_ops Macro  DATE 14/09/2004   AUTEUR MCOURTOI M.COURTOIS 
+#@ MODIF lire_table_ops Macro  DATE 30/11/2004   AUTEUR MCOURTOI M.COURTOIS 
 # -*- coding: iso-8859-1 -*-
 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
 
-
-
 import string
 
-
-######################################################################
-####  méthode de construction du dictionnaire
-####  PARAMETRE / LISTE DE VALEURS
-######################################################################
+# ------------------------------------------------------------------------------
 def lecture_table(texte,nume,separ):
+  """Méthode de construction du dictionnaire PARAMETRE / LISTE DE VALEURS
+  format ASTER
+  Les lignes contenant autre chose que des séquences de nombres
+  réels et de séparateurs sont considérées comme délimitant deux
+  fonctions différentes. Cette situation correspond à l exception
+  ValueError levée par le map de float. Le deuxieme indice de
+  VALE_PARA et VALE_RESU est l indice permettant de pointer sur la
+  fonction voulue, au sens de ce découpage.
+  """
 
   from Utilitai.transpose import transpose
-  # format ASTER
-  # Les lignes contenant autre chose que des séquences de nombres
-  # réels et de séparateurs sont considérées comme délimitant deux
-  # fonctions différentes. Cette situation correspond à l exception
-  # ValueError levée par le map de float. Le deuxieme indice de
-  # VALE_PARA et VALE_RESU est l indice permettant de pointer sur la
-  # fonction voulue, au sens de ce découpage.
-
   if string.strip(separ)=='' : separ=None
   tab_lue={}
   nume_lign=[]
@@ -115,11 +110,12 @@ def lecture_table(texte,nume,separ):
 
   return 0,None,titre_tab,list_para,tab_lue
 
-######################################################################
-####  méthode corps de la macro LIRE_TABLE
-######################################################################
+
+# ------------------------------------------------------------------------------
 def lire_table_ops(self,UNITE,FORMAT,NUME_TABLE,SEPARATEUR,
                         TYPE_TABLE,PARA,TITRE,**args):   
+  """Méthode corps de la macro LIRE_TABLE
+  """
   from Accas import _F
   import os
 
index 58ca448cc1fd96ad9ee62ba121b9a2c94ad8be4a..f7b95acf0ee074b3190ac775ecd1c0179f67a91d 100644 (file)
@@ -1,4 +1,4 @@
-#@ MODIF macr_ascouf_mail_ops Macro  DATE 14/09/2004   AUTEUR MCOURTOI M.COURTOIS 
+#@ MODIF macr_ascouf_mail_ops Macro  DATE 30/11/2004   AUTEUR MCOURTOI M.COURTOIS 
 # -*- coding: iso-8859-1 -*-
 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 
 from math import sqrt,cos,sin,pi,tan,log,fabs,ceil,fmod,floor
 
-################################################################################
-################################################################################
-################################################################################
+# ------------------------------------------------------------------------------
 def ASCFON(RC,RM,EP,ORIEN,AZIM,AXEC,POS,Y):
-#     FONCTION F(CP)=CC
-#     OU CC EST LA TAILLE DE LA FISSURE SUR LE COUDE 
-#     ET CP LA TAILLE DE FISSURE SUR LA PLAQUE
+  """
+  FONCTION F(CP)=CC
+  OU CC EST LA TAILLE DE LA FISSURE SUR LE COUDE 
+  ET CP LA TAILLE DE FISSURE SUR LA PLAQUE
+  """
   AZIMR = AZIM*2.*pi/360.
   if POS=='DEB_INT': X = RM-EP/2.
   else             : X = RM+EP/2.
@@ -53,42 +53,41 @@ def ASCFON(RC,RM,EP,ORIEN,AZIM,AXEC,POS,Y):
                                                   )                  \
                     - 2.0*AXEC 
   return f_ASCFON
-#
-################################################################################
-################################################################################
-################################################################################
-#     MACR_ASCOUF_MAIL ASCFIS
-#     taille initiale du defaut fissure sur la plaque en
-#     fonction des donnees sur le coude ou le tube suivant la
-#     transformation choisie
-#
-#-----------------DONNEES FOURNIES PAR L UTILISATEUR--------------------
-#
-#     ALPHA = ANGLE DU COUDE
-#     RM    = RAYON MOYEN DU COUDE
-#     RC    = RAYON DE CINTRAGE DU COUDE
-#     EP    = EPAISSEUR DU COUDE
-#     SUREP = VALEUR DE LA SUREPAISSEUR
-#     GEOM  = TYPE DE GEOMETRIE MODELISEE (COUDE OU TUBE)   
-#     AXEA  = PROFONDEUR FISSURE (DEMI PETIT AXE)
-#     AXEC  = DEMI GRAND AXE FISSURE
-#     AZIM  = POSITION AZIMUTALE DU CENTRE DE LA FISSURE 
-#     POS   = POSITION EN PEAU (EXTERNE OU INTERNE)
-#     SF    = ABCISSE CURVILIGNE LONGITUDINALE DU CENTRE DE LA FISSURE
-#     DSF   = BOOLEEN EXPRESSION POSITION CENTRE FISSURE 
-#     BETA  = POSITION ANGULAIRE DU CENTRE DE LA FISSURE
-#     ORIEN = ORIENTATION DE LA FISSURE
-#
-#----------------------DONNEES RENVOYEES-----------------------
-#
-#     AXEAP = PROFONDEUR DE LA FISSURE (PETIT AXE) SUR LA PLAQUE
-#     AXECP = LONGUEUR DE LA FISSURE (GRAND AXE) SUR LA PLAQUE
-#     SFP   = ABCISSE CURVILIGNE LONGITUDINALE CENTRE FISSURE
-#             SUR LA PLAQUE
-#
+
+# ------------------------------------------------------------------------------
 def ASCFIS(ALPHA, RM, RC, EP, SUREP, GEOM, AXEA,
            AXEC, AZIM, POS, SF, DSF, BETA, ORIEN):
+  """
+  MACR_ASCOUF_MAIL ASCFIS
+  taille initiale du defaut fissure sur la plaque en
+  fonction des donnees sur le coude ou le tube suivant la
+  transformation choisie
+
+  ------------DONNEES FOURNIES PAR L UTILISATEUR--------------------
+
+  ALPHA = ANGLE DU COUDE
+  RM    = RAYON MOYEN DU COUDE
+  RC    = RAYON DE CINTRAGE DU COUDE
+  EP    = EPAISSEUR DU COUDE
+  SUREP = VALEUR DE LA SUREPAISSEUR
+  GEOM  = TYPE DE GEOMETRIE MODELISEE (COUDE OU TUBE)   
+  AXEA  = PROFONDEUR FISSURE (DEMI PETIT AXE)
+  AXEC  = DEMI GRAND AXE FISSURE
+  AZIM  = POSITION AZIMUTALE DU CENTRE DE LA FISSURE 
+  POS   = POSITION EN PEAU (EXTERNE OU INTERNE)
+  SF    = ABCISSE CURVILIGNE LONGITUDINALE DU CENTRE DE LA FISSURE
+  DSF   = BOOLEEN EXPRESSION POSITION CENTRE FISSURE 
+  BETA  = POSITION ANGULAIRE DU CENTRE DE LA FISSURE
+  ORIEN = ORIENTATION DE LA FISSURE
+
+  -----------------DONNEES RENVOYEES-----------------------
+
+  AXEAP = PROFONDEUR DE LA FISSURE (PETIT AXE) SUR LA PLAQUE
+  AXECP = LONGUEUR DE LA FISSURE (GRAND AXE) SUR LA PLAQUE
+  SFP   = ABCISSE CURVILIGNE LONGITUDINALE CENTRE FISSURE
+          SUR LA PLAQUE
 
+  """
   from Utilitai import funct_root
   if POS=='DEB_INT':
      if (AZIM>=120.) and (AZIM<=240.0): X = RM-EP/2.0 - SUREP
@@ -235,23 +234,24 @@ def ASCFIS(ALPHA, RM, RC, EP, SUREP, GEOM, AXEA,
   else: AXEAP = AXEA
 #
   return AXEAP,AXECP,SFP 
-################################################################################
-################################################################################
-################################################################################
-#     MACR_ASCOUF_MAIL ASCSEP
-#     taille initiale sur la plaque des sous-epaisseurs
-#
-#-----------------DONNEES FOURNIES PAR L UTILISATEUR--------------------
-#
-#     ALPHA = ANGLE DU COUDE
-#     RM    = RAYON MOYEN DU COUDE
-#     RC    = RAYON DE CINTRAGE DU COUDE
-#     EP    = EPAISSEUR DU COUDE
-#     GEOM  = TYPE DE GEOMETRIE MODELISEE (COUDE OU TUBE)  
-#     SYME  = QUART DE STRUCTURE SI 'OUI'
-#    
 
+
+# ------------------------------------------------------------------------------
 def ASCSEP(MCL_SOUS_EPAIS,ALPHA,RM,RC,EP,GEOM,SYME):
+  """
+  MACR_ASCOUF_MAIL ASCSEP
+  taille initiale sur la plaque des sous-epaisseurs
+
+  ------------DONNEES FOURNIES PAR L UTILISATEUR--------------------
+
+  ALPHA = ANGLE DU COUDE
+  RM    = RAYON MOYEN DU COUDE
+  RC    = RAYON DE CINTRAGE DU COUDE
+  EP    = EPAISSEUR DU COUDE
+  GEOM  = TYPE DE GEOMETRIE MODELISEE (COUDE OU TUBE)  
+  SYME  = QUART DE STRUCTURE SI 'OUI'
+  """
   ier=0
   CG=pi/180.
 #
@@ -403,25 +403,26 @@ def ASCSEP(MCL_SOUS_EPAIS,ALPHA,RM,RC,EP,GEOM,SYME):
       print '<=> TAILLE EQUIVALENTE PAR RAPPORT A L ANGLE DU COUDE (DEGRES): %.2f'%(ssep.ILONP*360/(2*pi*RC))  
 #
   return ier
-################################################################################
-################################################################################
-################################################################################
-#     MACR_ASCOUF_MAIL ASCTCI
-#     APPELEE DANS : ASCSYM et ASCPRE
-#     CALCUL TABLEAU TRIE DES ABSCISSES DES CENTRES DE SOUS-EPAISSEURS
-#
-#-----------------DONNEES FOURNIES PAR L UTILISATEUR--------------------
-#
-#     RM    = RAYON MOYEN DU COUDE
-#
-#----------------------DONNEES RENVOYEES-----------------------
-#
-#     IABSC1 = CORRESPONDANCE ABSC. CURVI. CIRCONF. SOUS-EP. I
-#     IABSC2 = CORRESPONDANCE ABSC. GAUCHE ET DROITE CIRCONF. SOUS-EP. I
-#     COORXD = ABSC. DU BORD DROIT DE LA SOUS-EP I
-#     COORXG = ABSC. DU BORD GAUCHE DE LA SOUS-EP I
-#
+
+# ------------------------------------------------------------------------------
 def ASCTCI(MCL_SOUS_EPAIS,RM):
+  """
+  MACR_ASCOUF_MAIL ASCTCI
+  APPELEE DANS : ASCSYM et ASCPRE
+  CALCUL TABLEAU TRIE DES ABSCISSES DES CENTRES DE SOUS-EPAISSEURS
+
+  ------------DONNEES FOURNIES PAR L UTILISATEUR--------------------
+
+  RM    = RAYON MOYEN DU COUDE
+
+  -----------------DONNEES RENVOYEES-----------------------
+
+  IABSC1 = CORRESPONDANCE ABSC. CURVI. CIRCONF. SOUS-EP. I
+  IABSC2 = CORRESPONDANCE ABSC. GAUCHE ET DROITE CIRCONF. SOUS-EP. I
+  COORXD = ABSC. DU BORD DROIT DE LA SOUS-EP I
+  COORXG = ABSC. DU BORD GAUCHE DE LA SOUS-EP I
+
+  """
 #
 # --- tri du tableau des abscisses curvilignes circonf. plaque
 #
@@ -484,29 +485,29 @@ def ASCTCI(MCL_SOUS_EPAIS,RM):
        print '%d) SOUS-EP NO %d <> XD = %.2f'%(j+1,IABSC1[IABSC2[j]/2-1],TAMPON[j][0])
 #    
   return TAMPON,IABSC1,IABSC2,COORXD,COORXG
-#
-################################################################################
-################################################################################
-################################################################################
-#     MACR_ASCOUF_MAIL ASCTLO
-#     APPELEE DANS : ASCSYM et ASCPRE
-#     CALCUL TABLEAU TRIE DES ORDONNEES DES CENTRES DE SOUS-EPAISSEURS
-#
-#-----------------DONNEES FOURNIES PAR L UTILISATEUR--------------------
-#
-#     RC     = RAYON MOYEN DU COUDE
-#     ALPHA  = ANGLE DU COUDE
-#     LTCHAR = LONGUEUR DE L'EMBOUT DU COTE CHARGEMENT
-#     LTCLIM  = LONGUEUR DE L'EMBOUT DU COTE CONDITIONS AUX LIMITES
-#
-#----------------------DONNEES RENVOYEES-----------------------
-#
-#     IORDO1 = CORRESPONDANCE ORDO. CURVI. LONGIT. SOUS-EP. I
-#     IORDO2 = CORRESPONDANCE ORDO. GAUCHE ET DROITE LONGIT. SOUS-EP. I
-#     COORYI = ORDONNEE. DU BORD INTERIEUR DE LA SOUS-EP I
-#     COORYS = ORDONNEE. DU BORD SUPERIEUR DE LA SOUS-EP I
-#
+
+# ------------------------------------------------------------------------------
 def ASCTLO(MCL_SOUS_EPAIS,RC,ALPHA,LTCHAR,LTCLIM):
+  """
+  MACR_ASCOUF_MAIL ASCTLO
+  APPELEE DANS : ASCSYM et ASCPRE
+  CALCUL TABLEAU TRIE DES ORDONNEES DES CENTRES DE SOUS-EPAISSEURS
+
+  ------------DONNEES FOURNIES PAR L UTILISATEUR--------------------
+
+  RC     = RAYON MOYEN DU COUDE
+  ALPHA  = ANGLE DU COUDE
+  LTCHAR = LONGUEUR DE L'EMBOUT DU COTE CHARGEMENT
+  LTCLIM  = LONGUEUR DE L'EMBOUT DU COTE CONDITIONS AUX LIMITES
+
+  -----------------DONNEES RENVOYEES-----------------------
+
+  IORDO1 = CORRESPONDANCE ORDO. CURVI. LONGIT. SOUS-EP. I
+  IORDO2 = CORRESPONDANCE ORDO. GAUCHE ET DROITE LONGIT. SOUS-EP. I
+  COORYI = ORDONNEE. DU BORD INTERIEUR DE LA SOUS-EP I
+  COORYS = ORDONNEE. DU BORD SUPERIEUR DE LA SOUS-EP I
+
+  """
 #
 # tri du tableau des abscisses curvilignes axiales plaque
 #
@@ -623,6 +624,7 @@ def ASCTLO(MCL_SOUS_EPAIS,RC,ALPHA,LTCHAR,LTCLIM):
 #     NLX = NOMBRE TOTAL D'ELEMENTS CIRCONF. DE LA SOUS-EPAISSEUR K
 #     NLY = NOMBRE TOTAL D'ELEMENTS LONGIT. DE LA SOUS-EPAISSEUR K
 #
+# ------------------------------------------------------------------------------
 def ASCNBE(MCL_SOUS_EPAIS,COORXG,COORXD,COORYI,COORYS,BD,BG,BS,BI,DNX,DNY,RM,RC,
            INDSEX,INDSEY,IABSC1,IORDO1):
 #
@@ -697,6 +699,7 @@ def ASCNBE(MCL_SOUS_EPAIS,COORXG,COORXD,COORYI,COORYS,BD,BG,BS,BI,DNX,DNY,RM,RC,
 #     NZONEX = NOMBRE DE ZONES CIRCONFERENTIELLES
 #     NZONEY = NOMBRE DE ZONES LONGITUDINALES       
 #
+# ------------------------------------------------------------------------------
 def ASCSYM(MCL_SOUS_EPAIS,RM,RC,ALPHA,LTCHAR,LTCLIM):
   ier=0
   DERAFC = 18.
@@ -855,6 +858,7 @@ def ASCSYM(MCL_SOUS_EPAIS,RM,RC,ALPHA,LTCHAR,LTCLIM):
 #     NZONEX = NOMBRE DE ZONES CIRCONFERENTIELLES
 #     NZONEY = NOMBRE DE ZONES LONGITUDINALES       
 #
+# ------------------------------------------------------------------------------
 def ASCPRE(MCL_SOUS_EPAIS,RM,RC,ALPHA,SYME,LTCHAR,LTCLIM):
   ier=0
   ALPHAR = 2.*ALPHA*pi/360.
@@ -1398,6 +1402,7 @@ def ASCPRE(MCL_SOUS_EPAIS,RM,RC,ALPHA,SYME,LTCHAR,LTCLIM):
 #     "PLAQUE FISSUREE"
 #
 
+# ------------------------------------------------------------------------------
 def write_file_dgib_ASCFDO(nomFichierDATG,RM,RC,ALPHA,NBTRAN,EP1,EP2,EPI,TETA1,
                            TETA2,LTRAN,SUREP,LTCHAR,LTCLIM,TYPBOL,AXEAP,AXECP,NT,NS,NC,
                            SFP,ORIEN,AZIM,RC0,RC2,RC3,POSIT,EPSI,NIVMAG,SYME, loc_datg) :
@@ -1487,6 +1492,7 @@ def write_file_dgib_ASCFDO(nomFichierDATG,RM,RC,ALPHA,NBTRAN,EP1,EP2,EPI,TETA1,
 #     NLX = NOMBRE D'ELEMENTS CIRCONF. DE LA SOUS-EPAISSEUR
 #     NLY = NOMBRE D'ELEMENTS LONGI DE LA SOUS-EPAISSEUR
 
+# ------------------------------------------------------------------------------
 def write_file_dgib_ASCSQO(nomFichierDATG,TYPELE,RM,RC,ALPHA,NBTRAN,EP1,EP2,
                            EPI,TETA1,MCL_SOUS_EPAIS,TETA2,LTRAN,LTCHAR,LTCLIM,GEOM,
                            SYME,NBEP,NLX,NLY,NIVMAG,loc_datg) :
@@ -1594,6 +1600,7 @@ def write_file_dgib_ASCSQO(nomFichierDATG,TYPELE,RM,RC,ALPHA,NBTRAN,EP1,EP2,
 #     texte = chaine de caracteres contenant des instructions gibi
 #             de post-traitements
 #
+# ------------------------------------------------------------------------------
 def write_subpart_file_pgib_POST(MCL_SOUS_EPAIS,NLX,NLY):
   CAR3 = ('fdro','exdr','extr','exga','fgau','inga','intr','indr')
   
@@ -1655,6 +1662,7 @@ def write_subpart_file_pgib_POST(MCL_SOUS_EPAIS,NLX,NLY):
 #     NLX = NOMBRE TOTAL D'ELEMENTS CIRCONF. DE LA SOUS-EPAISSEUR K
 #     NLY = NOMBRE TOTAL D'ELEMENTS LONGIT. DE LA SOUS-EPAISSEUR K
 
+# ------------------------------------------------------------------------------
 def write_file_pgib_ASCSQ2(MCL_SOUS_EPAIS,NLX,NLY):
   POIVIR = ' ;\n'
   texte=write_subpart_file_pgib_POST(MCL_SOUS_EPAIS,NLX,NLY)
@@ -1680,6 +1688,7 @@ def write_file_pgib_ASCSQ2(MCL_SOUS_EPAIS,NLX,NLY):
 #     IL S'AGIT DE LA PREMIERE PARTIE ( AVANT LES DONNEES UTILISATEUR )
 #
 #
+# ------------------------------------------------------------------------------
 def write_file_dgib_ASCSP1(nomFichierDATG,TYPELE,MCL_SOUS_EPAIS,NIVMAG,loc_datg):
 
   POIVIR = ' ;\n'
@@ -1748,6 +1757,7 @@ def write_file_dgib_ASCSP1(nomFichierDATG,TYPELE,MCL_SOUS_EPAIS,NIVMAG,loc_datg)
 #     NZONEX = NOMBRE DE ZONES CIRCONFERENTIELLES
 #     NZONEY = NOMBRE DE ZONES LONGITUDINALES  
 #
+# ------------------------------------------------------------------------------
 def write_file_pgib_ASCSDO(RM,RC,ALPHA,EP,LTCLIM,LTCHAR,NBEP,
                            NZONEX,NZONEY,BG,BD,BI,BS,INDBG,INDBD,INDBI,INDBS,
                            DNX,DNY,MCL_SOUS_EPAIS,GEOM,SYME):
@@ -1858,6 +1868,7 @@ def write_file_pgib_ASCSDO(RM,RC,ALPHA,EP,LTCLIM,LTCHAR,NBEP,
 ################################################################################
 ################################################################################
 
+# ------------------------------------------------------------------------------
 def write_file_pgib_ASCSP2(MCL_SOUS_EPAIS,NLX,NLY):
 
   POIVIR = ' ;\n'
@@ -1921,6 +1932,7 @@ def write_file_pgib_ASCSP2(MCL_SOUS_EPAIS,NLX,NLY):
 ################################################################################
 ################################################################################
 
+# ------------------------------------------------------------------------------
 def write_file_dgib_ASCRDO(nomFichierDATG,TYPELE,NIVMAG,TYPBOL,ALPHA,RC,RM,EP,SUREP,
                            LTCLIM,LTCHAR,NBEP,loc_datg):
 
@@ -1984,6 +1996,7 @@ def write_file_dgib_ASCRDO(nomFichierDATG,TYPELE,NIVMAG,TYPBOL,ALPHA,RC,RM,EP,SU
 ################################################################################
 ################################################################################
 ################################################################################
+# ------------------------------------------------------------------------------
 def macr_ascouf_mail_ops(self,EXEC_MAILLAGE,TYPE_ELEM,COUDE,
                               SOUS_EPAIS_COUDE,SOUS_EPAIS_MULTI,
                               FISS_COUDE,IMPRESSION,INFO,**args):
index 882890eb69b163fdc161bd6b24ce79da276fdcd9..efbd4db3df06fda6d65f4229770be4de59900c18 100644 (file)
@@ -1,4 +1,4 @@
-#@ MODIF macro_mode_meca_ops Macro  DATE 14/09/2004   AUTEUR MCOURTOI M.COURTOIS 
+#@ MODIF macro_mode_meca_ops Macro  DATE 30/11/2004   AUTEUR MCOURTOI M.COURTOIS 
 # -*- coding: iso-8859-1 -*-
 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
@@ -38,6 +38,7 @@ def macro_mode_meca_ops(self,MATR_A,MATR_B,INFO,METHODE,OPTION,CALC_FREQ,
   NORM_MODE         =self.get_cmd('NORM_MODE')
   IMPR_RESU         =self.get_cmd('IMPR_RESU')
   EXTR_MODE         =self.get_cmd('EXTR_MODE')
+  DETRUIRE          =self.get_cmd('DETRUIRE')
   # La macro compte pour 1 dans la numerotation des commandes
   #self.icmd=1
   self.set_icmd(1)
@@ -128,9 +129,11 @@ def macro_mode_meca_ops(self,MATR_A,MATR_B,INFO,METHODE,OPTION,CALC_FREQ,
      else:
         motscles['FILTRE_MODE'].append(_F(MODE      =__nomre0,
                                           TOUT_ORDRE='OUI',) )
+     
 
   motscles['IMPRESSION']=_F(CUMUL    =IMPRESSION['CUMUL'],
                             CRIT_EXTR=IMPRESSION['CRIT_EXTR'],)
   self.DeclareOut('nomres',self.sd)
   nomres=EXTR_MODE(**motscles)
+  DETRUIRE(CONCEPT=_F(NOM='__nomre0',),ALARME='NON')
   return ier
index 10da21e35bdf16d56328514b925cebfa6a2883dc..a38f2808061dda1868540f4e949b9dfcf35af3b6 100644 (file)
@@ -1,4 +1,4 @@
-#@ MODIF stanley_ops Macro  DATE 23/11/2004   AUTEUR ASSIRE A.ASSIRE 
+#@ MODIF stanley_ops Macro  DATE 30/11/2004   AUTEUR MCOURTOI M.COURTOIS 
 # -*- coding: iso-8859-1 -*-
 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
@@ -56,6 +56,11 @@ def stanley_ops(self,RESULTAT,MODELE,CHAM_MATER,CARA_ELEM,**args):
       stanley.PRE_STANLEY()
 
   else:
-      UTMESS('A','STANLEY',"Aucune variable d'environnement DISPLAY n'est définie!\n               STANLEY ne peut pas fonctionner. On l'ignore.\n\n               Si vous etes en Interactif, cochez le bouton Suivi Interactif\n               dans ASTK.")
+      UTMESS('A','STANLEY',
+            """Aucune variable d'environnement DISPLAY définie !
+               STANLEY ne pourra pas fonctionner. On l'ignore.
+
+               Si vous etes en Interactif, cochez le bouton Suivi Interactif
+               dans ASTK.""")
 
   return ier