Services & ResourcesWolfram ForumsMathGroup Archive

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

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>