WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

画像内のセグメント化された細胞を解析する

セグメント化された画像にブロブ解析手法を使い，顕微鏡画像内の完全で重なり合っていない細胞について，その位置と大きさが分かるように印を付ける．

Wolfram Language code: i = [image];
二値閾値化を使って穴を埋め，背景から前景を分ける．
Wolfram Language code: cells = FillingTransform@Binarize[i, {0, .7}]
距離変換写像の極大値を計算することによって，マーカー画像を作成する．
Wolfram Language code: markers = MaxDetect[DistanceTransform[cells], .25]
推定されたマーカーの集合を使ってセルの流域分割を計算し，その面積に基づいてセルを選ぶ．
Wolfram Language code: segments = SelectComponents[WatershedComponents[GradientFilter[cells, 2], markers], "Area", 200 < # < 2000&]; Colorize[segments]
等しい円板半径を持つ円を使って，分割されたセルを強調する．
Wolfram Language code: circles = ComponentMeasurements[segments, {"Centroid", "EquivalentDiskRadius"}]; Show[i, Graphics[{Red, Thick, Circle@@#& /@ circles[[All, 2]]}]]