21 lines
790 B
Mathematica
21 lines
790 B
Mathematica
|
load donnees;
|
||
|
|
|
||
|
|
size(triBis)
|
||
|
|
% Calcul des faces du maillage à garder
|
||
|
|
FACES = [triBis(:, [2 3 4]); triBis(:, [1 3 4]); triBis(:, [1 2 4]); triBis(:, [1 2 3])];
|
||
|
|
size(FACES)
|
||
|
|
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;
|