// generation du maillage a 3 noeuds
// lx du segment
// nex nbre d'element suivant x 
// CONNEC mat de conectivite
// COOR mat des coordonnees des noeuds


function maillage_1D(lx,nex)
//
   global CONNEC COOR NUMER ADRESS UC Nelt Nno Npt NI;
   global XG PG Ng;


Nelt = nx;                // nbre d'elements

Nno = 3;                  // nbre de noeuds par element <=====

Npt = Nelt * (Nno-1)+ 1; // nbre de points

Dx = lx/(Npt-1);


COOR = matrix((0:Dx:lx),Npt,1);  //  Coordonnees des points

CONNEC = zeros(Nelt,Nno);  // matrice de connectivite
for i=1:Nelt                   
   CONNEC(i,1) = 1 + 2*(i-1);  
   CONNEC(i,2) = 3 + 2*(i-1);  
   CONNEC(i,3) = 2 + 2*(i-1);  
end;                           



endfunction
