Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Converting a magnified image of a line to a single

  • To: mathgroup at smc.vnet.net
  • Subject: [mg130584] Re: Converting a magnified image of a line to a single
  • From: Joerg Roesgen <biophys.hershey at me.com>
  • Date: Wed, 24 Apr 2013 06:59:27 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-outx@smc.vnet.net
  • Delivered-to: mathgroup-newsendx@smc.vnet.net
  • References: <20130417063041.7376E6A61@smc.vnet.net>

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 B-spline 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.d-a-v-e.org/images/Trace.jpg
>> ... this converts with Binarize very well:
>> http://www.d-a-v-e.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.d-a-v-e.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
>
>
>




  • Prev by Date: Re: Sparse Array Question
  • Next by Date: Re: Sparse Array Question
  • Previous by thread: Re: Converting a magnified image of a line to a single pixel smoothed
  • Next by thread: Re: Converting a magnified image of a line to a single