1 : $$$$ @M_VORO NOTICE PASCAL 12/10/18 21:15:02 7532 2 : DATE 12/10/18 3 : 4 : Procedure @M_VORO Voir aussi : @P_VORO, @P_BOIT2 5 : ----------------- 6 : TAB2 = @M_VORO TAB1 DENS1 (FLOT1) (ITRA1) ; 7 : 8 : Objet : 9 : ------- 10 : 11 : Procedure de maillage d'un agregat cubique de polyedres de Voronoi. 12 : 13 : Commentaire : 14 : ------------- 15 : 16 : TAB1 = TABLE, resultat de la procedure @P_BOIT ; 17 : 18 : DENS1 = FLOTTANT, densite du maillage ; 19 : 20 : FLOT1 = FLOTTANT, critere pour l'elimination de faces de petite 21 : taille (0,3xDENS1 par defaut) ; 22 : 23 : ITRA1 = LOGIQUE, active des traces (pour DeBogage) ; 24 : 25 : TAB2 = TABLE, dont l'indice 'MAIL' contient le maillage de 26 : l'agregat, l'indice 'ARET' celui des aretes de chaque 27 : polyedre (pour traces). 28 : De plus, chaque point de la partition de Voronoi sert 29 : d'indice pour le maillage du polyedre qui lui est associe 30 : (TAB2 . PT1 . 'MAIL', TAB2 . PT1 . 'ARET'). 31 :
© Cast3M 2003 - Tous droits réservés.
Mentions légales