Télécharger la plaquette Cast3M


fr en

Télécharger coul_deformee.dgibi

Retour à la liste

Numérotation des lignes : 

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

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