User Portlet User Portlet

Discussions
A little bit late but nevertheless: FourierShift[a_] := RotateRight[a, Quotient[Dimensions@a - 1, 2]]