Modulef
Suiv.: Liste abrégée des mots-clés Sup.: Création de maillages tridimensionnels (1) Préc.: Mots-clés Index Table des matières

2.7 Un exemple complet

Il s'agit de mailler le domaine de la figure 2.5. Celui-ci présente des symétries, aussi seule une partie est étudiée. Par ailleurs, il est de topologie cylindrique.

Sont présentés ci-après:

l'arbre de l'enchaînement des différents modules (figure 2.2);
les 2 maillages 2D de départ (figures 2.3 et 2.4); );
les "cartes" données i.e. le fichier de données pour le module APNOP3;
le maillage final (figure 2.5).

Figure: Arbre de l'enchaînement

up6.bas.psfig:depart2DMaillage unup6.haut.psfig:depart2D1Maillage deux

Figure 2.5: Maillage final

Le fichier de données utilisé par APNOXX pour créer les 2 maillages 2D servant de base:

'TEST 3D                                                             '
 COURBES
     1                                 $ IMPRE
 COURBE01(X,Y)=
       (X-7.)**2+(Y+3.975094)**2-36.;                                  
 COURBE02(X,Y)=
       X**2+(Y-4.)**2-64.;                                             
 COURBE03(X,Y)=
       X**2+Y**2-2.05**2;                                              
 COURBE04(X,Y)=
       X**2+Y**2-0.85**2;                                              
 COURBE05(X,Y)=
       X**2+(Y+3.4)**2-0.09;                                           
FIN
'POINTS                                                              '
     1    11                            $ IMPRE NPOINT  $
$   NOP   NOREF(NOP)     X(NOP).            Y(NOP).  $
     1       2         0.000000E+00     -.400000E+01
     2       2         0.130000E+01     -.389367E+01
     3       1         0.107976E+01     -.300000E+01
     4       1         0.131722E+01     -.205000E+01
     5       1         0.177535E+01     -.102500E+01
     6       4         0.736122E+00     -.425000E+00
     7       4         0.000000E+00     -.850000E+00
     8       3         0.000000E+00     -.205000E+01
     9       5         0.000000E+00     -.310000E+01
    10       5         0.000000E+00     -.370000E+01
    11       5         0.300000E+00     -.340000E+01
'LIGNE                                                               '
     1    12                            $ IMPRE  NDLM   $
$   NOLIG NOELIG NEXTR1 NEXTR2 NOREFL NFFRON       RAISON $
       1      5      1      2      2     10     0.100000E+01
       2      5      2      3      1      0     0.100000E+01
       3      5      4      3      1     10     0.100000E+01
       4      5      5      6      0      0     0.100000E+01
       5      6      7      6      4     10     0.100000E+01
       6      5      7      8      0      0     0.100000E+01
       7      5      8      9      0      0     0.100000E+01
       8      3     11      9      5     10     0.100000E+01
       9      3     10     11      5     10     0.100000E+01
      10      3      1     10      0      0     0.100000E+01
      11      6      8      5      3     10     0.100000E+01
      12      5      4      5      0      0     0.100000E+01
'TRIH                                                                '
     1     0     1     9     1          $ IMPRE NIVEAU NUDSD NBRELI NS1L
 $ LISTE DES LIGNES DU CONTOUR :
     1     2     3    12    11     7     8     9    10
     1     0     1                      $ NCOMP NBRINT IOPT $
     9                                  $ COMPOSANTE $ 
'REGU                                                                '
     1     0     1                      $ IMPRE NIVO1 NIVO2
'QUAC                                                                '
     1     2     2     4     1          $ IMPRE NIVEAU NUDSD NBRELI NS1L
 $ LISTE DES LIGNES DU CONTOUR :
     6    11     4     5
     5     1                            $ IMAX NQUAD
'RECO                                                                '
    1    1    2    3  0.10000E-02    1  $ IMP NIV1 NIV2 NIV3 EPS IOPT
     0     0                            $ NBNNF NBNNSD
'SAUV                                                                '
     1     3     0                      $ IMPRE NINOPO NTNOPO
 UP6.BAS.NOPO                           
 $ NOM FICHIER                          
'SAUV                                                                '
     1     2     0                      $ IMPRE NINOPO NTNOPO
 UP6.HAUT.NOPO                          
 $ NOM FICHIER                          
'F                                                                   '

Le fichier de données utilisé par APN3XX pour créer le maillage 3D final: on reconnaîtra les mots-clés INTR, MA23, RECO, SYMP, ROTA, SAUV et FIN qui permettent de spécifier les opérations à effectuer pour obtenir le maillage final:

INTR : introduction en mémoire centrale du maillage 2D résidant sur le fichier de nom UP6.BAS.NOPO;
MA23 : montée de ce maillage sur 2 (ou 6) couche(s) (i.e. 3 (ou 7) sections) par simple translation;
INTR et MA23 : mêmes opérations pour le maillage de UP6.HAUT.NOPO;
RECO : recollement des 2 maillages précédents,
SYMP : construction du symétrique par rapport au plan x=0 du résultat;
RECO : recollement du maillage ci-dessus et de son symétrique;
ROTA (2 fois) : rotations du résultat à droite et à gauche;
RECO (2 fois) : recollements;
SAUV : écriture sur fichier du maillage final;
FIN : fin de la construction.

'EXEMPLE_UP6.2D==>UP.                                                '
'INTR                                                                '
     1     0                            $ IMPRE NINOPO ( SD EXTERIEURE )
 UP6.BAS.NOPO                           $ NOM DU FICHIER
'MA23                                                                '
     1     0     1                      $ IMPRE NIVO2D NIVO3D
 $ ===  DEFINITION DE LA FONCTION  ===
 TRAN
     2                                  $ SECTION SUPERIEURE
  0.0000000E+00  0.0000000E+00  0.5000000E+00     $ VECTEUR TRANSLATION
 BASE  -1.000000
 FIN
 $ FIN DE LA DEFINITION DE LA FONCTION
 $ ===========  LES OPTIONS  =========
 $ =======  APPEL DU MAILLEUR  =======
 GO 
'INTR                                                                '
     1     2                            $ IMPRE NINOPO ( SD EXTERIEURE )
 UP6.HAUT.NOPO                          $ NOM DU FICHIER
'MA23XX                                                              '
     1     2     3                      $ IMPRE NIVO2D NIVO3D
 $ ===  DEFINITION DE LA FONCTION  ===
 TRAN
     6                                  $ SECTION SUPERIEURE
  0.0000000E+00  0.0000000E+00  0.5000000E+00     $ VECTEUR TRANSLATION
 FIN
 $ FIN DE LA DEFINITION DE LA FONCTION
 $ ===========  LES OPTIONS  =========
 $ =======  APPEL DU MAILLEUR  =======
 GO 
'RECO                                                                '
     1     1     3     4  0.10000E-02     0       $ IMP NIV1 NIV2 NIV3 EPS IOPT
     0     0                                                $ NBNNF NBNNSD
'SYMP                                                                '
     1     4     5                                          $ IMPRE NIVEA1 NIVEA2 
     0     0                                                $ NBNNF NBNNSD
  0.1000000E+01  0.0000000E+00  0.0000000E+00  0.0000000E+00$ A. B. C. D.
'RECO                                                                '
     1     4     5     6  0.10000E-02     0       $ IMP NIV1 NIV2 NIV3 EPS IOPT
     0     0                                                $ NBNNF NBNNSD
'ROTA                                                                '
     1     6     7                                          $ IMPRE NIVEA1 NIVEA2 
     0     0                                                $ NBNNF NBNNSD
  0.0000000E+00  0.0000000E+00  0.1000000E+01               $ AXE DE ROTATION
  0.1200000E+03  0.0000000E+00  0.0000000E+00  0.0000000E+00$ TETA. X. Y. Z. 
'ROTA                                                                '
     1     6     8                                          $ IMPRE NIVEA1 NIVEA2 
     0     0                                                $ NBNNF NBNNSD
  0.0000000E+00  0.0000000E+00  0.1000000E+01               $ AXE DE ROTATION
 -0.1200000E+03  0.0000000E+00  0.0000000E+00  0.0000000E+00$ TETA. X. Y. Z. 
'RECO                                                                '
     1     6     8     9  0.10000E-02     0       $ IMP NIV1 NIV2 NIV3 EPS IOPT
     0     0                                                $ NBNNF NBNNSD
'RECO                                                                '
     1     9     7    10  0.10000E-02     0       $ IMP NIV1 NIV2 NIV3 EPS IOPT
     0     0                                                $ NBNNF NBNNSD
'SAUV                                                                '
     1    10     0                      $ IMPRE NINOPO NTNOPO
 UP.NOPO3D1                             $ NOM DU FICHIER
'F                                                                   '

Suiv.: Liste abrégée des mots-clés Sup.: Création de maillages tridimensionnels (1) Préc.: Mots-clés Index Table des matières