Télécharger la plaquette Cast3M


fr en

Télécharger signderi.procedur

Retour à la liste

Numérotation des lignes : 

  1. * SIGNDERI  PROCEDUR  BP208322  16/05/24    21:15:17     8932           
  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' ( 'INTG' 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  ;                                                             
  46.  
  47.  

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