Periodogram of Gabor Matrices 

In[1]:=

X Manipulate[g = GaborMatrix[150, \[Lambda] {.1, .1}]; GraphicsRow[{Labeled[i = ImageAdjust[Image[g]], "Gabor matrix"], Labeled[ImagePeriodogram[i], "periodogram"]}, ImageSize -> 350], {{\[Lambda], 2}, 1, 10}]

Out[1]=

Play Animation » Stop Animation »