Procedures | Cast3M

   1 : * SIGNDERI  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
   2 : DEBPROC SIGNDERI  EVSIG1*'EVOLUTIO' ;                                           
   3 : *                                                                               
   4 : *   PROC{DURE SIGNDERI                                                          
   5 : *   ------------------                                                          
   6 : *   EV02 =  SIGNDERI  EVO1                                                      
   7 : *                                                                               
   8 : *   LA DIRECTIVE SIGNDERI  AJOUTE UNE DROITE @ L'ACC{LEROGRAMME POUR            
   9 : *   AVOIR LES VITESSE ET D{PLACEMENT NULS AUX TEMPS INITIAL ET FINAL.           
  10 : *                                                                               
  11 : *   EVO1  :  SIGNAL @ CORRIGER        (TYPE EVOLUTION)                          
  12 : *   EVO2  :  SIGNAL CORRIG{           (TYPE EVOLUTION)                          
  13 : *                                                                               
  14 : LRSIG = 'EXTR' EVSIG1 'ORDO' 1 ;   NNSIG = 'DIME' LRSIG  ;                      
  15 : *                                                                               
  16 : LRACC   = 'EXTR' EVSIG1 'ORDO' 1 ;  NP = 'DIME' LRACC  ;                        
  17 : LRTPS   = 'EXTR' EVSIG1 'ABSC' 1 ;  TLAST = 'EXTR' LRTPS NP ;                   
  18 : ZDT     = ( 'EXTR' LRTPS 2 ) '-' ( 'EXTR' LRTPS 1 ) ;                           
  19 : LRACC1  = 'ENLE'   LRACC  1   ;  LRACC  = 'ENLE'  LRACC  NP ;                   
  20 : LRTPSMN = 'ENLE'   LRTPS   NP ;  NP = NP '-' 1 ;                                
  21 : EVZ2    =  'EVOL' 'MANU' 'TEMPS' LRTPSMN  ' ' LRACC ;                           
  22 : LRANPN1 =  LRACC '+' LRACC1 ;                                                   
  23 : *                                                                               
  24 : *          COND. INITIALES                                                      
  25 : D0 = 0. ;  V0 = 0. ;                                                            
  26 : VN = V0 ;  DN = D0 ; ZI = 1 ;                                                   
  27 : 'REPETER' ZLOOP1 ( NP '-' 1 ) ;                                                 
  28 :      VN = VN '+' ( 'EXTR' LRANPN1  ZI ) ;                                       
  29 :      DN = DN '+'  VN  ;                                                         
  30 :      ZI = ZI '+' 1 ;                                                            
  31 : 'FIN' ZLOOP1 ;                                                                  
  32 : VLAST =  VN '*' ZDT '*' 0.5    ;                                                
  33 : DLAST = 0.5 '*' ZDT '*' ( ( DN '*' ZDT ) '+'                                    
  34 : ( 'EXTR' ( 'SOMM' EVZ2 ) 1 ) ) ;                                                
  35 : TLAST2 = TLAST '*' TLAST ; TLAST3 = TLAST2 '*' TLAST ;                          
  36 : *                                                                               
  37 : AUX1 = ( ( VLAST '*' TLAST ) '-' ( 2. '*' DLAST ) ) '/'  TLAST3 ;               
  38 : AUX2 = ( ( 3. '*' DLAST ) '-' ( VLAST '*' TLAST ) ) '/'  TLAST2 ;               
  39 : AUX5 = 6. '*' AUX1 ; AUX6 = 2. '*' AUX2 ;                                       
  40 : LAUX5T = ( 'PROG' NNSIG '*' AUX5 ) '*' LRTPS ;                                  
  41 : LAUX6  = 'PROG' NNSIG '*' AUX6 ;                                                
  42 : LRSIGC = LRSIG '-' LAUX5T '-' LAUX6 ;  'REMP' LRSIGC 1 0. ;                     
  43 : EVSIG2 = 'EVOL' 'MANU' 'TEMPS'   LRTPS  ' '   LRSIGC ;                          
  44 : *                                                                               
  45 : 'FINPROC' EVSIG2  ;