Télécharger la plaquette Cast3M


fr en

Télécharger peche.procedur

Retour à la liste

Numérotation des lignes : 

  1. * PECHE     PROCEDUR  PASCAL    20/07/30    21:15:25     10672          
  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.              ICOMPM1 = ICOMP - 1 ;
  35.              VAL0    = TT2.ICOMPM1 ;
  36.              NOM0    = TT1.ICOMPM1 ;
  37.              SI (EGA NOM 'MODELES') ;
  38.                TOTO    = NOM0 ;
  39.              SINON ;
  40.                NOM1    = TT1.ICOMP ;
  41.                TOTO    = (VAL - VAL0) / (VAL1 - VAL0) * (NOM1 - NOM0) ;
  42.                TOTO    = NOM0 + TOTO ;
  43.              FINSI ;
  44.              ISUCCES = 1 ;                                                      
  45.              'SI' ( 'NEG'  JIMPRIM 0 ) ;                                        
  46.                 'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;
  47.              'FINSI';                                                           
  48.              'QUITTER' BOUC ;                                                   
  49.            FINS ;
  50.         'FINS' ;
  51.         'FINSI' ;                                                               
  52.      'FIN' BOUC ;                                                               
  53.    'SINON';                                                                     
  54.       TOTO = TT1.(NDIM - 1) ;                                                
  55.       ISUCCES = 1 ;                                                             
  56.    'FINSI' ;                                                                    
  57.    'SI' ( ISUCCES 'EGA' 0 ) ;                                                  
  58.       'ERREUR' '*** On n a pas trouve le résultat cherché.' ;                  
  59.    'FINSI' ;                                                                   
  60.  
  61. 'SINON';
  62.  
  63.    'SI' ( 'EXIS' TT  'RESUDEPL'  );                                   
  64.  
  65. *------------ TRAITEMENT D'UNE TABLE ISSUE DE NONLIN --------------             
  66.  
  67.       TT1 = TT . NOM ;                                                          
  68.       TTIND = 'INDEX' TT1 ;                                                     
  69.       NDIM = 'DIME' TTIND ;                                                     
  70.       JIMPRIM = 'VALEUR' 'IMPI' ;                                               
  71.       'SI' ( 'EXIS' VAL ) ;                                                     
  72.          ICOMP = 0 ;                                                            
  73.          ISUCCES = 0 ;                                                          
  74.          VALREF = TTIND . NDIM * 1.E-6 ;                                        
  75.          'REPETER' BOUC NDIM ;                                                  
  76.             ICOMP = ICOMP + 1 ;                                                 
  77.             VAL1 =  TTIND . ICOMP ;                                             
  78.             'SI' ( 'EGA' VAL1 VAL  VALREF ) ;                                   
  79.                TOTO = TT1 . ( TTIND . ICOMP ) ;                                 
  80.                ISUCCES = 1 ;                                                    
  81.                'SI' ( 'NEG'  JIMPRIM 0 ) ;                                      
  82.                   'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1;             
  83.                'FINSI';                                                         
  84.                'QUITTER' BOUC ;                                                 
  85.             'FINSI' ;                                                           
  86.          'FIN' BOUC ;                                                           
  87.       'SINON';                                                                  
  88.          TOTO = TT1 . ( TTIND . NDIM  ) ;                                       
  89.          ISUCCES = 1 ;                                                          
  90.       'FINSI' ;                                                                 
  91.       'SI' ( ISUCCES 'EGA' 0 ) ;                                                
  92.         'ERREUR' '*** On n a pas trouve le résultat cherché.' ;                 
  93.       'FINSI' ; 
  94.    'SINON'; 
  95.   'ERRE' '*** La table fournie ne convient pas';                                
  96.    'FINSI';
  97. 'FINSI';                                                                        
  98. 'FINPROC' TOTO ;
  99.  

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