Télécharger la plaquette Cast3M


fr en

Télécharger exis_01.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  exis_01.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. *           Test exis_01.dgibi: Jeux de données       *
  7. *           ---------------------------------         *
  8. *******************************************************
  9. *                                                     *
  10. *                                                     *
  11. * Presentation : Test de la 1ere syntaxe de EXIS :    *
  12. *                LOG1 ='EXIS' Nom(*'TYPE')            *
  13. *                LOG1 ='EXIS' Nom(*'FICHIER')         *
  14. *                                                     *
  15. *   Verification & Validation                         *
  16. *     Les resultats attendus sont testes et une erreur*
  17. *     est emise s'ils ne sont pas corrects            *
  18. *                                                     *
  19. * Creation : 15/12/2021                               *
  20. * Createur : C. BERTHINIER                            *
  21. *******************************************************
  22.  
  23.  
  24. * MAILLAGE
  25. 'OPTI' 'DIME' 2 'ELEM' 'QUA4' ;
  26.  
  27.  P1 = 0. 0. ;
  28.  P2 = 1. 0. ;
  29.  L1 ='DROI' 10 P1 P2 ;
  30.  
  31.  
  32. * Test 1 de l'operateur EXIS
  33.  LOG11 ='EXIS' P1            ; 'COMM' 'Doit etre VRAI';
  34.  LOG12 ='EXIS' P1*'POINT'    ; 'COMM' 'Doit etre VRAI';
  35.  LOG13 ='EXIS' L1*'MAILLAGE' ; 'COMM' 'Doit etre VRAI';
  36.  LOG14 ='EXIS' P1*'MAILLAGE' ; 'COMM' 'Doit etre FAUX';
  37.  LOG15 ='EXIS' P1*'FICHIER'  ; 'COMM' 'Doit etre FAUX';
  38.  
  39.  LOG1  = LOG11 'ET' LOG12 'ET' LOG13 'ET' ('NON' LOG14) 'ET' ('NON' LOG15) ;
  40.  
  41.  
  42. * Creation d'un fichier bidon : Nom du fichier de calcul sans extension suivi de '.sauv'
  43.  Nom_Fic   ='VENV' 'CASTEM_PROJET';
  44. 'SI' ('EGA' Nom_fic ' ');
  45.    Nom_fic = 'CHAI' '_bidon.dgibi';
  46. 'FINSI';
  47.  Nom_SE    ='EXTR'  Nom_Fic ('LECT' 1 'PAS' 1 (('DIME' Nom_Fic) - 6)) ;
  48.  Fic_Sauv  ='CHAI' Nom_SE '.sauv' ;
  49. 'OPTI' 'SAUV' Fic_Sauv;
  50. 'SAUV' ;
  51.  
  52.  
  53. * Test 2 de l'operateur EXIS
  54.  LOG2 ='EXIS' Fic_Sauv*'FICHIER';
  55.  
  56.  
  57. * Validation generale et FIN
  58.  LOG_TOT = LOG1 'ET' LOG2 ;
  59. 'SI' ('NON' LOG_TOT);
  60.   CHAI_ERR ='CHAI' 'Erreur dans le test de l''operateur EXIS (syntaxe 1)';
  61.   'ERRE' CHAI_ERR ;
  62. 'FINS';
  63. 'FIN';
  64.  
  65.  
  66.  

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