| Author |
Comment/Response |
Bill Simpson
|
 03/01/12 02:10am
Change that line to
Print["Parameters "<>ToString[{row1,row2,p,minpic,maxpic,col1,col2}]];
Table[Print["Now doing "<>ToString[{m, n}]]; Total[ImageData[ImageTake[ImageRotate[img[m], θ], {row1, row2}, {n-p, n+p}]], 2], {m, minpic, maxpic}, {n, col1, col2}]
to verify that all your variables hav sensible values and so it will print m and n for each Table entry. Verify that it is not correctly stepping through all the m and n.
Post the results and we will go from there.
URL: , |
|
