Télécharger coul_deformee.dgibi

Retour à la liste

Numérotation des lignes :

  1. ************************************************************************
  2. ************************************************************************
  3. ************************************************************************
  4. * Verification du comportement de l'operateur COUL *
  5. * Changement de couleur des objets de type : *
  6. * - maillage *
  7. * - evolutions *
  8. * - deformees *
  9. * - vecteurs *
  10. ************************************************************************
  11.  
  12.  
  13. ** Indicateur de trace
  14. ITRAC = FAUX ;
  15.  
  16.  
  17. ** Options generales
  18. OPTI 'DIME' 2 'MODE' 'PLAN' 'CONT' 'ELEM' 'QUA8' ;
  19.  
  20.  
  21. ** Maillage
  22. p0 = 0. 0. ;
  23. p1 = 0.2 0. ;
  24. p2 = 0. 0.2 ;
  25. p3 = 1. 0. ;
  26. p4 = 1. 1. ;
  27. p5 = 0. 1. ;
  28. lqc = CERC 10 p1 p0 p2 ;
  29. ldroi = DROI 5 p3 p4 ;
  30. lhaut = DROI 5 p4 p5 ;
  31. s1 = REGL 'DINI' 0.01 'DFIN' 0.1 lqc (ldroi ET lhaut) ;
  32. lgauc = s1 COTE 2 ;
  33. lbas = s1 COTE 4 ;
  34. cs1 = CONT s1 ;
  35.  
  36.  
  37. ** Modele et materiau
  38. mo = MODE s1 'MECANIQUE' ;
  39. ma = MATE mo 'YOUN' 210.E9 'NU' 0.3 ;
  40. *
  41. MOP = 'MODE' lhaut 'CHARGEMENT' 'PRESSION' ;
  42. MAP = 'MATE' MOP 'PRES' -1.E2 ;
  43. *
  44. mo = mo 'ET' MOP ;
  45. ma = ma 'ET' MAP ;
  46. ri0 = RIGI mo ma ;
  47.  
  48.  
  49. ** Conditions aux limites
  50. bl1 = BLOQ lbas 'UY' ;
  51. bl2 = BLOQ lgauc 'UX' ;
  52. MOP = 'MODE' lhaut 'CHARGEMENT' 'PRESSION' ;
  53. MAP = 'MATE' MOP 'PRES' -1.E2 ;
  54. f1 = 'PRES' MOP MAP ;
  55.  
  56.  
  57. ** Resolution
  58. u1 = RESO (ri0 ET bl1 ET bl2) f1 ;
  59.  
  60.  
  61. ** Test du changment de couleur sur les MAILLAGEs
  62. SI ITRAC ;
  63. TRAC s1 'TITR' 'Maillage initial' ;
  64. FINSI ;
  65. s2 = s1 COUL ;
  66. SI ITRAC ;
  67. TRAC s2 'TITR' 'Maillage apres changement par defaut' ;
  68. FINSI ;
  69. s2 = s1 COUL 'ORAN' ;
  70. SI ITRAC ;
  71. TRAC s2 'TITR' 'Maillage apres changement MOT' ;
  72. FINSI ;
  73.  
  74.  
  75. ** Test du changment de couleur sur les EVOLUTIOns
  76. ev1 = EVOL 'VERT' 'CHPO' u1 'UX' ldroi ;
  77. ev2 = EVOL 'ROUG' 'CHPO' u1 'UY' lhaut ;
  78. ev3 = ev2 ET ev1 ;
  79. SI ITRAC ;
  80. DESS ev3 'TITR' 'Evolutions initiales' ;
  81. FINSI ;
  82. ev4 = ev3 COUL ;
  83. SI ITRAC ;
  84. DESS ev4 'TITR' 'Evolutions apres changement par defaut' ;
  85. FINSI ;
  86. ev4 = ev3 COUL 'ORAN' ;
  87. SI ITRAC ;
  88. DESS ev4 'TITR' 'Evolutions apres changement MOT' ;
  89. FINSI ;
  90. lm1 = MOTS 'ORAN' 'ORAN' 'CYAN' 'CYAN' ;
  91. ev4 = ev3 COUL lm1 ;
  92. SI ITRAC ;
  93. DESS ev4 'TITR' 'Evolutions apres changement LISTMOTS' ;
  94. FINSI ;
  95.  
  96.  
  97. ** Test du changment de couleur sur les DEFORMEes
  98. def1 = DEFO cs1 u1 0. 'VERT' ;
  99. def2 = DEFO s1 u1 'ROUG' ;
  100. def3 = def1 ET def2 ;
  101. SI ITRAC ;
  102. TRAC def3 'TITR' 'Deformees initiales' ;
  103. FINSI ;
  104. def4 = def3 COUL ;
  105. SI ITRAC ;
  106. TRAC def4 'TITR' 'Evolutions apres changement par defaut' ;
  107. FINSI ;
  108. def4 = def3 COUL 'ORAN' ;
  109. SI ITRAC ;
  110. TRAC def4 'TITR' 'Evolutions apres changement MOT' ;
  111. FINSI ;
  112. lm1 = MOTS 'ORAN' 'CYAN' ;
  113. def4 = def3 COUL lm1 ;
  114. SI ITRAC ;
  115. TRAC def4 'TITR' 'Evolutions apres changement LISTMOTS' ;
  116. FINSI ;
  117.  
  118.  
  119. ** Test du changment de couleur sur les VECTEURs
  120. r1 = REAC u1 bl1 ;
  121. r2 = REAC u1 bl2 ;
  122. v1 = VECT f1 'FORC' 'JAUN' ;
  123. v2 = VECT r1 'FORC' 'BLEU' ;
  124. v3 = VECT r2 'FORC' 'ROUG' ;
  125. v4 = v1 ET v2 ET v3 ;
  126. SI ITRAC ;
  127. TRAC v4 s1 'TITR' 'Vecteurs initiaux' ;
  128. FINSI ;
  129. v5 = v4 COUL ;
  130. SI ITRAC ;
  131. TRAC v5 s1 'TITR' 'Vecteurs apres changement par defaut' ;
  132. FINSI ;
  133. v5 = v4 COUL 'ORAN' ;
  134. SI ITRAC ;
  135. TRAC v5 s1 'TITR' 'Vecteurs apres changement MOT' ;
  136. FINSI ;
  137. lm1 = MOTS 'ORAN' 'CYAN' 'ROSE' ;
  138. v5 = v4 COUL lm1 ;
  139. SI ITRAC ;
  140. TRAC v5 s1 'TITR' 'Vecteurs apres changement LISTMOTS' ;
  141. FINSI ;
  142.  
  143. FIN ;
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  

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