Télécharger la plaquette Cast3M


fr en

Télécharger peche.procedur

Retour à la liste

Numérotation des lignes : 

  1. * PECHE     PROCEDUR  SP204843  26/03/10    21:15:09     12488          
  2. 'DEBPROC' PECHE TT*TABLE NOM*MOT VAL/FLOTTANT MOT1/'MOT';                       
  3.  
  4. 'SI' ( 'EXIS'  TT  'TEMPS' );                                   
  5.  
  6. *----------- TRAITEMENT D'UNE TABLE FORMAT DE PASAPAS ---------------           
  7.  
  8.    'SI' ('EXIS' MOT1) ;
  9.      IPOL1   = 'EGA' MOT1 'IPOL' ;
  10.    'SINO' ;
  11.      IPOL1   = FAUX ;
  12.    'FINS' ;
  13.    TT1 = TT . NOM ; 
  14.    TT2 = TT . 'TEMPS';                                                          
  15.    NDIM = 'DIME' TT2 ;                                                          
  16.    JIMPRIM = 'VALEUR' 'IMPI' ;                                                  
  17.    'SI' ( 'EXIS' VAL ) ;                                                        
  18.      ICOMP = -1 ;                                                               
  19.      ISUCCES = 0 ;                                                              
  20.      VALREF = VAL * 1.E-10 ;                                       
  21.      'REPETER' BOUC NDIM ;                                                      
  22.         ICOMP = ICOMP + 1 ;                                                     
  23.         VAL1  = TT2.ICOMP;                                                      
  24.         'SI' ( 'EGA' VAL1 VAL VALREF) ;                                       
  25.            TOTO = TT1.ICOMP ;                                              
  26.            ISUCCES = 1 ;                                                        
  27.            'SI' ( 'NEG'  JIMPRIM 0 ) ;                                          
  28.               'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;                
  29.            'FINSI';                                                             
  30.            'QUITTER' BOUC ;                                                     
  31.         'SINO' ;
  32.           'SI' IPOL1 ;
  33.              SI (VAL1 '>' VAL) ;
  34.                'SI' (ICOMP 'EGA' 0) ;
  35.                  TOTO    = TT1.ICOMP ;
  36.                'SINON' ;
  37.                  ICOMPM1 = ICOMP - 1 ;
  38.                  VAL0    = TT2.ICOMPM1 ;
  39.                  NOM0    = TT1.ICOMPM1 ;
  40.                  SI (EGA NOM 'MODELES') ;
  41.                    TOTO    = NOM0 ;
  42.                  SINON ;
  43.                    NOM1    = TT1.ICOMP ;
  44.                    TOTO    = (VAL - VAL0) / (VAL1 - VAL0) * (NOM1 - NOM0) ;
  45.                    TOTO    = NOM0 + TOTO ;
  46.                  FINSI ;
  47.                'FINSI' ;
  48.                ISUCCES = 1 ;                                                      
  49.                'SI' ( 'NEG'  JIMPRIM 0 ) ;                                        
  50.                   'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;
  51.                'FINSI';                                                           
  52.                'QUITTER' BOUC ;                                                   
  53.              FINS ;
  54.           'FINSI' ;
  55.         'FINSI' ;                                                               
  56.      'FIN' BOUC ;                                                               
  57.      'SI' (IPOL1 'ET' (VAL '>' VAL1)) ;
  58.         TOTO = TT1.(NDIM - 1) ;                                                
  59.         ISUCCES = 1 ;                                                             
  60.         'SI' ( 'NEG'  JIMPRIM 0 ) ;                                        
  61.           'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;
  62.         'FINSI';                                                           
  63.      'FINSI' ;
  64.    'SINON';                                                                     
  65.       TOTO = TT1.(NDIM - 1) ;                                                
  66.       ISUCCES = 1 ;                                                             
  67.    'FINSI' ;                                                                    
  68.    'SI' ( ISUCCES 'EGA' 0 ) ;                                                  
  69.       'ERREUR' '*** On n a pas trouve le résultat cherché.' ;                  
  70.    'FINSI' ;                                                                   
  71.  
  72. 'SINON';
  73.  
  74.    'SI' ( 'EXIS' TT  'RESUDEPL'  );                                   
  75.  
  76. *------------ TRAITEMENT D'UNE TABLE ISSUE DE NONLIN --------------             
  77.  
  78.       TT1 = TT . NOM ;                                                          
  79.       TTIND = 'INDEX' TT1 ;                                                     
  80.       NDIM = 'DIME' TTIND ;                                                     
  81.       JIMPRIM = 'VALEUR' 'IMPI' ;                                               
  82.       'SI' ( 'EXIS' VAL ) ;                                                     
  83.          ICOMP = 0 ;                                                            
  84.          ISUCCES = 0 ;                                                          
  85.          VALREF = TTIND . NDIM * 1.E-6 ;                                        
  86.          'REPETER' BOUC NDIM ;                                                  
  87.             ICOMP = ICOMP + 1 ;                                                 
  88.             VAL1 =  TTIND . ICOMP ;                                             
  89.             'SI' ( 'EGA' VAL1 VAL  VALREF ) ;                                   
  90.                TOTO = TT1 . ( TTIND . ICOMP ) ;                                 
  91.                ISUCCES = 1 ;                                                    
  92.                'SI' ( 'NEG'  JIMPRIM 0 ) ;                                      
  93.                   'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1;             
  94.                'FINSI';                                                         
  95.                'QUITTER' BOUC ;                                                 
  96.             'FINSI' ;                                                           
  97.          'FIN' BOUC ;                                                           
  98.       'SINON';                                                                  
  99.          TOTO = TT1 . ( TTIND . NDIM  ) ;                                       
  100.          ISUCCES = 1 ;                                                          
  101.       'FINSI' ;                                                                 
  102.       'SI' ( ISUCCES 'EGA' 0 ) ;                                                
  103.         'ERREUR' '*** On n a pas trouve le résultat cherché.' ;                 
  104.       'FINSI' ; 
  105.    'SINON'; 
  106.   'ERRE' '*** La table fournie ne convient pas';                                
  107.    'FINSI';
  108. 'FINSI';                                                                        
  109. 'FINPROC' TOTO ;
  110.  
  111.  

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