opti dime 2 elem seg2 ;
n = 5 ;
m = enti (1.414*n) ;
p1 = 0.0 0.0 ;
p2 = 10.0 0.0 ;
p3 = 10.0 10.0 ;
p4 = 0.0 10.0 ;
p5 = 0.0 20.0 ;
l1 = droi n p1 p2 ;
l2 = droi n p2 p3 ;
l3 = droi n p3 p4 ;
l4 = droi n p4 p1 ;
l5 = droi m p3 p5 ;
l6 = droi n p5 p4 ;
cont2 = l3 et l5 et l6 ;
opti elem tri3 ;
mail1 = surf cont2 ;
mail2 = dall l1 l2 l3 l4 ;
mail0 = mail1 et mail2 ;
trac mail0 ;
*
opti elem qua4 ;
mail2 = dall l1 l2 l3 l4 ;
mail0 = mail1 et mail2 ;
trac mail0 ;
fin ;