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

MathGroup Archive 2011

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

Search the Archive

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++;
  ];



  • Prev by Date: Re: mandelbrot in version 7 & Ruskeepaa version 3
  • Next by Date: Re: CDF limitations and unclear professional strategy
  • Previous by thread: Re: Preventing In-line Math Typesetting From Being Scaled Down in Text Cells
  • Next by thread: Re: Code is not working...