I have a PET image represented as a list of lists of grey value intensities. Here you can find the file in a "MAT" format (you can import it like: filteredData = Flatten[#,1]&@Import["filteredData.mat", "MAT"];
).
I am using MorphologicalPerimeter[]
to implement a threshold based simple image segmentation. My code looks like this:
Manipulate[
ImageCompose[
ArrayPlot@filteredData, {
MorphologicalPerimeter[ArrayPlot@filteredData,
actThreshPercent*Max@filteredData/100],
0.2
}
],
{actThreshPercent, 1, 100, 1}
]
For threshold = 40:
If I increase the threshold, the perimeter of the curve that is returned by MorphologicalPerimeter[]
becomes smaller then larger and so on. Shouldn't it be steadily smaller as the threshold increases ?
For threshold = 55:
Specs: Mathematica 11, Mac OSX.