Cell et elements en double

Version imprimable

Bonjour,
j'aimerais savoir si à l'inverse de la fonction "unique" il existerait une fonction me permettant de ne conserver que les éléments en double dans une cellule,
par exemple dans l'exemple qui suit j'aimerais avoir en retour, simplement: '028977'

Code:

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
29
30
31
32
33
34
35
K>> Doub
 
Doub = 
 
  Columns 1 through 9
 
    '028977'    '028977'    '031217'    '032026'    '032088'    '033349'    '033653'    '033655'    '033866'
 
  Columns 10 through 18
 
    '033903'    '034019'    '034135'    '034235'    '034236'    '034237'    '034283'    '034457'    '034458'
 
  Columns 19 through 27
 
    '034480'    '034481'    '034524'    '034692'    '034769'    '034787'    '034789'    '034797'    '034799'
 
  Columns 28 through 36
 
    '034800'    '034843'    '034920'    '035075'    '035383'    '035765'    '036374'    '036758'    '036764'
 
  Columns 37 through 45
 
    '036767'    '036768'    '036770'    '036811'    '036813'    '036834'    '036837'    '037653'    '037655'
 
  Columns 46 through 54
 
    '037656'    '037657'    '037659'    '037660'    '037661'    '037664'    '037665'    '037666'    '037740'
 
  Columns 55 through 63
 
    '037742'    '037743'    '037744'    '037858'    '037859'    '037860'    '037861'    '037864'    '037866'
 
  Columns 64 through 70
 
    '037867'    '037868'    '037869'    '037871'    '037879'    '037882'    '038090'

Merci

20/12/2010, 13h36
duf42
Bonjour,

Voici une idée de solution:
Code:

1 2 unique(Doub(cellfun(@(x) sum(strcmp(x,Doub)), Doub) > 1))
Duf

Merci sa marche parfaitement, je m'étais compliqué la tache et emmêlé les pinceaux en essayant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    K=numel(Doub)
for i=2:K
        for j=1:K 
            j=i-1;
            D = findstr(Doub{i},Doub{j});
            if(~isempty(D))
                for z=j+1:K
                    D2 = findstr(Doub{j},Doub{z});  
                    if(~isempty(D2))
                        T{x}=Doub{j};
                        x=x+1;
                    end
                end
            end
 
        end
 
    end

Ce qui plantai facilement avec un K assez grand :s
encore merci

Une autre piste :

Code:

1
2
3
[uDoub,a,b] = unique(char(Doub{:}),'rows');
n = histc(b,1:max(b));
Doub{n==2}