Help me complete or fix this code so I get around $2500$ pixels in the attached image with Matlab:

I $=$ imread$("$MnMs$.$tif"$)$;

I $=$ im$2$double$($I$)$;

$\%$ Apply median filter

CI$\_$med $=$ I;

for Layer $=1$:$3$

CI$\_$med$($:$,$:$,$Layer$)=$ medfilt$2($CI$\_$med$($:$,$:$,$Layer$),[33])$;

end

$\%$ Apply max filter to the median filtered image

CI $=$ CI$\_$med;

for Layer $=1$:$3$

CI$($:$,$:$,$Layer$)=$ ordfilt$2($CI$($:$,$:$,$Layer$),9,$ ones$(3,3))$;

end

R $=$ CI$($:$,$:$,1)$;

G $=$ CI$($:$,$:$,2)$;

B $=$ CI$($:$,$:$,3)$;

$\%$ Initialize color matrices

Wh $=$ zeros$(512)$; $\%$ White

Re $=$ zeros$(512)$; $\%$ Red

Gr $=$ zeros$(512)$; $\%$ Green

Bl $=$ zeros$(512)$; $\%$ Blue

Gy $=$ zeros$(512)$; $\%$ Gray

Pi $=$ zeros$(512)$; $\%$ Pink

Pu $=$ zeros$(512)$; $\%$ Purple

Ol $=$ zeros$(512)$; $\%$ Olive

Br $=$ zeros$(512)$; $\%$ Brown

BB $=$ zeros$(512)$; $\%$ Background

missing $=$ zeros$(512)$; $\%$ Missing

$\%$ Adjust thresholds and conditions

for m $=1$:$512$

for n $=1$:$512$

miss $=0$;

if $($R$($n$,$m$)>0\mathrm{.}95)$ && $($G$($n$,$m$)>0\mathrm{.}95)$ && $($B$($n$,$m$)>0\mathrm{.}95)$

Wh$($n$,$m$)=1$;

miss $=1$;

end

if $($R$($n$,$m$)>0\mathrm{.}95)$ && $($G$($n$,$m$)<mtext\; id="EditorElement\_4015113"></mtext><mn\; id="EditorElement\_4015114">0</mn><mn\; id="EditorElement\_4015115">.</mn><mn\; id="EditorElement\_4015116">5</mn><mi\; id="EditorElement\_4015117">)</mi>$ && $($B$($n$,$m$)<mtext\; id="EditorElement\_4015131"></mtext><mn\; id="EditorElement\_4015132">0</mn><mn\; id="EditorElement\_4015133">.</mn><mn\; id="EditorElement\_4015134">5</mn><mi\; id="EditorElement\_4015135">)</mi>$

Re$($n$,$m$)=1$;

miss $=1$;

end

if $($R$($n$,$m$)<mtext\; id="EditorElement\_4015216"></mtext><mn\; id="EditorElement\_4015217">0</mn><mn\; id="EditorElement\_4015218">.</mn><mn\; id="EditorElement\_4015219">5</mn><mi\; id="EditorElement\_4015220">)</mi>$ && $($G$($n$,$m$)>0\mathrm{.}95)$ && $($B$($n$,$m$)<mtext\; id="EditorElement\_4015253"></mtext><mn\; id="EditorElement\_4015254">0</mn><mn\; id="EditorElement\_4015255">.</mn><mn\; id="EditorElement\_4015256">5</mn><mi\; id="EditorElement\_4015257">)</mi>$

Gr$($n$,$m$)=1$;

miss $=1$;

end

if $($R$($n$,$m$)<mtext\; id="EditorElement\_4015338"></mtext><mn\; id="EditorElement\_4015339">0</mn><mn\; id="EditorElement\_4015340">.</mn><mn\; id="EditorElement\_4015341">5</mn><mi\; id="EditorElement\_4015342">)</mi>$ && $($G$($n$,$m$)<mtext\; id="EditorElement\_4015356"></mtext><mn\; id="EditorElement\_4015357">0</mn><mn\; id="EditorElement\_4015358">.</mn><mn\; id="EditorElement\_4015359">5</mn><mi\; id="EditorElement\_4015360">)</mi>$ && $($B$($n$,$m$)>0\mathrm{.}95)$

Bl$($n$,$m$)=1$;

miss $=1$;

end

if $($R$($n$,$m$)>0\mathrm{.}1)$ && $($G$($n$,$m$)<mtext\; id="EditorElement\_4015478"></mtext><mn\; id="EditorElement\_4015479">0</mn><mn\; id="EditorElement\_4015480">.</mn><mn\; id="EditorElement\_4015481">3</mn><mi\; id="EditorElement\_4015482">)</mi>$

Gy$($n$,$m$)=1$;

miss $=1$;

end

if $($R$($n$,$m$)>0\mathrm{.}7)$ && $($G$($n$,$m$)<mtext\; id="EditorElement\_4015581"></mtext><mn\; id="EditorElement\_4015582">0</mn><mn\; id="EditorElement\_4015583">.</mn><mn\; id="EditorElement\_4015584">3</mn><mi\; id="EditorElement\_4015585">)</mi>$ && $($B$($n$,$m$)>0\mathrm{.}5)$

Pi$($n$,$m$)=1$;

miss $=1$;

end

if $($R$($n$,$m$)>0\mathrm{.}3)$ && $($R$($n$,$m$)<mtext\; id="EditorElement\_4015702"></mtext><mn\; id="EditorElement\_4015703">0</mn><mn\; id="EditorElement\_4015704">.</mn><mn\; id="EditorElement\_4015705">5</mn><mi\; id="EditorElement\_4015706">)</mi>$

Pu$($n$,$m$)=1$;

miss $=1$;

end

if $($R$($n$,$m$)>0\mathrm{.}5)$ && $($R$($n$,$m$)<mtext\; id="EditorElement\_4015805"></mtext><mn\; id="EditorElement\_4015806">0</mn><mn\; id="EditorElement\_4015807">.</mn><mn\; id="EditorElement\_4015808">7</mn><mi\; id="EditorElement\_4015809">)</mi>$

Ol$($n$,$m$)=1$;

miss $=1$;

end

if $($G$($n$,$m$)>0\mathrm{.}5)$ && $($G$($n$,$m$)<mtext\; id="EditorElement\_4015908"></mtext><mn\; id="EditorElement\_4015909">0</mn><mn\; id="EditorElement\_4015910">.</mn><mn\; id="EditorElement\_4015911">7</mn><mi\; id="EditorElement\_4015912">)</mi>$

Br$($n$,$m$)=1$;

miss $=1$;

end

if $($R$($n$,$m$)<mtext\; id="EditorElement\_4015993"></mtext><mn\; id="EditorElement\_4015994">0</mn><mn\; id="EditorElement\_4015995">.</mn><mn\; id="EditorElement\_4015996">1</mn><mi\; id="EditorElement\_4015997">)</mi>$ && $($G$($n$,$m$)<mtext\; id="EditorElement\_4016011"></mtext><mn\; id="EditorElement\_4016012">0</mn><mn\; id="EditorElement\_4016013">.</mn><mn\; id="EditorElement\_4016014">2</mn><mi\; id="EditorElement\_4016015">)</mi>$ && $($B$($n$,$m$)<mtext\; id="EditorElement\_4016029"></mtext><mn\; id="EditorElement\_4016030">0</mn><mn\; id="EditorElement\_4016031">.</mn><mn\; id="EditorElement\_4016032">1</mn><mi\; id="EditorElement\_4016033">)</mi>$

BB$($n$,$m$)=1$;

miss $=1$;

end

if $($miss $==0)$

missing$($n$,$m$)=1$;

end

end

end

$\%$ Display the results

figure$(2)$

subplot$(3,4,1)$; imshow$($I$)$; title$([\text{'}$Original image: $\text{'},$ num$2$str$(512*512)])$;

subplot$(3,4,2)$; imshow$($Wh$,[])$; title$([\text{'}$White: $\text{'},$ num$2$str$($sum$($sum$($Wh$)))])$;

subplot$(3,4,3)$; imshow$($Re$,[])$; title$([\text{'}$Red: $\text{'},$ num$2$str$($sum$($sum$($Re$)))])$;

subplot$(3,4,4)$; imshow$($Gr$,[])$; title$([\text{'}$Green: $\text{'},$ num$2$str$($sum$($sum$($Gr$)))])$;

subplot$(3,4,5)$; imshow$($Bl$,[])$; title$([\text{'}$Blue: $\text{'},$ num$2$str$($sum$($sum$($Bl$)))])$;

subplot$(3,4,6)$; imshow$($Gy$,[])$; title$([\text{'}$Gray: $\text{'},$ num$2$str$($sum$($sum$($Gy$)))])$;

subplot$(3,4,7)$; imshow$($Pi$,[])$; title$([\text{'}$Pink: $\text{'},$ num$2$str$($sum$($sum$($Pi$)))])$;

subplot$(3,4,8)$; imshow$($Pu$,[])$; title$([\text{'}$Purple: $\text{'},$ num$2$str$($sum$($sum$($Pu$)))])$;

subplot$(3,4,9)$; imshow$($Ol$,[])$; title$([\text{'}$Olive: $\text{'},$ num$2$str$($sum$($sum$($Ol$)))])$;

subplot$(3,4,10)$; imshow$($Br$,[])$; title$([\text{'}$Brown: $\text{'},$ num$2$str$($sum$($sum$($Br$)))])$;

subplot$(3,4,11)$; imshow$($BB$,[])$; title$([\text{'}$Background: $\text{'},$ num$2$str$($sum$($sum$($BB$)))])$;

subplot$(3,4,12)$; imshow$($missing$,[])$; title$([\text{'}$Missing: $\text{'},$ num$2$str$($sum$($sum$($missing$)))])$;