Télécharger test_diff.dgibi

Retour à la liste

Numérotation des lignes :

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

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