Télécharger la plaquette Cast3M


fr en

Télécharger exemple_choi.dgibi

Retour à la liste

Numérotation des lignes : 

  1. *-----------------------------------------------------------------------------*
  2. *FRA- Exemple simple d'utilisation de l'operateur CHOI
  3. *ENG- A simple example of the CHOI operator
  4. *-----------------------------------------------------------------------------*
  5. 'OPTION' 'ECHO' 0 ;
  6.  
  7. bGRA = FAUX ;
  8. ** bGRA = VRAI ; 'COMM' 'Pour un trace interactif' ;
  9.  
  10. 'SI' bGRA ;
  11.   'OPTION' 'TRAC' 'X   ' ; 'COMM' 'X ou OPEN' ;
  12. 'SINON' ;
  13.   'OPTION' 'TRAC' 'PSC ' ; 'COMM' 'autre mode different de X et OPEN' ;
  14. 'FINSI' ;
  15.  
  16. * Evolution 1 :
  17. 'TITRE' 'Une premiere courbe' ;
  18. ev1 = 'EVOL' 'ROUG' 'MANU' 'ABSC_X' (PROG 0. 1. 2.) 'ORDO_Y' (PROG 0. 2.3 1.2) ;
  19.  
  20. * Evolution 2 :
  21. lr_x = 'PROG' 0. 'PAS' 2. 180 ;
  22. lr_y = 'SIN' lr_x ;
  23. ev2 = 'EVOL' 'VERT' 'MANU' 'ANGLE (deg.)' lr_x 'SINUS(ANGLE)' lr_y ;
  24.  
  25. Trac_EV1 = VRAI ; Trac_SIN = FAUX ;
  26.  
  27. 'MESS' ; 'MESS' 'Entree de CHOIX : B_1 =' ' ' Trac_EV1 ' / B_2 =' ' ' FAUX ' / B_3 =' ' ' Trac_SIN ;
  28. L_1 L_2 L_3 = CHOIX 'Exemple CHOIx avec 3 Logiques' Trac_EV1 ('EGA' 'Z' 'S') TRAC_SIN ;
  29. 'MESS' 'Sortie de CHOIX : L_1 =' ' ' L_1 ' / L_2 =' ' ' L_2 ' / L_3 =' ' ' L_3 ; 'MESS' ;
  30.  
  31. 'SI' L_1 ; DESSIN ev1 ; 'FINSI' ;
  32. 'MESS' '2e Logique (sans nom) -> L_2 =' ' ' L_2 ;
  33. 'SI' L_3 ; DESSIN ev2 'TITRE' 'Sinus de 0. a 180. degres' ; 'FINSI' ;
  34.  
  35. 'FIN' ;
  36.  
  37.  
  38.  
  39.  

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