Focus Stacking of Microscopic Images

Consider a list of images captured using an electron microscope. A stack of a pollen grain with different morphological features:

Out[57]=

list=

,

;

Remove the numeric labels from each image:

In[1]:=

clean=Inpaint[#,Dilation[Binarize[#,{0,.1}],1]]&/@list;ListAnimate[clean]

Out[1]=

use

to obtain an image with a higher depth of field (DOF):

In[2]:=

ImageFocusCombine[clean]

Out[2]=

Wolfram Language Example Repository