Télécharger chan2.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : chan2.dgibi
  2.  
  3. ************************************************************************
  4. ************************************************************************
  5.  
  6. ************************************************************************
  7. * SI GRAPH = N PAS DE GRAPHIQUE AFFICHE
  8. * SINON SI GRAPH DIFFERENT DE N TOUS
  9. * LES GRAPHIQUES SONT AFFICHES
  10.  
  11. GRAPH = 'N' ;
  12. OPTI ECHO 1 ;
  13.  
  14. SAUT PAGE ;
  15. SI (NEG GRAPH 'N');
  16. OPTI TRAC X ;
  17. SINO ;
  18. OPTI TRAC PSC ;
  19. FINSI ;
  20.  
  21. SAUT PAGE;
  22.  
  23. ************************************************************************
  24. * NOM : CHAN2
  25. * DESCRIPTION : Teste l'operateur CHANGER pour les cas suivants :
  26. * - changer un MCHAML en MCHAML avec CHAN 'CHAM' ...
  27. * - changer un CHPOINT en CHPOINT avec CHAN 'CHPO' ...
  28. *
  29. *
  30. * LANGAGE : GIBIANE-CAST3M
  31. * AUTEUR : Clément BERTHINIER (CEA/DEN/DM2S/SEMT/LM2S)
  32. * mél : clement.berthinier@cea.fr
  33. **********************************************************************
  34. * VERSION : v1, 02/02/2015, version initiale
  35. * HISTORIQUE : v1, 02/02/2015, création
  36. * HISTORIQUE :
  37. * HISTORIQUE :
  38. ************************************************************************
  39. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  40. * en cas de modification de ce sous-programme afin de faciliter
  41. * la maintenance !
  42. ************************************************************************
  43.  
  44.  
  45. ************************************************************************
  46. * Création d'un maillage
  47. ************************************************************************
  48. OPTI ELEM SEG2;
  49.  
  50. P1= 0. 0. 0. ;
  51. P2= 1. 0. 0. ;
  52.  
  53. L1= DROI 10 P1 P2 ;
  54. L2= L1 PLUS (0. 1. 0.);
  55.  
  56. OPTI ELEM QUA4 ;
  57. S1= REGL L1 10 L2 ;
  58.  
  59. OPTI ELEM CUB8 ;
  60. V1= VOLU S1 TRAN 10 (0. 0. 1.);
  61.  
  62.  
  63. SI(NEG GRAPH 'N');
  64. TRAC CACH V1 ;
  65. FINSI ;
  66.  
  67.  
  68. ************************************************************************
  69. * Création d'un CHPOINT
  70. ************************************************************************
  71. X Y Z = COOR V1 ;
  72. CHPO1 = X + (Y**2) + (Z**3) ;
  73.  
  74.  
  75. ************************************************************************
  76. * Création d'un MMODEL de MECANIQUE
  77. ************************************************************************
  78. MODE1 = MODE V1 MECANIQUE ELASTIQUE ISOTROPE;
  79.  
  80. ************************************************************************
  81. * Création de différents types de MCHAML : Supports différents
  82. ************************************************************************
  83. CHAM1 = CHAN 'CHAM' CHPO1 MODE1 ;
  84.  
  85. CHAM2 = CHAN 'NOEUD' CHAM1 MODE1 ;
  86. CHAM3 = CHAN 'GRAVITE' CHAM1 MODE1 ;
  87. CHAM4 = CHAN 'MASSE' CHAM1 MODE1 ;
  88. CHAM5 = CHAN 'STRESSES' CHAM1 MODE1 ;
  89.  
  90.  
  91.  
  92. ************************************************************************
  93. * Passage d'un MCHAML a un MCHAML avec la syntaxe : CHAN 'CHAM' ...
  94. * Ce cas peut se présenter en thermique avec des chargements sous
  95. * forme de CHPOINT ou MCHAML indifféremment
  96. * Par défaut le support est aux 'NOEUD'
  97. ************************************************************************
  98. CHAM12 = CHAN 'CHAM' CHAM1 MODE1 ;
  99. CHAM22 = CHAN 'CHAM' CHAM2 MODE1 ;
  100. CHAM32 = CHAN 'CHAM' CHAM3 MODE1 ;
  101. CHAM42 = CHAN 'CHAM' CHAM4 MODE1 ;
  102. CHAM52 = CHAN 'CHAM' CHAM5 MODE1 ;
  103.  
  104.  
  105.  
  106. ************************************************************************
  107. * Passage d'un MCHAML a un MCHAML avec la syntaxe : CHAN 'CHAM' ...
  108. * Ce cas peut se présenter en thermique avec des chargements sous
  109. * forme de CHPOINT ou MCHAML indifféremment
  110. * Par défaut le support est aux 'NOEUD'
  111. ************************************************************************
  112.  
  113. *Changement d'un MCHAML vers MCHAML en changeant Support
  114. CHAM13 = CHAN 'CHAM' CHAM1 MODE1 'RIGIDITE' ;
  115. CHAM23 = CHAN 'CHAM' CHAM2 MODE1 'RIGIDITE' ;
  116. CHAM33 = CHAN 'CHAM' CHAM3 MODE1 'RIGIDITE' ;
  117. CHAM43 = CHAN 'CHAM' CHAM4 MODE1 'RIGIDITE' ;
  118. CHAM53 = CHAN 'CHAM' CHAM5 MODE1 'RIGIDITE' ;
  119.  
  120. *Changement d'un MCHAML vers MCHAML en changeant Support ordre changé
  121. CHAM14 = CHAN 'CHAM' 'RIGIDITE' CHAM1 MODE1 ;
  122. CHAM24 = CHAN 'CHAM' 'RIGIDITE' CHAM2 MODE1 ;
  123. CHAM34 = CHAN 'CHAM' 'RIGIDITE' CHAM3 MODE1 ;
  124. CHAM44 = CHAN 'CHAM' 'RIGIDITE' CHAM4 MODE1 ;
  125. CHAM54 = CHAN 'CHAM' 'RIGIDITE' CHAM5 MODE1 ;
  126.  
  127. *Changement d'un MCHAML vers MCHAML en changeant Support et Type (vide)
  128. CHAM15 = CHAN 'CHAM' CHAM1 MODE1 'RIGIDITE' 'SCAL_A1';
  129. CHAM25 = CHAN 'CHAM' CHAM2 MODE1 'RIGIDITE' 'SCAL_B1';
  130. CHAM35 = CHAN 'CHAM' CHAM3 MODE1 'RIGIDITE' 'SCAL_C1';
  131. CHAM45 = CHAN 'CHAM' CHAM4 MODE1 'RIGIDITE' 'SCAL_D1';
  132. CHAM55 = CHAN 'CHAM' CHAM5 MODE1 'RIGIDITE' 'SCAL_E1';
  133.  
  134. *Changement d'un MCHAML vers MCHAML en changeant Support et Type (plein)
  135. CHAM16 = CHAN 'CHAM' CHAM15 MODE1 'STRESSES' 'SCAL_A2';
  136. CHAM26 = CHAN 'CHAM' CHAM25 MODE1 'STRESSES' 'SCAL_B2';
  137. CHAM36 = CHAN 'CHAM' CHAM35 MODE1 'STRESSES' 'SCAL_C2';
  138. CHAM46 = CHAN 'CHAM' CHAM45 MODE1 'STRESSES' 'SCAL_D2';
  139. CHAM56 = CHAN 'CHAM' CHAM55 MODE1 'STRESSES' 'SCAL_E2';
  140.  
  141.  
  142. *Changement d'un CHPOINT vers MCHAML en spécifiant le Support
  143. CHAM17 = CHAN 'CHAM' CHPO1 MODE1 'STRESSES' ;
  144. CHAM27 = CHAN 'CHAM' CHPO1 MODE1 'STRESSES' ;
  145. CHAM37 = CHAN 'CHAM' CHPO1 MODE1 'STRESSES' ;
  146. CHAM47 = CHAN 'CHAM' CHPO1 MODE1 'STRESSES' ;
  147. CHAM57 = CHAN 'CHAM' CHPO1 MODE1 'STRESSES' ;
  148.  
  149. *Changement d'un CHPOINT vers MCHAML en spécifiant le Support et Type
  150. CHAM18 = CHAN 'CHAM' CHPO1 MODE1 'GRAVITE' 'SCALAIRE';
  151. CHAM28 = CHAN 'CHAM' CHPO1 MODE1 'GRAVITE' 'SCALAIRE';
  152. CHAM38 = CHAN 'CHAM' CHPO1 MODE1 'GRAVITE' 'SCALAIRE';
  153. CHAM48 = CHAN 'CHAM' CHPO1 MODE1 'GRAVITE' 'SCALAIRE';
  154. CHAM58 = CHAN 'CHAM' CHPO1 MODE1 'GRAVITE' 'SCALAIRE';
  155.  
  156. *Changement d'un MCHAML vers CHPOINT en spécifiant un MAILLAGE
  157. CHAM19 = CHAN 'CHAM' CHPO1 V1;
  158.  
  159.  
  160.  
  161. ************************************************************************
  162. * Passage d'un CHPOINT a un CHPOINT avec la syntaxe : CHAN 'CHPO' ...
  163. * Ce cas peut se présenter en thermique avec des chargements sous
  164. * forme de CHPOINT ou MCHAML indifféremment
  165. * Le MMODEL est alors OPTIONNEL
  166. ************************************************************************
  167. *Changement d'un CHPOINT vers CHPOINT sans le modèle (inutile en fait)
  168. CHPO2 = CHAN 'CHPO' CHPO1 ;
  169.  
  170. *Changement d'un CHPOINT vers CHPOINT en donnant le Modèle (inutilisé)
  171. CHPO3 = CHAN 'CHPO' CHPO1 MODE1 ;
  172.  
  173. *Changement d'un CHPOINT vers MCHAML sans la méthode (MOYE, SOMM)
  174. CHPO4 = CHAN 'CHPO' CHAM1 MODE1 ;
  175.  
  176. *Changement d'un CHPOINT vers MCHAML avec la méthode (MOYE, SOMM)
  177. CHPO5 = CHAN 'CHPO' CHAM1 MODE1 'MOYE';
  178. LIST RESU CHPO5;
  179.  
  180. *Changement d'un CHPOINT vers MCHAML sans la méthode (MOYE, SOMM)
  181. CHPO6 = CHAN 'CHPO' CHAM1 MODE1 'SOMM';
  182. LIST RESU CHPO5;
  183.  
  184.  
  185.  
  186. FIN;
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  

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