DATE     96/01/03

    Procédure @CARENE                   Voir ausi : @lisse @couple
    -----------------                               @tole2 @tole3    
                                                   

    MAIL1  TAB2 TAB3 = @CARENE TAB1 LISTREE1 LISTREE2 FLOT1 ENT1 ;

    Objet :
    _______

La procédure @CARENE crée une carène (maillage tridimensionnel formé
d'éléments de type QUA4) à partir de couples ( formés d'éléments de
type SEG2). Ces couples (2 au minimum) doivent avoir le meme nombre de
points. Les points de meme rang des couples sont reliés par une latte
(déformation élastique d'une poutre). La carène est générée par
surfaces reglées appuyées sur 2 lattes consécutives.


    Commentaires :
    _____________

    TAB1     :  Table donnant les couples.
                   TAB1.1 = couple initial.
                   TAB1.2 = couple final.   
                   TAB1.N = couple intermédiaire facultatif (N=3,4..)

    LISTREE1 :  Objet LISTREEL de 3 valeurs précisant les rotations
                imposées RX,RY,RZ au niveau du couple initial.
                -45. < RX,RY,RZ < 45.
                Si RX,RY,RZ > 45. la rotation est libre.

    LISTREE2 : Objet LISTREEL de 3 valeurs précisant les rotations
               imposées RX,RY,RZ au niveau du couple final.
               -45. < RX,RY,RZ < 45.
               Si RX,RY,RZ > 45. la rotation est libre.

    FLOT1    : réel donnant la longueur des éléments le long d'une
               latte.

    ENT1    : Entier précisant la direction des lattes.
                  = 1 , la latte est sur OX.
                  = 2 , la latte est sur OY.
                  = 3 , la latte est sur OZ.



    Exemple d'utilisation :
    ________________________


    titre 'essai de maillage par carene';
    ev = evol manu ' absci' ( prog  0.04 0.4 0.53 0.67 0.77 0.77)
         'ordo' ( prog -0.2 -0.13 -0.08 0. 0.23 0.41);
    evo1L = @lisse ev 50 0. 40 2;
    uu2 = extraire evo1l ordo;
    uu1 = extraire evo1l absc;                                              
    evo2l = evol manu absci (prog 40*0.04) ordo uu2;
    ec1 = @couple  evo1l evo2l 2;

* maillage de l'etrave
    u1 = prog  -1.2 -1.34 -1.49 -1.6  -1.68 -1.74  -1.79   ;
    u2 = prog -0.16  -0.143 -0.11  -0.01 0.11 0.32 0.64;
    evf = evol manu absc u1  ordo u2;
    evo1Le = @lisse evf  50 50. 40 1;
    uu2 = extraire evo1le ordo;
    uu1 = extraire evo1le absc;
    evo2le = evol manu absci (prog 40*0.04) ordo uu2;
    ec2 =  @couple  evo2le evo1le 1;
    ta= table;
    ta. 1 = ec1; ta . 2 = ec2;
    pr1 = prog 0 2 0 ;  pr2 = prog 25 50 50 ;
    dis = 0.5;
    aa bb cc  = @carene ta pr1 pr2 dis 1;
    trac aa ( 0 10000 5000);               


$$$$