Notices | Cast3M

$$$$ @AFEVOZT NOTICE  GF238795  15/06/29    15:38:38     8564           
                                             DATE     15/06/29
                                             
    Procedure @AFEVOZT                   Voir aussi : MONTAGNE, TRAC
    ------------------  


La procedure @AFEVOZT permet creer un champ par point pour representer un jeu
d'evolutions sous forme d'iso-valeur. Ceci permet, par exemple, de representer
l'evolution d'un grandeur le long d'un axe et au cours du temps sur un unique
graphique.
 
Les evolutions doivent etre donnees dans une table contenant les entrees:
   -TAB1. i : evolutions a afficher (i est un entier);
   -TAB1.'TEMPS' : liste des temps (ou autre parametre) associes à chaque
   evolution.

Avec l'option 'HORIZONTAL', l'abscisse des evolutions est representee dans la
direction X, le temps dans la direction Y.
Avec l'option 'VERTICAL', l'abscisse des evolutions est representee dans la
direction Y, le temps dans la direction X.
Sans precision, l'option 'VERTICAL' est assumee.
Dans tous les cas, la couleur des iso-valeurs est basees sur l'ordonnees des
evolutions.

Le reel FLOT1 permet de preciser le rapport d'aspect entre l'abscisse des
evolutions et le temps.
Sans precision, le rapport d'aspect est de 1.0, ce qui signifie que sur
l'affichage, le temps est mis à l'echelle afin que le graphique soit un carre.
Avec un rapport d'aspect negatif, on peut changer le sens d'orientation de l'axe
des temps. 
Sens d'augmentation du temps :
         |   HORIZONTAL   |  VERTICAL
FLOT1>0  |   vers le haut |  vers la droite
FLOT1<0  |   vers le bas  |  vers la gauche

La procedure renvoie un champ par point et son maillage support pour pouvoir
l'afficher avec l'operateur 'TRAC'.
Le maillage resultat contient le maillage support et les lignes marquant les
temps des evolutions.
Les lignes correspondants aux differents instants peuvent être obtenues par la
commande :
('ELEM' mail1 'SEG2').
Pour tracer le graphique en visualisant les differents instants et en cachant le
maillage support, on pourra utiliser la commande :
'TRAC' CHPO1 ('ELEM' MAIL1 'TRI3') ('ELEM' MAIL1 'SEG2');

Exemple :
'OPTI' 'DIME' 2;
*Creation de la table
TATEST = 'TABLE';
LITEMP = 'PROG' 0. 'PAS' 0.5 5 5.1 5.2 5.3 5.4 5.5 6 'PAS' 1 10;

TATEST . 'TEMPS' = LITEMP;
LIZ = 'PROG' 0. 'PAS' 0.05 1.0;
*Remplissage des evolutions
'REPE' ITP ('DIME' LITEMP);
   TPCOUR = 'EXTR' LITEMP &ITP;
   LIVAL = 'PROG';
   'REPE' itz ('DIME' liz);;
      ZCOUR = 'EXTR' LIZ &ITZ;
      VALCOUR = ('SIN' ( (360. * ZCOUR - 90) + ( 50 * ('COS' (20. *
      TPCOUR))))) * (1 + (TPCOUR / 10.));
      LIVAL = LIVAL 'ET' VALCOUR;
   'FIN'ITZ;
   TATEST . &ITP = 'EVOL' 'MANU' 'ABSC' LIZ 'ORDO' LIVAL;
'FIN' ITP;

LIST TATEST;
*Trace sous forme d'evolution
EVOTOT = 'VIDE' 'EVOLUTION';
'REPE' ITP ('DIME' LITEMP);
   EVOTOT = EVOTOT 'ET' TATEST . &ITP ;
'FIN' ITP;
DESS EVOTOT;
*Trace sous forme d'iso-valeur
MATEST CHTEST = @AFEVOZT TATEST 'HORIZONTAL' -0.5;
TRAC CHTEST MATEST ('CONTOUR' MATEST);
TRAC CHTEST MATEST ('ELEM' MATEST 'SEG2');