Télécharger chtitr.procedur

Retour à la liste

Numérotation des lignes :

  1. * CHTITR PROCEDUR WANG 93/09/21 21:17:27 893
  2.  
  3. 'DEBPROC' CHTITR EV1*'EVOLUTION' XT/'MOT' YT/'MOT';
  4.  
  5. *--------------------------------------------------------------------
  6. *
  7. * POUR DONNER LE TITRE COURANT A UN OBJET D'EVOLUTION
  8. *
  9. * EV1 : OBJET EVOLUTION
  10. * XT : NOUVEAU TITRE DES ABSCISSES
  11. * YT : NOUVEAU TITRE DES ORDONNEES
  12. *--------------------------------------------------------------------
  13. NC = 'DIME' EV1 ;
  14. LR1 = 'EXTR' EV1 'ABSC' ;
  15.  
  16. 'SI' ( NC 'EGA' 1 ) ;
  17. LR2 = 'EXTR' EV1 'ORDO' ;
  18. 'SI' ( 'EXISTE' XT ) ;
  19. EV1 = 'EVOL' 'MANU' XT LR1 YT LR2 ;
  20. 'SINON' ;
  21.  
  22. * Si XT YT n'existent pas, on perd les noms des axes
  23.  
  24. EV1 = 'EVOL' 'MANU' LR1 LR2 ;
  25. 'FINSI' ;
  26. 'FINSI' ;
  27. 'FINPROC' EV1 ;
  28.  
  29.  

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