Code is not working...

*To*: mathgroup at smc.vnet.net*Subject*: [mg120447] Code is not working...*From*: Sönmezer at smc.vnet.net, D. <d.sonmezer at student.tue.nl>*Date*: Fri, 22 Jul 2011 19:47:56 -0400 (EDT)

Hello, I am in trouble with below codes: I run this code but Program is not finsh evertime It is running and running... Could you possible help me. dim = Dimensions[image] r = 1; k = 1; n = 10; cost = Function[{positionValues, neighborValues}, 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]], (* Walk through the columns of the image*) k = 1; While[k < dim[[2]], (* Find a white pixel*) If[imgfilter[[r, k]] == 1, (* Proceed RegionGrowing and give them a identical value by \ multiplying it with n *) region = RegionGrowing[{imgfilter}, {{r, k}}, 1, cost]*n; (* Add the identical cell to imageNew *) imageNew = imageNew + region; (* Change n, so each cell has a different value *) n = n + 2; (* Take the cell out of the original image, so he will stop when there is no white pixel anymore *) imageFilled = imgfilter - region; ]; k++; ]; r++; ];

**Follow-Ups**:**Re: Code is not working...***From:*Heike Gramberg <heike.gramberg@gmail.com>