opti dime 2 elem qua4 echo 0 ;
******** parametres
l = 10.0 ;
******** nombre de subdivisions
n = 5 ;
******** geometrie
p1 = 0.0 0.0 ;
p2 = l 0.0 ;
p3 = l (2.0*l) ;
p4 = 0.0 l ;
l1 = droi n p1 p2 ;
l2 = droi n p2 p3 ;
l3 = droi n p3 p4 ;
l4 = droi n p4 p1 ;
******** maillage
mail0 = dall l1 l2 l3 l4 plan ;
trac mail0 titr 'maillage avec qua4' ;
opti dime 2 elem tri3 ;
******** maillage
mail0 = dall l1 l2 l3 l4 plan ;
trac mail0 titr 'maillage avec tri3' ;
fin ;