Télécharger la plaquette Cast3M


fr en

Télécharger test_verm.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  test_verm.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. * Teste l'opérateur VERM
  5.  
  6.  
  7. * TEST DES DOUBLONS
  8. * =================
  9. * en 2D :
  10. 'OPTION' 'DIME' 2 ;
  11.  
  12. p1 = 0 0 ;
  13. p2 = 0 1 ;
  14. p3 = 1 1 ;
  15. p4 = 1 0 ;
  16.  
  17. seg1   = 'MANU' 'SEG2' p1 p2 ;
  18. a      = seg1 'ET' ('COULEUR' 'BLEU' seg1) ;
  19. 'VERMAIL' a ;
  20. 'VERMAIL' a 'CORR' ;
  21.  
  22. * en 3D :
  23. 'OPTION' 'DIME' 3 ;
  24.  
  25. p1 = 0 0 0 ;
  26. p2 = 0 1 0 ;
  27. p3 = 1 1 0 ;
  28. p4 = 1 0 0 ;
  29. p5 = 0 0 1 ;
  30. p6 = 0 1 1 ;
  31. p7 = 1 1 1 ;
  32. p8 = 1 0 1 ;
  33.  
  34. * sur un tétraèdre
  35.  
  36. tet   = 'MANU' 'TET4' p1 p2 p3 (.2 .2 1) ;
  37. tet2  = ('COULEUR' tet 'ROUGE') 'ET' ('COULEUR' tet 'BLEU')
  38.         'ET' ('MANU' 'TET4' p1 p2 p3 (.2 .2 -1));
  39. 'VERM' tet2 ;
  40.  
  41. * sur divers éléments
  42.  
  43. 'OPTION' 'ELEM' 'CU20' ;
  44. seg12   = 'DROIT' p1 3 p2 ;
  45. seg23   = 'DROIT' p2 3 p3 ;
  46. seg34   = 'DROIT' p3 2  p4 ;
  47. seg41   = 'DROIT' p4 4  p1 ;
  48. carre   = 'SURFACE' (seg12 'ET' seg23 'ET' seg34 'ET' seg41) plan ;
  49.  
  50. seg56   = 'DROIT' p5 2 p6 ;
  51. seg67   = 'DROIT' p6 4 p7 ;
  52. seg78   = 'DROIT' p7 3 p8 ;
  53. seg85   = 'DROIT' p8 2 p5 ;
  54. top     = 'SURFACE' (seg56 'ET' seg67 'ET' seg78 'ET' seg85) plan ;
  55.  
  56. seg15   = 'DROIT' p1 3  p5 ;
  57. seg26   = 'DROIT' p2 3  p6 ;
  58. seg37   = 'DROIT' p3 3  p7 ;
  59. seg48   = 'DROIT' p4 3  p8 ;
  60.  
  61. lat12   = 'SURFACE' (seg15 'ET' seg56 'ET' ('INVERSE' seg26) 'ET'
  62. ('INVERSE' seg12)) 'PLAN' ;
  63. lat23   = 'SURFACE' (seg23 'ET' seg37 'ET' ('INVERSE' seg67) 'ET'
  64. ('INVERSE' seg26)) 'PLAN' ;
  65. lat34   = 'SURFACE' (seg34 'ET' seg48 'ET' ('INVERSE' seg78) 'ET'
  66. ('INVERSE' seg37)) 'PLAN' ;
  67. lat41   = 'SURFACE' (seg41 'ET' seg15 'ET' ('INVERSE' seg85) 'ET'
  68. ('INVERSE' seg48)) 'PLAN' ;
  69.  
  70. env1    = carre 'ET' top 'ET' lat12 'ET' lat23 'ET' lat34 'ET' lat41 ;
  71. cub     = 'VOLUME' env1;
  72. *'VERM' cub ;
  73.  
  74. mtest   = ('ELEM' 1 ('ELEM' cub 'CU20')) 'ET'
  75.           ('ELEM' 1 ('ELEM' cub 'PR15')) 'ET'
  76.           ('ELEM' 1 ('ELEM' cub 'PY13')) 'ET'
  77.           ('ELEM' 1 ('ELEM' cub 'TE10'))  ;
  78.  
  79. mtest2  = mtest 'ET' ('COULEUR' 'VERT' mtest) ;
  80. 'VERM' mtest2 ;
  81.  
  82. 'TEMPS' 'SGAC' 'IMPR';
  83.  
  84. * Vérification du degré d'éléments connexes 
  85. * =========================================
  86.  
  87. a = 'MANU' 'CUB8' p1 p2 p3 p4 p5 p6 p7 p8;
  88. b = ('MANU' 'CUB8' p1 p2 p3 p4 p5 p6 p7 p8) 'PLUS' (1 0 0) ;
  89. c = 'CHANGER' b 'CU20' ;
  90. d = a 'ET' c;
  91. 'ELIMINATION' d 0.001 ;
  92. 'VERM' d ; 
  93.  
  94.  
  95. * Eléments connectés à des éléments d'une autre forme  (échec)
  96. * ===================================================
  97. a = 'MANU' 'CUB8' p1 p2 p3 p4 p5 p6 p7 p8;
  98. b = (('MANU' 'PRI6' p1 p2 p4 p5 p6 p8) 'ET'
  99.      ('MANU' 'PRI6' p2 p3 p4 p6 p7 p8) 
  100.     ) 'PLUS' (0 0 1) ;
  101. c = a 'ET' b;
  102. 'ELIMINATION' c 0.001 ;
  103. 'VERM' c ;
  104.  
  105. 'TEMPS' 'SGAC' 'IMPR';
  106.  
  107. 'FIN' ;
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  

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