Télécharger test_diff.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : test1_diff.dgibi
  2.  
  3. ************************************************************************
  4. ************************************************************************
  5. * Ce Cas-Test vérifie le bon fonctionnement de l'opérateur DIFF *
  6.  
  7. OPTI DIME 2 ELEM SEG2;
  8.  
  9. P1 = 0. 0. ;
  10. P2 = 0. 1. ;
  11. P3 = 0. 2. ;
  12.  
  13. L1 = DROIT 10 P1 P2 ;
  14. L2 = DROIT 12 P2 P3 ;
  15. L3 = L1 ET L2 ;
  16.  
  17. *----------------------------------------------------------------------*
  18. * Cas de MELEME SIMPLE de TYPE identiques *
  19. *----------------------------------------------------------------------*
  20. OPTI ELEM QUA4;
  21.  
  22. * Création d'un MELEME SIMPLE VIDE de type QUA4
  23. MAILQ4VI= VIDE 'MAILLAGE';
  24. DIFFQ4VI = DIFF MAILQ4VI MAILQ4VI;
  25. LISTYP = DIFFQ4VI ELEM 'TYPE';
  26. DIMLIST = DIME LISTYP;
  27. NOMTYP = EXTR LISTYP 1;
  28.  
  29. * Test de Validation de l'opérateur
  30. SI ('NEG' NOMTYP 'QUA4');
  31. MESS 'Erreur de DIFF : Type d_Elements avec MAILLAGES VIDE ';
  32. ERRE 5;
  33. FINS;
  34.  
  35. SI ('NEG' DIMLIST 1);
  36. MESS 'Erreur de DIFF : nombre de Sous-Type avec MAILLAGES VIDES';
  37. ERRE 5;
  38. FINS;
  39.  
  40.  
  41. * Création d'un MELEME SIMPLE de type QUA4 (NON VIDE)
  42. MAILQ4 = L1 TRAN 4 (1. 0.);
  43. DIFFQ4 = DIFF MAILQ4 MAILQ4;
  44. LISTYP = DIFFQ4 ELEM 'TYPE';
  45. DIMLIST = DIME LISTYP;
  46. NOMTYP = EXTR LISTYP 1;
  47.  
  48. * Test de fonctionnement de l'opérateur
  49. SI ('NEG' NOMTYP 'QUA4');
  50. MESS 'Erreur de DIFF : Type d_Elements QUA4 attendu';
  51. ERRE 5;
  52. FINS;
  53.  
  54. SI ('NEG' DIMLIST 1);
  55. MESS 'Erreur de DIFF : 1 Sous-Type';
  56. ERRE 5;
  57. FINS;
  58.  
  59.  
  60. * Vérification qu'avec ET on retrouve bien la même chose
  61. MAILET = MAILQ4VI ET MAILQ4;
  62. LISTYP = MAILET ELEM 'TYPE';
  63. DIMLIST1 = DIME LISTYP;
  64.  
  65. MAILETDI = DIFFQ4VI ET MAILQ4;
  66. LISTYP = MAILETDI ELEM 'TYPE';
  67. DIMLIST2 = DIME LISTYP;
  68.  
  69. * Test de fonctionnement de l'opérateur
  70. SI ('NEG' DIMLIST1 DIMLIST2);
  71. MESS 'Erreur de DIFF : Les Sous-Types QUA4 ne sont pas fusionnes';
  72. ERRE 5;
  73. FINS;
  74.  
  75.  
  76. *----------------------------------------------------------------------*
  77. * Cas de MELEME SIMPLE de TYPE différent *
  78. *----------------------------------------------------------------------*
  79. OPTI ELEM TRI3;
  80.  
  81. * Création d'un MELEME SIMPLE VIDE de type TRI3
  82. MAILT3 = VIDE 'MAILLAGE';
  83. DIFFT3Q4 = DIFF MAILT3 MAILQ4;
  84. LISTYP = DIFFT3Q4 ELEM 'TYPE';
  85. DIMLIST = DIME LISTYP;
  86. NOMTYP1 = EXTR LISTYP 1;
  87.  
  88. * Test de fonctionnement de l'opérateur
  89. SI ('NEG' NOMTYP1 'QUA4');
  90. MESS 'Erreur de DIFF : Type d_Elements QUA4 absents';
  91. ERRE 5;
  92. FINS;
  93.  
  94. SI ('NEG' DIMLIST 1);
  95. MESS 'Erreur de DIFF : nombre de Sous-Type, 1 attendu';
  96. ERRE 5;
  97. FINS;
  98.  
  99.  
  100.  
  101. * Création d'un MELEME SIMPLE de type TRI3 NON VIDE
  102. MAILT3 = CHAN MAILQ4 TRI3;
  103. DIFFT3Q4 = DIFF MAILT3 MAILQ4;
  104. LISTYP = DIFFT3Q4 ELEM 'TYPE';
  105. DIMLIST = DIME LISTYP;
  106. NOMTYP1 = EXTR LISTYP 1;
  107. NOMTYP2 = EXTR LISTYP 2;
  108.  
  109. * Test de fonctionnement de l'opérateur
  110. SI ('NEG' NOMTYP1 'TRI3');
  111. MESS 'Erreur de DIFF : Type d_Elements TRI3 absents';
  112. ERRE 5;
  113. FINS;
  114. SI ('NEG' NOMTYP2 'QUA4');
  115. MESS 'Erreur de DIFF : Type d_Elements QUA4 absents';
  116. ERRE 5;
  117. FINS;
  118.  
  119. SI ('NEG' DIMLIST 2);
  120. MESS 'Erreur de DIFF : nombre de Sous-Type';
  121. ERRE 5;
  122. FINS;
  123.  
  124.  
  125. *----------------------------------------------------------------------*
  126. * Cas de MELEME COMPLEXE *
  127. *----------------------------------------------------------------------*
  128. MAILC1 = MAILT3 ET MAILQ4;
  129. DIFFCOM = DIFF MAILC1 MAILC1 ;
  130. LISTYP = ELEM DIFFCOM 'TYPE';
  131. DIMLIST = DIME LISTYP;
  132. NOMTYP = EXTR LISTYP 1;
  133.  
  134. * Test de fonctionnement de l'opérateur
  135. * Modif SG 2016/12/01 : maintenant, en cas de maillage vide, on met le
  136. * type d'element courant plutot que POI1...
  137. *SI ('NEG' NOMTYP 'POI1');
  138. itycou = 'VALE' 'ELEM' ;
  139. 'SI' ('NEG' NOMTYP itycou);
  140. MESS 'Erreur de DIFF : Type d_Elements ' itycou ' absents';
  141. ERRE 5;
  142. FINS;
  143.  
  144. SI ('NEG' DIMLIST 1);
  145. MESS 'Erreur de DIFF : nombre de Sous-Type, 1 attendu';
  146. ERRE 5;
  147. FINS;
  148.  
  149.  
  150. OPTI ELEM SEG3;
  151. VIDSEG3 = VIDE MAILLAGE;
  152.  
  153. OPTI ELEM CUB8;
  154. VIDCUB8 = VIDE MAILLAGE;
  155.  
  156. MAILC1 = MAILT3 ET MAILQ4;
  157. MAILC2 = VIDSEG3 ET VIDCUB8 ET MAILC1;
  158. DIFFCOM = DIFF MAILC1 MAILC2 ;
  159. LISTYP = ELEM DIFFCOM 'TYPE';
  160. DIMLIST = DIME LISTYP;
  161. NOMTYP = EXTR LISTYP 1;
  162.  
  163. * Test de fonctionnement de l'opérateur
  164. *old SI ('NEG' NOMTYP 'POI1');
  165. *old MESS 'Erreur de DIFF : Type d_Elements POI1 absents';
  166. itycou = 'VALE' 'ELEM' ;
  167. 'SI' ('NEG' NOMTYP itycou);
  168. MESS 'Erreur de DIFF : Type d_Elements ' itycou ' absents';
  169. ERRE 5;
  170. FINS;
  171.  
  172. SI ('NEG' DIMLIST 1);
  173. MESS 'Erreur de DIFF : nombre de Sous-Type, 1 attendu';
  174. ERRE 5;
  175. FINS;
  176.  
  177. FIN;
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  

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