Thanks, It worked.
I tried something similar but it did not work when i tried.
I have another questions which i am trying to solve and would like your help if its not too much to ask.
I would like to take the same set of images, find out the HOG descriptors of the images and save the vectors in the form of a jpg for all the images.
img=(*image*);
dims = ImageDimensions[img];
dirs = ImageData[GradientOrientationFilter[img, 5]];
magnitudes = ImageData[GradientFilter[img, 5]];
orientations =
MapThread[#1 {-Sin[#2], Cos[#2]} &, {magnitudes, dirs}, 2];
Show[img,
ListVectorPlot[
MapIndexed[{{#2[[2]], dims[[2]] - #2[[1]]}, #1} &,
orientations, {2}], VectorColorFunction -> (Yellow &)]]
There are two problems with this, I would like to get an output of only the descriptors in the form of a jpg and also i would like to write a loop for 2000 images.
I will start a new discussion regarding this but as you are actively solving all my questions, i wanted to ask you directly.
The source of my example is wolfram documentation , Please see the Applications section
http://reference.wolfram.com/language/ref/GradientOrientationFilter.html
I apologize for side tracking this discussion.
Thanks