[visionlist] phase spectrum scrambling

[Andrew Watson]

Mariya,

A Mathematica function for this purpose is:

ScramblePhase[image_] := (
   ep = Exp[ I Arg[ InverseFourier[RandomReal[{0, 1}, 
Dimensions[image[[1]]]]]]];
   Chop[Fourier[Abs[InverseFourier[#]] ep ]] & /@ image)



Regards,
Beau


-- 

Andrew B. Watson
MS 262-2
NASA Ames Research Center
Moffett Field, CA 94035-1000
(650) 604-5419	(650) 604-3323 fax
andrew.b.watson at nasa.gov	http://vision.arc.nasa.gov/