* fichier : extrevoletiq.dgibi
*----------------------------------------------------------------------*
* Test elementaire : EV2 = 'EXTR' EV1 'COUR' MOT1 ; *
* MOT1 = Nom etiquette d'une des listes d'abscisses ou d'ordonnees. *
*----------------------------------------------------------------------*
* *
'OPTI' 'ECHO' 0 ;
LX1 = 'PROG' 0. 1. ;
LY1 = 'PROG' 0. 2. ;
EV1 = 'EVOL' 'MANU' 'X' LX1 'Y' LY1 ;
EV2 = 'EVOL' 'MANU' 'X' LX1 'Z' (2. * LY1) ;
EV3 = 'EVOL' 'MANU' 'X' LX1 'W' (2. * LY1) ;
EV0 = EV1 ET EV2 ET EV3 ;
* *
EVX = 'EXTR' EV0 'COUR' 'Y' ;
LXX = 'EXTR' EVX 'ABSC' ;
LYX = 'EXTR' EVX 'ORDO' ;
'SI' (('NEG' LX1 LXX) 'OU' ('NEG' LY1 LYX));
'ERRE' 5 ;
'FINS' ;
'FIN' ;
© Cast3M 2003 - All rights reserved.
Disclaimer