Télécharger la plaquette Cast3M


fr en

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. ************************************************************************
  49. OPTI ELEM SEG2;
  50.  
  51. NEZ = 2 ;
  52.  
  53. P1= 0. 0. 0. ;
  54. P2= 1. 0. 0. ;
  55.  
  56. L1= DROI NEZ P1 P2     ;
  57. L2= L1 PLUS (0. 1. 0.);
  58.  
  59. OPTI ELEM QUA4    ;
  60. S1= REGL L1 NEZ L2 ;
  61.  
  62. OPTI ELEM CUB8                ;
  63. V1= VOLU S1 TRAN NEZ (0. 0. 1.);
  64.  
  65.  
  66. SI(NEG GRAPH 'N');
  67.   TRAC CACH V1   ;
  68. FINSI            ;
  69.  
  70.  
  71. ************************************************************************
  72. * Création d'un CHPOINT
  73. ************************************************************************
  74. X Y Z = COOR V1             ;
  75. CHPO1 = X + (Y**2) + (Z**3) ;
  76.  
  77. list resu chpo1 ;
  78.  
  79. ************************************************************************
  80. * Création d'un MMODEL de MECANIQUE
  81. ************************************************************************
  82. MODE1 = MODE V1 MECANIQUE ELASTIQUE ISOTROPE;
  83.  
  84. ************************************************************************
  85. * Création de différents types de MCHAML : Supports différents
  86. ************************************************************************
  87. CHAM1 = CHAN 'CHAM'     CHPO1 MODE1 ;
  88.  
  89. CHAM2 = CHAN 'NOEUD'    CHAM1 MODE1 ;
  90. CHAM3 = CHAN 'GRAVITE'  CHAM1 MODE1 ;
  91. CHAM4 = CHAN 'MASSE'    CHAM1 MODE1 ;
  92. CHAM5 = CHAN 'STRESSES' CHAM1 MODE1 ;
  93.  
  94. lister resu cham1 ;
  95. lister resu cham2 ;
  96. lister resu cham3 ;
  97. lister resu cham4 ;
  98. lister resu cham5 ;
  99.  
  100.  
  101. ************************************************************************
  102. * Passage d'un MCHAML a un MCHAML avec la syntaxe : CHAN 'CHAM' ...
  103. *    Ce cas peut se présenter en thermique avec des chargements sous 
  104. *    forme de CHPOINT ou MCHAML indifféremment
  105. *    Par défaut le support est aux 'NOEUD'
  106. ************************************************************************
  107. CHAM12 = CHAN 'CHAM'     CHAM1 MODE1 ;
  108. CHAM22 = CHAN 'CHAM'     CHAM2 MODE1 ;
  109. CHAM32 = CHAN 'CHAM'     CHAM3 MODE1 ;
  110. CHAM42 = CHAN 'CHAM'     CHAM4 MODE1 ;
  111. CHAM52 = CHAN 'CHAM'     CHAM5 MODE1 ;
  112.  
  113. lister resu cham12 ;
  114. lister resu cham22 ;
  115. lister resu cham32 ;
  116. lister resu cham42 ;
  117. lister resu cham52 ;
  118. zz = 'ABS' (cham12 '-' cham1) ;
  119. lister resu zz ; list (mini zz) ; list (maxi zz) ;
  120. zz = 'ABS' (cham22 '-' cham1) ;
  121. lister resu zz ; list (mini zz) ; list (maxi zz) ;
  122. zz = 'ABS' (cham42 '-' cham1) ;
  123. lister resu zz ; list (mini zz) ; list (maxi zz) ;
  124. zz = 'ABS' (cham52 '-' cham1) ;
  125. lister resu zz ; list (mini zz) ; list (maxi zz) ;
  126.  
  127. ************************************************************************
  128. * Passage d'un MCHAML a un MCHAML avec la syntaxe : CHAN 'CHAM' ...
  129. *    Ce cas peut se présenter en thermique avec des chargements sous 
  130. *    forme de CHPOINT ou MCHAML indifféremment
  131. *    Par défaut le support est aux 'NOEUD'
  132. ************************************************************************
  133.  
  134. *Changement d'un MCHAML vers MCHAML en changeant Support
  135. CHAM13 = CHAN 'CHAM' CHAM1 MODE1 'RIGIDITE' ;
  136. CHAM23 = CHAN 'CHAM' CHAM2 MODE1 'RIGIDITE' ;
  137. CHAM33 = CHAN 'CHAM' CHAM3 MODE1 'RIGIDITE' ;
  138. CHAM43 = CHAN 'CHAM' CHAM4 MODE1 'RIGIDITE' ;
  139. CHAM53 = CHAN 'CHAM' CHAM5 MODE1 'RIGIDITE' ;
  140.  
  141. lister resu cham13 ;
  142. lister resu cham23 ;
  143. lister resu cham33 ;
  144. lister resu cham43 ;
  145. lister resu cham53 ;
  146.  
  147. *Changement d'un MCHAML vers MCHAML en changeant Support ordre changé
  148. CHAM14 = CHAN 'CHAM' 'RIGIDITE' CHAM1 MODE1 ;
  149. CHAM24 = CHAN 'CHAM' 'RIGIDITE' CHAM2 MODE1 ;
  150. CHAM34 = CHAN 'CHAM' 'RIGIDITE' CHAM3 MODE1 ;
  151. CHAM44 = CHAN 'CHAM' 'RIGIDITE' CHAM4 MODE1 ;
  152. CHAM54 = CHAN 'CHAM' 'RIGIDITE' CHAM5 MODE1 ;
  153.  
  154. lister resu cham14 ;
  155. lister resu cham24 ;
  156. lister resu cham34 ;
  157. lister resu cham44 ;
  158. lister resu cham54 ;
  159.  
  160. *Changement d'un MCHAML vers MCHAML en changeant Support et Type (vide)
  161. CHAM15 = CHAN 'CHAM' CHAM1 MODE1 'RIGIDITE' 'SCAL_A1';
  162. CHAM25 = CHAN 'CHAM' CHAM2 MODE1 'RIGIDITE' 'SCAL_B1';
  163. CHAM35 = CHAN 'CHAM' CHAM3 MODE1 'RIGIDITE' 'SCAL_C1';
  164. CHAM45 = CHAN 'CHAM' CHAM4 MODE1 'RIGIDITE' 'SCAL_D1';
  165. CHAM55 = CHAN 'CHAM' CHAM5 MODE1 'RIGIDITE' 'SCAL_E1';
  166.  
  167. lister resu cham15 ;
  168. lister resu cham25 ;
  169. lister resu cham35 ;
  170. lister resu cham45 ;
  171. lister resu cham55 ;
  172.  
  173. *Changement d'un MCHAML vers MCHAML en changeant Support et Type (plein)
  174. CHAM16 = CHAN 'CHAM' CHAM15 MODE1 'STRESSES' 'SCAL_A2';
  175. CHAM26 = CHAN 'CHAM' CHAM25 MODE1 'STRESSES' 'SCAL_B2';
  176. CHAM36 = CHAN 'CHAM' CHAM35 MODE1 'STRESSES' 'SCAL_C2';
  177. CHAM46 = CHAN 'CHAM' CHAM45 MODE1 'STRESSES' 'SCAL_D2';
  178. CHAM56 = CHAN 'CHAM' CHAM55 MODE1 'STRESSES' 'SCAL_E2';
  179.  
  180. lister resu cham16 ;
  181. lister resu cham26 ;
  182. lister resu cham36 ;
  183. lister resu cham46 ;
  184. lister resu cham56 ;
  185.  
  186. *Changement d'un CHPOINT vers MCHAML en spécifiant le Support
  187. CHAM17 = CHAN 'CHAM' CHPO1 MODE1 'NOEUD' ;
  188. CHAM27 = CHAN 'CHAM' CHPO1 MODE1 'GRAVITE' ;
  189. CHAM37 = CHAN 'CHAM' CHPO1 MODE1 'STRESSES' ;
  190. CHAM47 = CHAN 'CHAM' CHPO1 MODE1 'MASSE' ;
  191. CHAM57 = CHAN 'CHAM' CHPO1 MODE1 'RIGIDITE' ;
  192.  
  193. lister resu cham17 ;
  194. lister resu cham27 ;
  195. lister resu cham37 ;
  196. lister resu cham47 ;
  197. lister resu cham57 ;
  198.  
  199. *Changement d'un CHPOINT vers MCHAML en spécifiant le Support et Type
  200. CHAM18 = CHAN 'CHAM' CHPO1 MODE1 'NOEUD'    'SCALAIRE';
  201. CHAM28 = CHAN 'CHAM' CHPO1 MODE1 'GRAVITE'  'SCALAIRE';
  202. CHAM38 = CHAN 'CHAM' CHPO1 MODE1 'STRESSES' 'SCALAIRE';
  203. CHAM48 = CHAN 'CHAM' CHPO1 MODE1 'MASSE'    'SCALAIRE';
  204. CHAM58 = CHAN 'CHAM' CHPO1 MODE1 'RIGIDITE' 'SCALAIRE';
  205.  
  206. lister resu cham18 ;
  207. lister resu cham28 ;
  208. lister resu cham38 ;
  209. lister resu cham48 ;
  210. lister resu cham58 ;
  211.  
  212. *Changement d'un MCHAML vers CHPOINT en spécifiant un MAILLAGE
  213. CHAM19 = CHAN 'CHAM' CHPO1 V1;
  214.  
  215. lister resu cham19 ;
  216.  
  217. ************************************************************************
  218. * Passage d'un CHPOINT a un CHPOINT avec la syntaxe : CHAN 'CHPO' ...
  219. *    Ce cas peut se présenter en thermique avec des chargements sous 
  220. *    forme de CHPOINT ou MCHAML indifféremment
  221. *    Le MMODEL est alors OPTIONNEL
  222. ************************************************************************
  223. *Changement d'un CHPOINT vers CHPOINT sans le modèle (inutile en fait)
  224. CHPO2 = CHAN 'CHPO' CHPO1       ;
  225.  
  226. *Changement d'un CHPOINT vers CHPOINT en donnant le Modèle (inutilisé)
  227. CHPO3 = CHAN 'CHPO' CHPO1 MODE1 ;
  228.  
  229. *Changement d'un CHPOINT vers MCHAML sans la méthode (MOYE, SOMM)
  230. CHPO4 = CHAN 'CHPO' CHAM1 MODE1 ;
  231.  
  232. *Changement d'un CHPOINT vers MCHAML avec la méthode (MOYE, SOMM)
  233. CHPO5 = CHAN 'CHPO' CHAM1 MODE1 'MOYE';
  234. LIST RESU CHPO5;
  235.  
  236. *Changement d'un CHPOINT vers MCHAML sans la méthode (MOYE, SOMM)
  237. CHPO6 = CHAN 'CHPO' CHAM1 MODE1 'SOMM';
  238. LIST RESU CHPO6;
  239.  
  240.  
  241. FIN;
  242.  
  243.  
  244.  
  245.  

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