Télécharger la plaquette Cast3M


fr en

Télécharger proi3.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : proi3.dgibi
  2. 'OPTI' echo 0 ;
  3. ************************************************************************
  4. * NOM         : PROI3
  5. * DESCRIPTION : Cas-test de la gestion des soucis et du critere de
  6. *               rattrapage dans PROI.
  7. *
  8. *
  9. *
  10. * LANGAGE     : GIBIANE-CAST3M
  11. * AUTEUR      : Stephane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  12. *               mel : stephane.gounand@cea.fr
  13. **********************************************************************
  14. * VERSION    : v1, 15/02/2019, version initiale
  15. * HISTORIQUE : v1, 15/02/2019, création
  16. * HISTORIQUE :
  17. * HISTORIQUE :
  18. ************************************************************************
  19. *
  20. interact = faux ;
  21. graph    = faux ;
  22. *
  23. 'OPTION' 'DIME' 2 'ELEM' 'QUA4'  ;
  24. *
  25. p0 = 0. 1. ; p1 = 0. 0. ; p2 = 1. 1. ;
  26. *
  27. n1 = 2 ;
  28. c1 = 'CERC' n1 p1 p0 p2 ;
  29. d1 = 'COUT' c1 p0 ;
  30. x1 y1 = 'COOR' d1 ;
  31. x0 y0 = 'COOR' p0 ;
  32. r1 = '**' ('+' ('**' ('-' x1 x0) 2) ('**' ('-' y1 y0) 2)) 0.5 ;
  33. 'SI' graph ; 'TRAC' r1 d1 ; 'FINS' ;
  34. cr1 = 'CHAN' 'CHAM' r1 d1 ;
  35. *
  36. n2 = 3 ;
  37. c2 = 'CERC' n2 p1 p0 p2 ;
  38. d2 = 'COUT' c2 p0 'COUL' roug ;
  39. 'SI' graph ; 'TRAC' (d1 'ET' d2) ; 'FINS' ;
  40. *
  41. vcrit = 1.d-5 ;
  42. *
  43. lcrit = faux ;
  44. 'REPE' iicrit 20 ;
  45.    icrit = &iicrit ;
  46.    souci 0 ;
  47.    r12 = 'PROI' d2 cr1 vcrit ;
  48.    'SI' (souci) ;
  49.       'MESS' 'Souci' ' ' icrit ' ! vcrit=' vcrit ;
  50.       vcrit = '*' vcrit 2. ;
  51.    'SINO' ;
  52.       lcrit = vrai ;
  53.       'QUIT' iicrit ;
  54.    'FINS' ;
  55. 'FIN' iicrit ;
  56. 'SI' lcrit ;
  57.    mr12 = 'MAXI' r12 'ABS' ;
  58.    'MESS' 'Projection reussie vcrit=' vcrit ' icrit=' icrit
  59.       ' maxi R=' mr12  ;
  60.    'SI' graph ; 'TRAC' r12 d2 ; 'FINS' ;
  61. 'SINO' ;
  62.    'MESS' 'Projection ratee vcrit=' vcrit ' icrit=' icrit ;
  63. 'FINS' ;   
  64. *
  65. * Test 
  66. *
  67. * Au 2019/0218, on a :
  68. * Projection reussie vcrit= 8.19200E-02     icrit=   14    maxi R= 1.0731
  69. *
  70. vcritr = 8.5e-2 ; icritr = 15 ; mr12r = 1. '+' vcritr ;
  71. *
  72. lok = lcrit ;
  73. *
  74. 'SI' lcrit ;
  75.    'SI' ('>' vcrit vcritr) ;
  76.       'MESS' ('CHAI' '!!!  vcrit=' vcrit ' > vcritr=' vcritr) ;
  77.       lok = lok 'ET' faux ;
  78.    'FINS' ;      
  79.    'SI' ('>' icrit icritr) ;
  80.       'MESS' ('CHAI' '!!!  icrit=' icrit ' > icritr=' icritr) ;
  81.       lok = lok 'ET' faux ;
  82.    'FINS' ;      
  83.    'SI' ('>' mr12 mr12r) ;
  84.       'MESS' ('CHAI' '!!!  mr12=' mr12 ' > mr12r=' mr12r) ;
  85.       lok = lok 'ET' faux ;
  86.    'FINS' ;      
  87. 'FINS' ;
  88. *
  89. 'SAUT' 1 'LIGNE' ;
  90. 'SI' lok ;
  91.    'MESSAGE' 'Tout sest bien passe' ;
  92. 'SINON' ;
  93.    'MESSAGE' '!!! Il y a eu des erreurs' ;
  94. 'FINSI' ;   
  95. 'SAUT' 1 'LIGNE' ;
  96. *
  97. 'SI' interact ;
  98.    'OPTION' 'DONN' 5 'ECHO' 1 ;
  99. 'FINSI' ;   
  100. 'SI' ('NON' lok) ;
  101.    'ERREUR' 5 ;
  102. 'FINSI' ;   
  103. *
  104. * End of dgibi file PROI3
  105. *
  106. 'FIN' ;
  107.  
  108.  
  109.  
  110.  

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