0001 clear; load frames;
0002 for fr = 1: length(frames)
0003 ce =1;
0004 while ce <= frames(fr).nCells
0005 if frames(fr).Cells(ce).Area < 50
0006 for cel = ce: frames(fr).nCells-1
0007 frames(fr).Cells(cel) = frames(fr).Cells(cel+1);
0008 end
0009 frames(fr).Cells(cel+1) = [];
0010 frames(fr).nCells = frames(fr).nCells -1;
0011 else
0012 ce =ce +1;
0013 end
0014 end
0015
0016 end
0017
0018
0019 for fr = 1: length(frames)
0020 for ce = 1: frames(fr).nCells
0021 frames(fr).Cells(ce).Id = ce;
0022 end
0023 end