Определение людей на фотографии 

In[1]:=

Определение лиц на фотографии и построение цветного квадрата вокруг каждого найденного лица.

In[2]:=

X faces = FindFaces[img, {40, 50}];

In[3]:=

X newimg = Show[img, Graphics[Table[ {EdgeForm[{Thick, Hue[Rescale[i, {0, Length[faces]}]]}], FaceForm[], Rectangle @@ faces[[i]]}, {i, Length[faces]}]]]

Out[3]=

Создание легенды с образцами, сопоставляющей каждому цветному квадрату имя человека.

In[4]:=

X legend[layout_] := SwatchLegend[ Table[Hue[Rescale[i, {0, Length[faces]}]], {i, Length[faces]}], {"Mark", "Cynthia", "Michelle", "Adrian", "Rachel"}, LegendMarkerSize -> Medium, LabelStyle -> {GrayLevel[0.3], 16, Bold}, LegendLayout -> layout]

In[5]:=

X legend["Row"]

Out[5]=

Добавление легенды к фотоснимку.

In[6]:=

X Legended[newimg, legend["Column"]]

Out[6]=

Изменение положения и ориентации легенды.

In[7]:=

X Legended[newimg, Placed[legend["Row"], Below]]

Out[7]=