Download extrevoletiq.dgibi

Back to the list

* 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