Télécharger la plaquette Cast3M


fr en

Télécharger chan1.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : chan1.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. 'OPTION' 'ECHO' 0 ;
  5. ************************************************************************
  6. * NOM         : CHAN1
  7. * DESCRIPTION : Teste le changement des QUAFs en TRI3 ou QUA4
  8. *               ou TET4 ou CUB8 ou PYR5
  9. *
  10. *
  11. * LANGAGE     : GIBIANE-CAST3M
  12. * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  13. *               mél : gounand@semt2.smts.cea.fr
  14. **********************************************************************
  15. * VERSION    : v1, 09/01/2007, version initiale
  16. * HISTORIQUE : v1, 09/01/2007, création
  17. * HISTORIQUE :
  18. * HISTORIQUE :
  19. ************************************************************************
  20. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  21. * en cas de modification de ce sous-programme afin de faciliter
  22. * la maintenance !
  23. ************************************************************************
  24. interact = FAUX ;
  25. graph    = FAUX ;
  26. 'MESSAGE' ('CHAINE' 'Execution de chan1.dgibi') ;
  27. *
  28. * On vérifie que le changement de l'enveloppe du maillage et
  29. * l'enveloppe du changement du maillage sont identiques
  30. *
  31. 'DEBPROC' testmail ;
  32. 'ARGUMENT' mail*'MAILLAGE' ;
  33. 'ARGUMENT' typres*'MOT' ;
  34. *
  35. email = 'ENVELOPPE' mail ;
  36. _mail = 'CHANGER' mail 'QUAF' ;
  37. _email = 'CHANGER' email 'QUAF' ;
  38. 'ELIMINATION' ('ET' _mail _email) 1.D-6 ;
  39. *
  40. mail2  = 'CHANGER' _mail typres ;
  41. email2 = 'CHANGER' _email typres ;
  42. email3 = 'ENVELOPPE' mail2 ;
  43. 'SI' graph ;
  44.    tit = 'CHAINE' 'Maillage original' ;
  45.    'TRACER' 'FACE' 'ECLA' 0.7 mail 'TITR' tit ;
  46.    tit = 'CHAINE' 'Maillage decoupe en ' typres ;
  47.    'TRACER' 'FACE' 'ECLA' 0.7 mail2 'TITR' tit ;
  48.    tit = 'CHAINE' 'Enveloppe du maillage decoupe en ' typres ;
  49.    'TRACER' 'FACE' 'ECLA' 0.7 email3 'TITR' tit ;
  50. 'FINSI' ;   
  51. mvid = 'DIFF' email2 email3 ;
  52. *'MESSAGE' 'Mail' ; 'LISTE' mail ;
  53. *'MESSAGE' 'Email ' ; 'LISTE' email ;
  54. *'MESSAGE' 'Email 2' ; 'LISTE' email2 ;
  55. *'MESSAGE' 'Email 3' ; 'LISTE' email3 ;
  56. *'MESSAGE' 'Mvid' ; 'LISTE' mvid ;
  57. nlmv = 'NBEL' mvid ;
  58. *'LISTE' nlmv ;
  59. verm mail2 ;
  60. ok = 'EGA' nlmv 0 ;
  61. 'RESPRO' ok ;
  62. 'FINPROC' ;
  63. *
  64. 'OPTION' 'DIME' 3 'ELEM' 'CUB8'  ;
  65. 'SI' ('NON' interact) ;
  66.   'OPTION' 'TRAC' 'PS' ;
  67. 'SINON' ;
  68. *  'OPTION' 'TRAC' 'X' ;
  69.   'OPTION' 'TRAC' 'OPEN' ;
  70. 'FINSI' ;  
  71. *
  72. ltypl = 'MOTS' 'TET4' 'CUB8' 'PYR5' ;
  73. dlt   = 'DIME' ltypl ;
  74. ok = VRAI ;
  75. 'REPETER' iilt dlt ;
  76.    ilt = &iilt ;
  77.    mtypl = 'EXTRAIRE' ltypl ilt ;
  78. * Maillage de base : un cube et un prisme
  79.    p1 = 0. 0. 0. ; p2 = 1. 0. 0. ; p3 = 1. 1. 0. ; p4 = 0. 1. 0. ;
  80.    p5 = 2. 2. 0. ; p6 = 0. 0. 1. ;
  81.    m1 = 'MANUEL' 'QUA4' p1 p2 p3 p4 ; m2 = 'MANUEL' 'TRI3' p2 p5 p3 ;
  82.    mt1 = 'VOLUME' 'TRAN' ('ET' m1 m2) 1 p6 ;
  83.    tes = TESTMAIL mt1 mtypl ;
  84.    'SI' ('NON' tes)  ;
  85.       tt = 'CHAINE' '!!!! Test pas bon pour CHANGER mt1 ' mtypl ;
  86.       'SI' graph ;
  87.          tit = 'CHAINE' 'Mt1' ;
  88.          'TRACER' 'FACE' 'ECLA' 0.7 mt1 'TITR' tit ;
  89.       'FINSI' ;
  90.    'FINSI' ;
  91. * Maillage de base transformé en TET4   
  92.    mt2 = 'CHANGER' ('CHANGER' mt1 'QUAF') 'TET4' ;
  93.    tes = TESTMAIL mt2 mtypl ;
  94.    'SI' ('NON' tes)  ;
  95.       tt = 'CHAINE' '!!!! Test pas bon pour CHANGER mt2 ' mtypl ;
  96.       'SI' graph ;
  97.          tit = 'CHAINE' 'Mt2' ;
  98.          'TRACER' 'FACE' 'ECLA' 0.7 mt2 'TITR' tit ;
  99.       'FINSI' ;
  100.    'FINSI' ;
  101. * Maillage de base transformé en PYR5
  102.    'SI' ('NEG' mtypl 'CUB8') ;
  103.       mt3 = 'CHANGER' ('CHANGER' mt1 'QUAF') 'PYR5' ;
  104.       tes = TESTMAIL mt3 mtypl ;
  105.       'SI' ('NON' tes)  ;
  106.          tt = 'CHAINE' '!!!! Test pas bon pour CHANGER mt3 ' mtypl ;
  107.          'SI' graph ;
  108.             tit = 'CHAINE' 'Mt3' ;
  109.             'TRACER' 'FACE' 'ECLA' 0.7 mt3 'TITR' tit ;
  110.          'FINSI' ;
  111.       'FINSI' ;
  112.    'FINSI' ;       
  113. 'FIN' iilt ;   
  114. *
  115. 'SI' ('NON' ok) ;
  116.    'MESSAGE' ('CHAINE' 'Il y a eu des erreurs') ;
  117.    'ERREUR' 5 ;
  118. 'SINON' ;
  119.    'MESSAGE' ('CHAINE' 'Tout sest bien passe !') ;
  120. 'FINSI' ;
  121. *
  122. 'MESSAGE' ('CHAINE' 'Cest tout pour aujourdhui') ;
  123. *
  124. 'SI' interact ;
  125.    'OPTION' 'ECHO' 1 ;
  126.    'OPTION' 'DONN' 5 ;
  127. 'FINSI' ;
  128. *
  129. * End of dgibi file CHAN1
  130. *
  131. 'FIN' ;
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  

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