How to find the number of consecutive occurrence of the numbers?

I'm in need to get the number of consecutive occurrence of the numbers in an array. Here is an example,

 A=[1,2,3,1,2,3,1,1,1]; 
unqA=unique(A);
count=histc(A,unqA);

It give the count of 1 as 5, then 2 and 3 as 2. In the array A, the consecutive occurrence of 1 is 3 (i.e., maximum occurrence). Please help me how to get the value as 3 for the array A.(just for example).

Thanks in advance.

Answer 1

[Roger Stafford]

It isn't clear if you are asking for the maximum consecutive occurrence for each possible number in A or the maximum of these maximum occurrences. Here is a way to find the latter.

 p = find([true,diff(A)~=0,true]);
 [c,q] = max(diff(p));
 m = A(p(q));

The pair (m,c} gives the number occurring consecutively the largest number of times and the number of those times, respectively.

Answer 2

[Azzi Abdelmalek]

A=[1,2,2,3,1,2,3,1,1,1];
ii=num2str(diff(A));
ii(strfind(ii,' '))=[];
jj=regexp(ii,'[^0*]','split');
jj(strcmp(jj,''))=[];
out=max(cellfun(@numel,jj))+1

Answer 3

[per isakson]

Search File Exchange for runlength.

I think you can find solutions in Cody too.

[Bless]

While I run this code I got an error

 Install and set up a compiler on demand:
  mex -setup
Try to compile manually:
  cd('C:\Users\USER NAME\Documents\MATLAB')
  mex -DMATLABVER=711 -compatibleArrayDims -O RunLength.c -v
Or download the pre-compiled mex:
  http://www.n-simon.de/mex

I didn't get any precompiled mex from this website...Help me how to overcome this.

[Jan]

@Bless: On http://www.n-simon.de/mex you find download links for RunLength.mexw64 and RunLength.mexw32 for current Matlab versions, and RunLength.dll for Matlab versions before 7.6. All are compiled for Windows. If you use a Linux or Mac, you have to install a compiler and follow the shown instructions.

In addition you can use the M-file RunLength_M also.

Feel free to send me the complete error message by email and explain, why you do not get compiled MEX files from the download page.

[Bless]

Thank you Jan Simon..Now I got it..