Accueil | Cast3M

   1 : $$$$ @AFEVOZT NOTICE  GF238795  15/06/29    15:38:38     8564           
   2 :                                              DATE     15/06/29
   3 :                                              
   4 :   Procedure @AFEVOZT                   Voir aussi : MONTAGNE, TRAC
   5 :     ------------------  
   6 : 
   7 : 
   8 : La procedure @AFEVOZT permet creer un champ par point pour representer un jeu
   9 : d'evolutions sous forme d'iso-valeur. Ceci permet, par exemple, de representer
  10 : l'evolution d'un grandeur le long d'un axe et au cours du temps sur un unique
  11 : graphique.
  12 :  
  13 : Les evolutions doivent etre donnees dans une table contenant les entrees:
  14 :    -TAB1. i : evolutions a afficher (i est un entier);
  15 :    -TAB1.'TEMPS' : liste des temps (ou autre parametre) associes à chaque
  16 :    evolution.
  17 : 
  18 : Avec l'option 'HORIZONTAL', l'abscisse des evolutions est representee dans la
  19 : direction X, le temps dans la direction Y.
  20 : Avec l'option 'VERTICAL', l'abscisse des evolutions est representee dans la
  21 : direction Y, le temps dans la direction X.
  22 : Sans precision, l'option 'VERTICAL' est assumee.
  23 : Dans tous les cas, la couleur des iso-valeurs est basees sur l'ordonnees des
  24 : evolutions.
  25 : 
  26 : Le reel FLOT1 permet de preciser le rapport d'aspect entre l'abscisse des
  27 : evolutions et le temps.
  28 : Sans precision, le rapport d'aspect est de 1.0, ce qui signifie que sur
  29 : l'affichage, le temps est mis à l'echelle afin que le graphique soit un carre.
  30 : Avec un rapport d'aspect negatif, on peut changer le sens d'orientation de l'axe
  31 : des temps. 
  32 : Sens d'augmentation du temps :
  33 :          |   HORIZONTAL   |  VERTICAL
  34 : FLOT1>0  |   vers le haut |  vers la droite
  35 : FLOT1<0  |   vers le bas  |  vers la gauche
  36 : 
  37 : La procedure renvoie un champ par point et son maillage support pour pouvoir
  38 : l'afficher avec l'operateur 'TRAC'.
  39 : Le maillage resultat contient le maillage support et les lignes marquant les
  40 : temps des evolutions.
  41 : Les lignes correspondants aux differents instants peuvent être obtenues par la
  42 : commande :
  43 : ('ELEM' mail1 'SEG2').
  44 : Pour tracer le graphique en visualisant les differents instants et en cachant le
  45 : maillage support, on pourra utiliser la commande :
  46 : 'TRAC' CHPO1 ('ELEM' MAIL1 'TRI3') ('ELEM' MAIL1 'SEG2');
  47 : 
  48 : Exemple :
  49 : 'OPTI' 'DIME' 2;
  50 : *Creation de la table
  51 : TATEST = 'TABLE';
  52 : LITEMP = 'PROG' 0. 'PAS' 0.5 5 5.1 5.2 5.3 5.4 5.5 6 'PAS' 1 10;
  53 : 
  54 : TATEST . 'TEMPS' = LITEMP;
  55 : LIZ = 'PROG' 0. 'PAS' 0.05 1.0;
  56 : *Remplissage des evolutions
  57 : 'REPE' ITP ('DIME' LITEMP);
  58 :    TPCOUR = 'EXTR' LITEMP &ITP;
  59 :    LIVAL = 'PROG';
  60 :    'REPE' itz ('DIME' liz);;
  61 :       ZCOUR = 'EXTR' LIZ &ITZ;
  62 :       VALCOUR = ('SIN' ( (360. * ZCOUR - 90) + ( 50 * ('COS' (20. *
  63 :       TPCOUR))))) * (1 + (TPCOUR / 10.));
  64 :       LIVAL = LIVAL 'ET' VALCOUR;
  65 :    'FIN'ITZ;
  66 :    TATEST . &ITP = 'EVOL' 'MANU' 'ABSC' LIZ 'ORDO' LIVAL;
  67 : 'FIN' ITP;
  68 : 
  69 : LIST TATEST;
  70 : *Trace sous forme d'evolution
  71 : EVOTOT = 'VIDE' 'EVOLUTION';
  72 : 'REPE' ITP ('DIME' LITEMP);
  73 :    EVOTOT = EVOTOT 'ET' TATEST . &ITP ;
  74 : 'FIN' ITP;
  75 : DESS EVOTOT;
  76 : *Trace sous forme d'iso-valeur
  77 : MATEST CHTEST = @AFEVOZT TATEST 'HORIZONTAL' -0.5;
  78 : TRAC CHTEST MATEST ('CONTOUR' MATEST);
  79 : TRAC CHTEST MATEST ('ELEM' MATEST 'SEG2');
  80 :