Télécharger la plaquette Cast3M


fr en

Télécharger ETG_MELEME.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : ETG_MELEME.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. *           Test ETG_MELEME.dgibi: Jeux de données    *
  7. *           ---------------------------------         *
  8. *******************************************************
  9. * CAS TEST DU 2017/03/29
  10.  
  11. * SI GRAPH = N PAS DE GRAPHIQUE AFFICHE
  12. * SINON SI GRAPH DIFFERENT DE N TOUS
  13. * LES GRAPHIQUES SONT AFFICHES
  14.  
  15. GRAPH = 'N' ;
  16.  
  17. SAUT PAGE;
  18. SI (NEG GRAPH 'N') ;
  19.   OPTI ECHO 1   ;
  20.   OPTI TRAC PSC ;
  21. SINO ;
  22.   OPTI ECHO 0   ;
  23. FINSI ;
  24.  
  25. SAUT PAGE;
  26. *___________________________________________________________________
  27. *   TEST ETG_MELEME                                                *
  28. *                                                                  *
  29. *   Fusion d'une TABLE ESCLAVE de MAILLAGES                        *
  30. *                                                                  *
  31. *       A partir   d'un MAILLAGE   partitionné dans  une  TABLE de *
  32. *   SOUS-TYPE ESCLAVE, la fusion pour ne faire qu'un objet MAILLAGE*
  33. *   unique se fait en une seule opération avec l'opérateur ETG     *
  34. *___________________________________________________________________
  35. *
  36.  
  37. * MAILLAGE
  38. OPTI DIME 3 ELEM CUB8;
  39.  
  40. P1 = 0. 0. 0. ;
  41. P2 = 1. 0. 0. ;
  42.  
  43. NBE1 = 25;
  44. L1   = DROI NBE1 P1 P2;
  45. L2   = L1 PLUS (0. 1. 0.);
  46.  
  47. S1   = REGL NBE1 L1 L2;
  48. S2   = S1 PLUS (0. 0. 1.);
  49.  
  50. V1   = VOLU NBE1 S1 S2;
  51.  
  52. * Mailtot est un MAILLAGE COMPLEXE contenant toutes les primitives de
  53. * fabrication de V1
  54. MAILTOT = V1 ET S1 ET S2 ET L1 ET L2;
  55. NBEL1   = NBEL MAILTOT;
  56. TYPE1   = MAILTOT 'ELEM' 'TYPE';
  57.  
  58. * PARTITIONNEMENT de MAILTOT en NBPART
  59. NBPART  = 50000;
  60. MAILP   = PART 'ARLE' NBPART MAILTOT;
  61.  
  62. * Vérification du bon fonctionnement de ETG
  63. * FUSION du MAILLAGE partitionné en une seule opération
  64. MAILTO2 = ETG MAILP;
  65.  
  66.  
  67. *___________________________________________________________________
  68. * Validation en comparant MAILTOT a MAILTO2
  69. *___________________________________________________________________
  70. * Nombre d'éléments total
  71. NBEL2   = NBEL MAILTO2;LIST NBEL2;
  72. SI ('NEG' NBEL2 NBEL1);
  73.   MESS 'Erreur  1 ETG de MAILLAGE : ' NBEL1 NBEL2;
  74. FINS;
  75.  
  76. * Nombre de type d'éléments
  77. TYPE2   = MAILTO2 'ELEM' 'TYPE';
  78. SI ('NEG' (DIME TYPE1) (DIME TYPE2));
  79.   MESS 'Erreur  2 ETG de MAILLAGE : ' (DIME TYPE1) (DIME TYPE2);
  80. FINS;
  81.  
  82. * Boucle sur les MELEME SIMPLE
  83. REPE SURi (DIME TYPE1);
  84.   II     = &SURi;
  85.   NOMELM = 'EXTR' TYPE1 II  ;
  86.   MAI1   = 'ELEM' MAILTOT NOMELM;
  87.   MAI2   = 'ELEM' MAILTO2 NOMELM;
  88.  
  89. * Nombre d'éléments
  90.   NBEL1  = 'NBEL' MAI1;
  91.   NBEL2  = 'NBEL' MAI2;
  92.   SI ('NEG' NBEL1 NBEL2);
  93.     MESS 'Erreur  3 ETG de MAILLAGE : ' II NOMELM NBEL1 NBEL2;
  94.   FINS;
  95.  
  96. * Nombre de noeuds
  97.   NBNO1  = 'NBNO' MAI1;
  98.   NBNO2  = 'NBNO' MAI2;
  99.   SI ('NEG' NBNO1 NBNO2);
  100.     MESS 'Erreur  4 ETG de MAILLAGE : ' II NOMELM NBNO1 NBNO2;
  101.   FINS;
  102.  
  103. * différence symétrique 
  104.   DIFF1 = DIFF MAI1 MAI2;
  105.   SI (('NEG' ('NBEL' DIFF1) 0) 'ET' ('NEG' ('NBNO' DIFF1) 0));
  106.     MESS 'Erreur  5 ETG de MAILLAGE : ' II NOMELM (NBEL DIFF1);
  107.   FINS;
  108. FIN SURi;
  109.  
  110. * Mesure du temps passé dans les opérateurs
  111. TEMP 'IMPR';
  112.  
  113. FIN;
  114.  
  115.  
  116.  
  117.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales