Accueil | Cast3M

   1 : $$$$ @COUPLE  NOTICE  CHAT      11/09/12    21:15:38     7124           
   2 :                                              DATE     11/09/12
   3 : 
   4 :   Procedure @COUPLE                        Voir aussi : @lisse @carene
   5 :     -----------------                                     @tole2 @tole3       
   6 : 
   7 :     MAIL1 = @COUPLE  EVOL1 EVOL2 ENT1 ;
   8 : 
   9 : 
  10 :     Objet :
  11 :     _______
  12 : 
  13 : La procedure @COUPLE  cree un couple i.e un maillage de segments a 2
  14 : noeuds de type seg2 a partir de deux EVOLUTIONS.
  15 : 
  16 : 
  17 :     Commentaires :
  18 :     _____________
  19 : 
  20 :     EVOL1   : Evolution dans le plan YOZ.
  21 : 
  22 :     EVOL2   : Evolution dans le plan XOZ.
  23 : 
  24 :     ENT1    : Entier valant 1 si le couple est dans le plan XOZ ou 
  25 :               valant 2 si le couple est dans le plan YOZ.
  26 : 
  27 :     Exemple d'utilisation :
  28 :     ________________________
  29 : 
  30 : 
  31 :      u1 = prog -1.79  -1.73 -1.67 -1.6 -1.49  -1.34  -1.2;
  32 :      u2 = prog 0.64 0.32 0.12 -0.01 -0.12 -0.15 -0.16;
  33 :      evf = evol manu absc u1  ordo u2;
  34 :      evo1Le = @lisse evf 50 0. 40 1;
  35 :      uu2 = extraire evo1le ordo;
  36 :      uu1 = extraire evo1le absc;
  37 :      evo2le = evol manu absci (prog 40*0.04) ordo uu2;
  38 :      ec2 =  @couple  evo2le evo1le 1;
  39 : 
  40 : $$$$
  41 : 
  42 :  
  43 :