Télécharger la plaquette Cast3M


fr en

Télécharger plus1.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : plus1.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. 'OPTI' 'ECHO' 0 ;
  5. ************************************************************************
  6. * NOM         : PLUS1
  7. * DESCRIPTION : Test de non-régression de '+' sur les CHPOINTs
  8. *               Avant la fiche 5834, ce test donnait une erreur.
  9. *
  10. *
  11. *
  12. * LANGAGE     : GIBIANE-CAST3M
  13. * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  14. *               mél : gounand@semt2.smts.cea.fr
  15. **********************************************************************
  16. * VERSION    : v1, 07/08/2007, version initiale
  17. * HISTORIQUE : v1, 07/08/2007, création
  18. * HISTORIQUE :
  19. * HISTORIQUE :
  20. ************************************************************************
  21. *
  22. interact = FAUX ;
  23. *
  24. 'SAUTER' 2 'LIGNE' ;
  25. 'MESSAGE' ' Execution de plus1.dgibi' ;
  26. 'SAUTER' 2 'LIGNE' ;
  27. *
  28. 'OPTION' 'DIME' 1  ;
  29. pd1 = 'POIN' -1. ; pA = 'POIN' 0. ; pD = 'POIN' 3. ; pB = 'POIN' 1. ;
  30. mt = pA ; _mt = pA 'ET' pB ;
  31. ch1 = ('MANUEL' 'CHPO' _mt 1 'UX' 1.)
  32.   '+' ('MANUEL' 'CHPO' mt 1 'P' 2.) ;
  33. ch2 = ('MANUEL' 'CHPO' mt 1 'T' 2.)
  34.   '+' ('MANUEL' 'CHPO' _mt 2 'UX' 1. 'VX' 4.) ;
  35. *
  36. chsref = ('MANUEL' 'CHPO' pA 'UX' 2. 'VX' 4. 'P' 2. 'T' 2.)
  37.      '+' ('MANUEL' 'CHPO' pB 'UX' 2. 'VX' 4.) ;
  38. *
  39. lok = VRAI ; errref = 1.D-10 ;
  40. ch3 = ch2 '+' ch1 ;
  41. ch4 = ch1 '+' ch2 ;
  42. *
  43. md1 = 'MAXIMUM' ('-' chsref ch3) 'ABS' ;
  44. t1 = ('EGA' md1 0. errref) ;
  45. 'SI' ('NON' t1) ;
  46.    cherr = 'CHAINE' '!!! Erreur, on aurait voulu md1=' md1 ' < '
  47.                      errref ;
  48.    'MESSAGE' cherr ;                          
  49. 'FINSI' ;                          
  50. lok = lok 'ET' t1 ;
  51. *
  52. md2 = 'MAXIMUM' ('-' chsref ch4) 'ABS' ;
  53. t2 = ('EGA' md2 0. errref) ;
  54. 'SI' ('NON' t2) ;
  55.    cherr = 'CHAINE' '!!! Erreur, on aurait voulu md2=' md2 ' < '
  56.                      errref ;
  57.    'MESSAGE' cherr ;                          
  58. 'FINSI' ;                          
  59. lok = lok 'ET' t2 ;
  60. * Fin du jeu de donnees 
  61. *
  62. 'SAUTER' 2 'LIGNE' ;
  63. 'SI' lok ;
  64.    'MESSAGE' 'Tout sest bien passe' ;
  65. 'SINON' ;
  66.    'MESSAGE' 'Il y a eu des erreurs' ;
  67. 'FINSI' ;   
  68. 'SAUTER' 2 'LIGNE' ;
  69. 'SI' interact ;
  70.    'OPTION' 'DONN' 5 'ECHO' 1 ;
  71. 'FINSI' ;   
  72. 'SI' ('NON' lok) ;
  73.    'ERREUR' 5 ;
  74. 'FINSI' ;   
  75. *
  76. * End of dgibi file PLUS1
  77. *
  78. 'FIN' ;
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  

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