Télécharger la plaquette Cast3M


fr en

Télécharger conge_seg2_seg3.dgibi

Retour à la liste

Numérotation des lignes : 

  1. ************************************************************************
  2. *    Petit test de l'opérateur CONG avec des éléments SEG2 et SEG3     *
  3. *                                                                      *
  4. *            Il convient de vérifier "à l'oeil" la qualité             *
  5. *                 des congés de raccordement produits                  *
  6. ************************************************************************
  7.  
  8. OPTI 'DENS' 0.1 ;
  9. OPTI 'TRAC' 'PSC';
  10.  
  11.  
  12.  
  13.  
  14. ************************************************************************
  15. *                     E N   D I M E N S I O N   2                      *
  16. ************************************************************************
  17.  
  18. OPTI 'DIME' 2 ;
  19. p1 = 0. 0. ;
  20. p2 = 1. 0. ;
  21. p3 = 1. 1. ;
  22. p4 = 1. 0.5 ;
  23. p5 = 2. 0.5 ;
  24.  
  25. * Éléments de maillage SEG2
  26. OPTI 'ELEM' 'SEG2' ;
  27. l1 = DROI p1 p2 ;
  28. l2 = DROI p2 p3 ;
  29. l3 = DROI p4 p5 ;
  30. * congé simple
  31. TRAC 'QUAL' (l1 ET l2) 'TITR' 'Lignes avant conge' ;
  32. l1b lcong l2b = CONG l1 l2 0.3 ;
  33. TRAC 'QUAL' (l1b ET lcong ET l2b) 'TITR' 'Lignes apres conge' ;
  34. * congé double
  35. TRAC 'QUAL' (l1 ET l3) 'TITR' 'Lignes avant conge' ;
  36. l1b lcong l3b = CONG l1 l3 0.3 'DOUBLE' ;
  37. TRAC 'QUAL' (l1b ET lcong ET l3b) 'TITR' 'Lignes apres conge' ;
  38.  
  39. * Éléments de maillage SEG3
  40. OPTI 'ELEM' 'SEG3' ;
  41. l1 = DROI p1 p2 ;
  42. l2 = DROI p2 p3 ;
  43. l3 = DROI p4 p5 ;
  44. * congé simple
  45. TRAC 'QUAL' (l1 ET l2) 'TITR' 'Lignes avant conge' ;
  46. l1b lcong l2b = CONG l1 l2 0.3 ;
  47. TRAC 'QUAL' (l1b ET lcong ET l2b) 'TITR' 'Lignes apres conge' ;
  48. * congé double
  49. TRAC 'QUAL' (l1 ET l3) 'TITR' 'Lignes avant conge' ;
  50. l1b lcong l3b = CONG l1 l3 0.3 'DOUBLE' ;
  51. TRAC 'QUAL' (l1b ET lcong ET l3b) 'TITR' 'Lignes apres conge' ;
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58. ************************************************************************
  59. *                     E N   D I M E N S I O N   3                      *
  60. ************************************************************************
  61.  
  62. OPTI 'DIME' 3 ;
  63. p1 = 0. 0. 0. ;
  64. p2 = 0. 0. 1. ;
  65. p3 = 0. 1. 1. ;
  66. p4 = 0.5 0. 1. ;
  67. p5 = 0.5 0. 2. ;
  68.  
  69. * Éléments de maillage SEG2
  70. OPTI 'ELEM' 'SEG2' ;
  71. l1 = DROI p1 p2 ;
  72. l2 = DROI p2 p3 ;
  73. l3 = DROI p4 p5 ;
  74. * congé simple
  75. TRAC 'QUAL' (l1 ET l2) 'TITR' 'Lignes avant conge' ;
  76. l1b lcong l2b = CONG l1 l2 0.3 ;
  77. TRAC 'QUAL' (l1b ET lcong ET l2b) 'TITR' 'Lignes apres conge' ;
  78. * congé double
  79. TRAC 'QUAL' (l1 ET l3) 'TITR' 'Lignes avant conge' ;
  80. l1b lcong l3b = CONG l1 l3 0.3 'DOUBLE' ;
  81. TRAC 'QUAL' (l1b ET lcong ET l3b) 'TITR' 'Lignes apres conge' ;
  82.  
  83. * Éléments de maillage SEG3
  84. OPTI 'ELEM' 'SEG3' ;
  85. l1 = DROI p1 p2 ;
  86. l2 = DROI p2 p3 ;
  87. l3 = DROI p4 p5 ;
  88. * congé simple
  89. TRAC 'QUAL' (l1 ET l2) 'TITR' 'Lignes avant conge' ;
  90. l1b lcong l2b = CONG l1 l2 0.3 ;
  91. TRAC 'QUAL' (l1b ET lcong ET l2b) 'TITR' 'Lignes apres conge' ;
  92. * congé double
  93. TRAC 'QUAL' (l1 ET l3) 'TITR' 'Lignes avant conge' ;
  94. l1b lcong l3b = CONG l1 l3 0.3 'DOUBLE' ;
  95. TRAC 'QUAL' (l1b ET lcong ET l3b) 'TITR' 'Lignes apres conge' ;
  96.  
  97.  
  98.  
  99.  
  100. FIN ;
  101.  
  102.  
  103.  
  104.  
  105.  

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