Re: Problem in generating a DO cycle (mathematica 6.0)

*To*: mathgroup at smc.vnet.net*Subject*: [mg95342] Re: Problem in generating a DO cycle (mathematica 6.0)*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Fri, 16 Jan 2009 06:08:01 -0500 (EST)*References*: <gkn5jk$ihb$1@smc.vnet.net>

Hi, try gv = Flatten[ ImageData[Import["http://sipi.usc.edu/database/misc/5.1.09.tiff";]], 1]; or in your case gv = Flatten[ ImageData[Import["p6a.bmp"]], 1]; with Mathematica 7 and with Mathematica 6 gv = Flatten[ Import["http://sipi.usc.edu/database/misc/5.1.09.tiff"][[1, 1]], 1] or gv = Flatten[ Import["p6a.bmp"][[1, 1]], 1] BTW: Your code is awfully nonsense and you should really read the manual. Regards Jens Valeria Volpe wrote: > Dear all I have a problem in generating a DO cycle (mathematica 6.0). > > Through these commands I acquire a bitmap image from a my folder and create > a "Graylevels" file: > > Quit; > SetDirectory[ "C:\\Users\\...\\Dati\\\Bitmap\\\xxx"]; > nome = "p6a.bmp"; > Import[nome, "ImageSize"]; > row = ToExpression[Import[nome, "ImageSize"]][[1]]; > col = ToExpression[Import[nome, "ImageSize"]][[2]]; > vmax = row*col; > gv = Array[f, vmax]; > gl = Import[nome, "GrayLevels"]; > > > at this point I have a matrix with all graylevels. > > Now my problem is to create a two DO cycle (one for rows and one for > columns) which allow me to generate an array (gv) whose elements are the > product row x column of the matrix: > > gv[i] = gl [j,k] > > where: > {i,1,Vmax} > {j,1,row} > {k,1,col} > > Can you pleasa herlp me to generate these Do Cycle? > > Thanky > Vale > >