Re: Problem in generating a IF cycle which Mathematica 6.0
- To: mathgroup at smc.vnet.net
- Subject: [mg95579] Re: Problem in generating a IF cycle which Mathematica 6.0
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 22 Jan 2009 06:58:46 -0500 (EST)
- Organization: Uni Leipzig
- References: <gl71vm$c7d$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi, you had posted the code before and you have ignored all of our suggestions, that gave me the hope that you will ignore the next answers too SetDirectory["C:\\Users\\proprietario\\Desktop\\Desktop\\TESI\\Dati\\\Bitmap\\\Paziente 1"]; nome = "p6.bmp"; gv=Import[nome]/. {img_Image:> Flatten[ImageData[img]], img:Graphics[Raster[__],___]:> Flatten[img[[1,1]]]; gv=Chop[gv] will do it with out a loop or other stupid things and should work with Mathematica 6 and 7 Regards Jens Valeria Volpe wrote: > Hi, > > another question just to finish my release.... > > This is the actual list I have: > > > Quit[]; > SetDirectory["C:\\Users\\proprietario\\Desktop\\Desktop\\TESI\\Dati\\\Bitmap\\\Paziente > 1"]; > nome = "p6.bmp"; > Import[nome, "ImageSize"]; > row = ToExpression[Import[nome, "ImageSize"]][[1]]; > col = ToExpression[Import[nome, "ImageSize"]][[2]]; > vmax = row*col; > gv = Array[f, vmax]; > gl = Take[Import[nome, "GrayLevels"]]; > i= 0; > Do[Do[ i=i + 1; gv[[i]] = gl[[j, k]], {k, 1, col}], {j, 1, row}]; > > > > It returns me an array which have these values... > > > 0. > 0. > 0. > 0. > 0. > 0. > 0. > 0. > 0.1764705882352941 > 0.1764705882352941 > 0.1764705882352941 > 0.8941176470588235 > 0. > 0. > 0. > 0. > > > (this is just a part of the array) > > Now I have to wite a "if" cycle which, when it reads "0." (in the array) it > gives back just "0" (without "." to be clear) > > > i.e., i need a new array : > > 0 > 0 > 0 > 0 > 0 > 0 > 0 > 0 > 0.1764705882352941 > 0.1764705882352941 > 0.1764705882352941 > 0.8941176470588235 > 0 > 0 > 0 > > > Thanks a lot!!! > > > Valeria > >