Télécharger la plaquette Cast3M


fr en

Télécharger vide.dgibi

Retour à la liste

Numérotation des lignes : 

  1. ************************************************************************
  2. ************************************************************************
  3. ************************************************************************
  4. * NOM         : VIDE
  5. * DESCRIPTION : Quelques tests sur les objets vides suite à la fiche
  6. *               7810 (Bug de RESULT, POIN et CHAN 'CHAM')
  7. *
  8. *
  9. *
  10. * LANGAGE     : GIBIANE-CAST3M
  11. * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  12. *               mél : stephane.gounand@cea.fr
  13. **********************************************************************
  14. * VERSION    : v1, 31/07/2013, version initiale
  15. * HISTORIQUE : v1, 31/07/2013, création
  16. * HISTORIQUE :
  17. * HISTORIQUE :
  18. ************************************************************************
  19. *
  20. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  21. *
  22. * On 'LISTE' les objets car cela peut provoquer un plantage
  23. * souhaité quand l'objet est incorrect
  24. *
  25. mailv = VIDE 'MAILLAGE' ;
  26. 'LISTE' mailv ;
  27. mails = 'MANUEL' 'QUA4' (0. 0.) (1. 0.) ( 1. 1.) (0. 1.) ;
  28. mods = 'MODE' mails 'THERMIQUE' 'ISOTROPE' ;
  29. 'LISTE' mods ;
  30. mats = 'MATE' mods 'K' 100. ;
  31. 'LISTE' mats ;
  32. rigs = 'COND' mods mats ;
  33. 'LISTE' rigs ;
  34. *
  35. chpov = VIDE 'CHPOINT'/'DIFFUS' ;
  36. 'LISTE' chpov ;
  37. chamv = 'CHANGER' 'CHAM' chpov mails ;
  38. 'LISTE' chamv ;
  39. chpodv = '*' rigs chpov ;
  40. 'LISTE' chpodv ;
  41. rc = 'RESULT' chpodv ;
  42. 'LISTE' rc ;
  43. mailrc = 'EXTRAIRE' rc 'MAIL' ;
  44. 'LISTE' mailrc ;
  45. nmailrc = 'NBEL' mailrc ;
  46. 'SI' ('>' nmailrc 0) ;
  47.    ipoi = 'POIN' mailrc 'INITIAL' ;
  48.    'LISTE' ipoi ;
  49.    'SI' ('EGA' ('NOEUD' ipoi) 0) ;
  50.       'MESSAGE' 'Maillage incorrect genere par RESULT' ;
  51.       'ERREUR' 5 ;
  52.    'FINSI' ;
  53. 'FINSI' ;   
  54. mrc = 'MAXIMUM' rc ;
  55. 'LISTE' mrc ;
  56. 'SI' ('NEG' mrc 0.) ;
  57.    'MESSAGE' ('mrc=' mrc '  non nul') ;
  58.    'ERREUR' 5 ;
  59. 'FINSI' ;
  60. *
  61. * Je n'arrive pas à faire fonctionner cette partie du cas-test
  62. * car le niveau d'erreur GIBI est augmenté malgré la ligne suivante 
  63. *'OPTI' 'ERREUR' 'IGNORE' ;
  64. *p1 = 'POIN' mailv 'INITIAL' ;
  65. *p2 = 'POIN' mailv 'FINAL' ;
  66. *p3 = 'POIN' mailv 'PROC' (0. 0.) ;
  67. *'OPTI' 'ERREUR' 'NORMAL' ;
  68. ** Les objets p1...3 doivent être de type ANNULE car mailv est vide 
  69. *lp1 = 'EGA' ('TYPE' p1) 'POINT' ;
  70. *lp2 = 'EGA' ('TYPE' p2) 'POINT' ;
  71. *lp3 = 'EGA' ('TYPE' p3) 'POINT' ;
  72. *'SI' (lp1 'OU' lp2 'OU' lp3) ;
  73. *   'MESSAGE' 'Erreur dans loperateur POINT' ;
  74. *   'ERREUR' 5 ;
  75. *'FINSI' ;   
  76. *
  77.  
  78. * on teste les autres types d'objets cree par VIDE
  79. chamvide = VIDE 'MCHAML'  ;
  80. modevide = VIDE 'MMODEL'  ;
  81. rigivide = VIDE 'RIGIDITE';
  82. evolvide = VIDE 'EVOLUTIO';
  83. progvide = VIDE 'LISTREEL';
  84. lectvide = VIDE 'LISTENTI'; 
  85. lmotvide = VIDE 'LISTMOTS';
  86. lchpvide = VIDE 'LISTCHPO';
  87. tablvide = VIDE 'TABLE'   ;
  88. defovide = VIDE 'DEFORME' ;
  89. vectvide = VIDE 'VECTEUR' ;
  90. chrgvide = VIDE 'CHARGEME';
  91.  
  92. LIST chamvide  ;
  93. LIST modevide  ;
  94. LIST rigivide  ; mess (DIME rigivide);
  95. LIST evolvide  ; mess (DIME evolvide);
  96. LIST progvide  ; mess (DIME progvide);
  97. LIST lectvide  ; mess (DIME lectvide);
  98. LIST lmotvide  ; mess (DIME lmotvide);
  99. LIST lchpvide  ; mess (DIME lchpvide);
  100. LIST tablvide  ; mess (DIME tablvide);
  101. LIST defovide  ;
  102. LIST vectvide  ;
  103. LIST chrgvide  ; mess (DIME chrgvide);
  104.  
  105. * End of dgibi file VIDE
  106. *
  107. 'FIN' ;
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  

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