WOLFRAM

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

3D画像の中間画像処理を解析する

さまざまな方向についてGaborフィルタを計算し，3D空間でスタックを可視化する．

Wolfram Language code: gaborMagnitude[image_, r_, k_] := With[{data = ImageData[image]}, Image[GaborFilter[data, r, k, 0] ^ 2 + GaborFilter[data, r, k, Pi / 2] ^ 2]] t = Table[gaborMagnitude[[image], 6, 1.7{Cos[α], Sin[α]}], {α, 0, π, π / 100}]; Threshold[Image3D[t, ViewPoint -> {-0.2, -0.5, 3}, ViewVertical -> {0.3, 0.5, 1.2}]//ImageAdjust, .2]