1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
AZ=1;
% Initialisation
for qa=1:xx % Boucle externe
if VICS(qa,1)~= VICS(qa,2) % condition de dséparation du doublet
intermediaire=VICS(qa,2); % Affectation
for qb=1:xx % Boucle externe 2
if VICS(qb,2)== intermediaire % Recherche d'un élément commun
intermed=VICS(qb,1); % Affectation
for qc=1:xx % Boucle interne
if ((VICS(qc,1) == VICS(qb,1)) && (VICS(qc,2) == VICS(qa,1))) % Recherche du 3 émé élement commun
za=VICS(qa,1); % Attribution
zb=VICS(qa,2); % Attribution
zc=VICS(qb,1); % Attribution
if (zb ~= zc) && (za ~= zc) % Ecartement d'un cas de similitude
TA(AZ,1)=za; % Attribution
TA(AZ,2)=zb; % Attribution
TA(AZ,3)=zc; % Attribution
AZ=AZ+1;
end
end
end
end
end
end
end |
Partager