Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: Code is not working...

  • To: mathgroup at smc.vnet.net
  • Subject: [mg120575] Re: Code is not working...
  • From: Dilek <genetik08 at gmail.com>
  • Date: Fri, 29 Jul 2011 08:02:50 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201107222347.TAA28685@smc.vnet.net> <j0foq7$8ov$1@smc.vnet.net> <j0h090$dgi$1@smc.vnet.net>

On 24 Temmuz, 07:39, Jay Bee <jiri.bo... at gmail.com> wrote:
> On Jul 24, 1:25 am, Heike Gramberg <heike.gramb... at gmail.com> wrote:
>
>
>
>
>
> > If you want any useful help you'll probably need to give a bit more
> > information. For example, what are
> > image, RegionGrowing and imgfilter? And what is the function of
> > imageFilled (it doesn't seem to do anything
> > at the moment)?
>
> > Heike.
>
> > On 23 Jul 2011, at 00:47, =?iso-8859-1?Q?S=F6nme... at smc.vnet.net wr=
ot=
> e:
>
> > > Hello,
>
> > > I am in trouble with below codes:
>
> > > I run this code but Program is not finsh evertime It is running and r=
un=
> ning...
> > > Could you possible help me.
>
> > > dim = Dimensions[image]
> > > r = 1;
> > > k = 1;
> > > n = 10;
> > > cost = Function[{positionValues, neighborValues},
> > > =C2  First[neighborValues] == 1];
>
> > > (* Image that only contains the value zero *)
> > > imageNew = Table[0, {i, 1, dim[[1]]}, {j, 1, dim[[2]]}];
>
> > > (* Walk through the rows of the image *)
> > > While[r < dim[[1]],
> > > =C2 (* Walk through the columns of the image*)
> > > =C2 k = 1;
> > > =C2 While[k < dim[[2]],
> > > =C2  (* Find a white pixel*)
> > > =C2  If[imgfilter[[r, k]] == 1,
> > > =C2  =C2 (* Proceed RegionGrowing and give them a identical value=
 by \
> > > multiplying it with n *)
> > > =C2  =C2 region = RegionGrowing[{imgfilter}, {{r, k}}, 1, cost]=
*n;
> > > =C2  =C2 (* Add the identical cell to imageNew *)
> > > =C2  =C2 imageNew = imageNew + region;
> > > =C2  =C2 (* Change n, so each cell has a different value *)
> > > =C2  =C2 n = n + 2;As
> > > =C2  =C2 (* Take the cell out of the original image,
> > > =C2  =C2 so he will stop when there is no white pixel anymore *)
> > > =C2  =C2 imageFilled = imgfilter - region;
> > > =C2  =C2 ];
> > > =C2  k++;
> > > =C2  ];
> > > =C2 r++;
> > > =C2 ];
>
> As Heike asked, what are those functions you use? If the computation
> lasts forever, there must be some bug... Check all braces - correct
> number and position, if all the inputs and outputs have an expected
> format, and so on...- Al=C4=B1nt=C4=B1y=C4=B1 gizle -
>
> - Al=C4=B1nt=C4=B1y=C4=B1 g=C3=B6ster -

Thank you for your answers. But There is a problem too that I don't
know how must I give inform about the region growing function.
Could you possible say me how can I do it?




  • Prev by Date: Re: FinancialData errors
  • Next by Date: Memory leak or flawed garbage collector
  • Previous by thread: Re: Code is not working...
  • Next by thread: call Fortran subroutine from Mathematica // use NETLink and DLL