Accueil | Cast3M

   1 : $$$$ @CARENE  NOTICE  CHAT      11/09/12    21:15:18     7124           
   2 :                                              DATE     11/09/12
   3 : 
   4 :   Procedure @CARENE                        Voir aussi : @lisse @couple
   5 :     -----------------                                     @tole2 @tole3      
   6 : 
   7 :     MAIL1  TAB2 TAB3 = @CARENE TAB1 LISTREE1 LISTREE2 FLOT1 ENT1 ;
   8 : 
   9 : 
  10 :     Objet :
  11 :     _______
  12 : 
  13 : La procedure @CARENE cree une carene (maillage tridimensionnel forme
  14 : d'elements de type QUA4) a partir de couples ( formes d'elements de
  15 : type SEG2). Ces couples (2 au minimum) doivent avoir le meme nombre de
  16 : points. Les points de meme rang des couples sont relies par une latte
  17 : (deformation elastique d'une poutre). La carene est generee par
  18 : surfaces reglees appuyees sur 2 lattes consecutives.
  19 : 
  20 : 
  21 :     Commentaires :
  22 :     _____________
  23 : 
  24 :     TAB1     :  Table donnant les couples.
  25 :                    TAB1.1 = couple initial.
  26 :                    TAB1.2 = couple final.   
  27 :                    TAB1.N = couple intermediaire facultatif (N=3,4..)
  28 : 
  29 :     LISTREE1 :  Objet LISTREEL de 3 valeurs precisant les rotations
  30 :                 imposees RX,RY,RZ au niveau du couple initial.
  31 :                 -45. < RX,RY,RZ < 45.
  32 :                 Si RX,RY,RZ > 45. la rotation est libre.
  33 : 
  34 :     LISTREE2 : Objet LISTREEL de 3 valeurs precisant les rotations
  35 :                imposees RX,RY,RZ au niveau du couple final.
  36 :                -45. < RX,RY,RZ < 45.
  37 :                Si RX,RY,RZ > 45. la rotation est libre.
  38 : 
  39 :     FLOT1    : reel donnant la longueur des elements le long d'une
  40 :                latte.
  41 : 
  42 :     ENT1    : Entier precisant la direction des lattes.
  43 :                   = 1 , la latte est sur OX.
  44 :                   = 2 , la latte est sur OY.
  45 :                   = 3 , la latte est sur OZ.
  46 : 
  47 : 
  48 : 
  49 :     Exemple d'utilisation :
  50 :     ________________________
  51 : 
  52 : 
  53 :     titre 'essai de maillage par carene';
  54 :     ev = evol manu ' absci' ( prog  0.04 0.4 0.53 0.67 0.77 0.77)
  55 :          'ordo' ( prog -0.2 -0.13 -0.08 0. 0.23 0.41);
  56 :     evo1L = @lisse ev 50 0. 40 2;
  57 :     uu2 = extraire evo1l ordo;
  58 :     uu1 = extraire evo1l absc;                                              
  59 :     evo2l = evol manu absci (prog 40*0.04) ordo uu2;
  60 :     ec1 = @couple  evo1l evo2l 2;
  61 : 
  62 : * maillage de l'etrave
  63 :     u1 = prog  -1.2 -1.34 -1.49 -1.6  -1.68 -1.74  -1.79   ;
  64 :     u2 = prog -0.16  -0.143 -0.11  -0.01 0.11 0.32 0.64;
  65 :     evf = evol manu absc u1  ordo u2;
  66 :     evo1Le = @lisse evf  50 50. 40 1;
  67 :     uu2 = extraire evo1le ordo;
  68 :     uu1 = extraire evo1le absc;
  69 :     evo2le = evol manu absci (prog 40*0.04) ordo uu2;
  70 :     ec2 =  @couple  evo2le evo1le 1;
  71 :     ta= table;
  72 :     ta. 1 = ec1; ta . 2 = ec2;
  73 :     pr1 = prog 0 2 0 ;  pr2 = prog 25 50 50 ;
  74 :     dis = 0.5;
  75 :     aa bb cc  = @carene ta pr1 pr2 dis 1;
  76 :     trac aa ( 0 10000 5000);               
  77 : 
  78 : 
  79 : $$$$
  80 : 
  81 :  
  82 :