Télécharger la plaquette Cast3M


fr en

Télécharger test_inter.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  test_inter.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. * Teste l'opérateur INTER
  5.  
  6. * en 2D :
  7. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  8.  
  9. p1 = 0 0 ;
  10. p2 = 0 1 ;
  11. p3 = 1 1 ;
  12. p4 = 1 0 ;
  13.  
  14. d1 = 'DROIT' p1 10 p2 ;
  15.  
  16. * intersection partielle
  17. e1 = 'POINT' ('COOR' 2 d1) 'EGSU' .4 ;
  18. e2 = 'POINT' ('COOR' 2 d1) 'EGIN' .6 ;
  19. a  = 'INTERSECTION' e1 e2 ;
  20. * inclusion 
  21. e3 = 'CHANGER' d1 'POI1' ;
  22. a  = 'INTERSECTION' e1 e3 ;
  23.  
  24. * intersection avec un maillage vide
  25. vide = 'DIFF' d1 d1 ;
  26. a  = 'INTERSECTION' d1 vide 'NOVERIF' ;
  27. a  = 'INTERSECTION' vide d1 'NOVERIF' ;
  28.  
  29. * intersection vide
  30. e1 = 'POINT' ('COOR' 2 d1) 'EGSU' .6 ;
  31. e2 = 'POINT' ('COOR' 2 d1) 'EGIN' .4 ;
  32. a  = 'INTERSECTION' e1 e2 'NOVERIF' ;
  33.  
  34. * produisant un message d'erreur :
  35. *'OPTION' 'ERREUR' 'IGNORE' ;
  36. *a  = 'INTERSECTION' e1 e2 ;
  37. *ee = valeu erma ;mess ' erreur maxi ' ee;
  38. *'OPTION' 'ERREUR' 'NORMAL' ;
  39.  
  40. * en 3D :
  41. 'OPTION' 'DIME' 3 ;
  42.  
  43. p1 = 0 0 0 ;
  44. p2 = 0 1 0 ;
  45. p3 = 1 1 0 ;
  46. p4 = 1 0 0 ;
  47. p5 = 0 0 1 ;
  48. p6 = 0 1 1 ;
  49. p7 = 1 1 1 ;
  50. p8 = 1 0 1 ;
  51.  
  52. a = 'MANU' 'CUB8' p1 p2 p3 p4 p5 p6 p7 p8;
  53. b = ('MANU' 'CUB8' p1 p2 p3 p4 p5 p6 p7 p8) 'PLUS' (1 0 0) ;
  54. d = ('CHANGER' a 'TET4') 'PLUS' (0 0 1);
  55. e = ('CHANGER' b 'TET4') 'PLUS' (0 0 1);
  56. 'ELIMINATION' (d 'ET' e) 0.001 ;
  57.  
  58. * multizones croisées :
  59. * sans conservation du pointeur de maillage
  60. h = 'INTERSECTION' d  (d 'ET' e) ;
  61. * avec, car maillage inclus
  62. h = 'INTERSECTION' d  (a 'ET' d) ;
  63. h = 'INTERSECTION' (a 'ET' d)  d ;
  64.  
  65. * 2 maillages complexes
  66. h = 'INTERSECTION' (d 'ET' e 'ET' a)  (a 'ET' b 'ET' d) ;
  67. h = 'INTERSECTION' (d 'ET' a)  (a 'ET' (CHANGER POI1 e) 'ET' d) ;
  68.  
  69. 'TEMPS' 'SGAC' 'IMPR';
  70.  
  71. 'FIN' ;
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  

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