Télécharger la plaquette Cast3M


fr en

Télécharger evol_comp.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : evol_comp.dgibi
  2.  
  3. *******************************************
  4. *******************************************
  5.  
  6. ************************************************************************
  7. *                             PRESENTATION                             *
  8. ************************************************************************
  9. * Ce cas-test permet de tester 
  10. *  1- le bon fonctionnement des differentes combinaisons de l'operateur
  11. *     'EVOL' avec l'option 'COMP'
  12. *  2- le bon fonctionnement de l'operateur 'LIST' de ces combisaisons
  13. *  3- le bon fonctionnement de l'operateur 'DESS' de ces combisaisons
  14. *  4- le bo fonctionnement de l'operateur 'RIMP'
  15. ************************************************************************
  16.  
  17.  OPTI TRAC 'PSC';
  18.  
  19. LAB1 = PROG 1  2  3     4   5 ;
  20.  
  21. LRE1 = PROG 1. 0. -2.2  3. -1.E+5 ;
  22. LIM1 = PROG 0. 5. -2.2  4.  0.E+5 ;
  23.  
  24. LAB2 = LAB1 ;
  25. LMO2 = PROG 1.  5.  (2.2*(2.**0.5))      +5.       +1.E+5 ;
  26. LPH2 = PROG 0. +90.      -135.      (ATG(4./3.))   +180. ;
  27.  
  28. EVR1 = 'EVOL' 'COMP' 'REIM' LAB1 LRE1 LIM1 ;
  29. EVR2 = 'EVOL' 'COMP' 'MOPH' LAB2 LMO2 LPH2 ;
  30.  
  31. EVC2 = RIMP EVR1 ;
  32. EVC3 = RIMP EVC2 ;
  33.  
  34. LIST EVC3 ;
  35. LIST EVC2 ;
  36.  
  37. EV0 = 'ABS' (EVC3 - EVR1) ;
  38. ra1 = 'MAXIMUM' ('EXTRAIRE' ev0 'ORDO' 1) ;
  39. EV0 = RIMP EV0 ;
  40. ra2 = 'MAXIMUM' ('EXTRAIRE' ev0 'ORDO' 1) ;
  41. 'SI' (('>' ra1 1.E-15) 'OU' ('>' ra2 5.E-11)) ;
  42.   'ERREUR' 'TEST 1 RATE' ;
  43. 'FINSI' ;
  44.  
  45. EV0 = 'ABS' (EVC2 - EVR2) ;
  46. ra1 = 'MAXIMUM' ('EXTRAIRE' ev0 'ORDO' 1) ;
  47. 'SI' ('>' ra1 1.E-15) ;
  48.   'ERREUR' 'TEST 2 RATE' ;
  49. 'FINSI' ;
  50. EV0 = RIMP EV0 ;
  51. ra1 = 'MAXIMUM' ('EXTRAIRE' ev0 'ORDO' 1) ;
  52. ra2 = 'MAXIMUM' ('EXTRAIRE' ev0 'ORDO' 2) ;
  53. 'SI' (('>' ra1 1.E-15) 'OU' ('>' ra2 1.E-15)) ;
  54.   'ERREUR' 'TEST 3 RATE' ;
  55. 'FINSI' ;
  56.  
  57. FIN ;
  58.  
  59.  
  60.  
  61.  

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