Télécharger la plaquette Cast3M


fr en

Télécharger sort_MAILLAGE.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  sort_MAILLAGE.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ***************************************************************
  6. *           Test sort_MAILLAGE.dgibi: Jeux de données         *
  7. *           -----------------------------------------         *
  8. ***************************************************************
  9.  
  10. *___________________________________________________________________
  11. *   TEST sort_MAILLAGE.dgibi                                       *
  12. *                                                                  *
  13. * Sortie d'un MAILLAGE avec SORT
  14. * Relecture avec LIRE (Option non testee a-priori)                 *
  15.  
  16. * Cas-Test de Verification & Validation
  17. *__________________________________________________________________*
  18. *
  20. OPTI ELEM CU20;
  21. GRAPH = MOT 'N';
  22. *
  23. *==================================================================*
  24. *             geometrie : maillage                                 *
  25. *==================================================================*
  26. *
  27.  
  28. K = 2;
  29.  
  30. PB = 0. 2.75 0.;
  31. PB1 = 0. 2.75 (((3.25 ** 2) - (2.75 ** 2)) ** 0.5);
  32. PC = 3.25 0. 0.;
  33. *
  34. C1 = PC CERC (6 * K) (0. 0. 0.) PB1;
  35. C2 = C1 PROJ DIRE (0. 0. 1) PLAN (0 0 0) (1 0 0) (0 1 0);
  36. *
  37. PA = 0. 1. 0.;
  38. PA1 = 0. 1. (((2. ** 2) - (1. ** 2)) ** 0.5);
  39. PD = 2. 0. 0.;
  40. *
  41. C3 = Pd CERC (6 * K) (0. 0. 0.) PA1;
  42. C4 = C3 PROJ DIRE (0. 0. 1) PLAN (0 0 0) (1 0 0) (0 1 0);
  43. *
  44. D1 = PA DROI (2 * K) (0. 1.583 0.) DROI (2 * K) PB;
  45. D3 = PC DROI (2 * K) (2.417 0. 0.) DROI (2 * K) PD;
  46. *
  47. ELIM (D1 ET C2 ET D3 ET C4) 0.0001;
  48. SUR1 = DALL D1 C2 D3 C4 PLAN;
  49. *
  50. VOL1 = SUR1 VOLU (2 * K) TRAN (0. 0. -0.6);
  51. *
  52. * Surfaces et arc d'ellipse pour conditions aux limites
  53. *
  54. FACE1 = D1 TRAN (2 * K) (0. 0. -0.6);
  55. FACE2 = C2 TRAN (2 * K) (0. 0. -0.6);
  56. FACE3 = D3 TRAN (2 * K) (0. 0. -0.6);
  57. C2CL  = C2 PLUS (0. 0. -0.3);
  58. *
  59. ELIM (VOL1 ET FACE1 ET FACE2 ET FACE3 ET C2CL) 0.0001;
  60. *
  61. SI (NEG GRAPH 'N');
  62.   TITR 'ELAS9 : MAILLAGE';
  63.   TRAC (-1000 -1000 1000) FACE QUAL (COUL VOL1 BLAN);
  64. FINSI;
  65.  
  66. *
  67. *==================================================================*
  68. *             sortie : maillage                                    *
  69. *==================================================================*
  70. *
  71. OPTI SORT 'Sort_MAILLAGE.mesh';
  72. SORT VOL1;
  73. OPTI SORT 'BIDON';
  74. VOL2  = VOL1;
  75. OUBL VOL1;
  76. NBNO2 = NBNO VOL2;
  77. NBEL2 = NBEL VOL2;
  78. *
  79. *==================================================================*
  80. *             Relecture : maillage                                 *
  81. *==================================================================*
  82. *
  83. OPTI LECT 'Sort_MAILLAGE.mesh';
  85. NBNO1 = NBNO VOL1;
  86. NBEL1 = NBEL VOL1;
  87.  
  88. *
  89. *==================================================================*
  90. *             Verification : Comparaison des MAILLAGES             *
  91. *==================================================================*
  92. *
  93. ELIM VOL1 VOL2 1.E-5;
  94. UNIQ (VOL1 ET VOL2);
  95.  
  96. INT1 = INTE VOL1 VOL2;
  97. NBEI = NBEL INT1;
  98.  
  99. OPTI ECHO 0;
  100. MESS 'NOEUDS  ' NBNO2 NBNO1;
  101. MESS 'ELEMENTS' NBEL2 NBEL1;
  102. MESS 'INTERSEC' NBEI       ;
  103.  
  104. SI ((NEG NBNO2 NBNO1) OU (NEG NBEL2 NBEL1) OU (NEG NBEL1 NBEI));
  105.   ERRE 5;
  106. FINS;
  107. OPTI ECHO 1;
  108. * OPTI DONN 5;
  109.  
  110. FIN;
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  

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