Search All of the Math Forum:
Views expressed in these public forums are not endorsed by
NCTM or The Math Forum.



Re: Converting a magnified image of a line to a single
Posted:
Apr 25, 2013 2:51 AM


>From Details and Options section of documentation page for SelectComponents (http://reference.wolfram.com/mathematica/ref/SelectComponents.html):
"For the complete list of possible properties, see the reference page for ComponentMeasurements."
The link in this sentence for ComponentMeasurements goes to
http://reference.wolfram.com/mathematica/ref/ComponentMeasurements.html
with the properties listed under Details and Options.
Bob Hanlon
On Wed, Apr 24, 2013 at 7:01 AM, Joerg Roesgen <biophys.hershey@me.com>wrote:
> This command SelectComponents has the form > SelectComponents[m,"prop",crit]. I can't find any list of properties > corresponding to "prop." Any ideas? > > Thanks, > J=F6rg > > > On Apr 20, 2013, at 05:41 , Dave Waddell wrote: > > > I tried converting the result image to a graph so that I could apply a > > moving average and then fit a Bspline through it. As you can tell I'm > new > > to Mathematica: > > data = ArrayRules@SparseArray@ImageData[result] > > It was all downhill after that. Another nudge would be appreciated. > > Thanks, Dave. > > > > Dave, > > > > On 4/17/13 1:30 AM, Dave Waddell wrote: > >> I have a magnified image of a 0.1mm line here: > >> http://www.dave.org/images/Trace.jpg > >> ... this converts with Binarize very well: > >> http://www.dave.org/images/Trace%20binary.jpg > >> ... but what I would like to do is convert it to a single pixel wide > > smoothed line running right up the middle. Any suggestions or pointers on > > how to do this in Mathematica would be appreciated. > >> Dave > >> > > > > The sequence below seems like a good start. > > The documentation for the functions should help you understand what is > going > > on in more details: > > > > trace = Import["http://www.dave.org/images/Trace.jpg"] > > > > b = ColorNegate@Binarize[trace]; > > b2 = SelectComponents[b, "Area", 1]; > > b3 = FillingTransform@b2; > > dt = ImageAdjust@DistanceTransform@b3; > > result = ColorNegate@Image[WatershedComponents[dt], "Bit"]; > > HighlightImage[trace, result] > > > > > > Matthias Odisio > > Wolfram Research > > > > > > > > >



