load donnees; % Calcul des faces du maillage à garder FACES = [sort(triBis(:, [2 3 4]), 2); sort(triBis(:, [1 3 4]), 2); sort(triBis(:, [1 2 4]), 2); sort(triBis(:, [1 2 3]), 2)]; FACES = sortrows(FACES); rep = sum(FACES(1:end-1, :) == FACES(2:end, :), 2) == 3; FACES([0; rep] | [rep; 0], :) = []; fprintf('Calcul du maillage final termine : %d faces. \n',size(FACES,1)); % Affichage du maillage final figure; hold on for i = 1:size(FACES,1) plot3([X(1,FACES(i,1)) X(1,FACES(i,2))],[X(2,FACES(i,1)) X(2,FACES(i,2))],[X(3,FACES(i,1)) X(3,FACES(i,2))],'r'); plot3([X(1,FACES(i,1)) X(1,FACES(i,3))],[X(2,FACES(i,1)) X(2,FACES(i,3))],[X(3,FACES(i,1)) X(3,FACES(i,3))],'r'); plot3([X(1,FACES(i,3)) X(1,FACES(i,2))],[X(2,FACES(i,3)) X(2,FACES(i,2))],[X(3,FACES(i,3)) X(3,FACES(i,2))],'r'); end; view(80, -10);