SR LSun Apr 8 21:47:56 2001anderl kunigunde€x86linux5.2.1 ¼ERGO_M ˜  _PHAÿÿÿÿRHOSXSIZEYSIZEPHAX2I INDEX "9":+ SIZE ";  "<  "=<<+ FLTARR "> < "?< "@< "A< "B< "D<<.<+ SHIFT+ COMPLEX+ EXP+ ATAN "E<<<<+ COMPLEX+ EXP+ ATAN "F<<<+ SHIFT+ COMPLEX+ EXP+ ATAN "G<<<<+ COMPLEX+ EXP+ ATAN "H "I<<<.+ SHIFT+ COMPLEX+ EXP+ ATAN "J<<<<+ COMPLEX+ EXP+ ATAN "K "L<<<+ SHIFT+ COMPLEX+ EXP+ ATAN "M<<<<+ COMPLEX+ EXP+ ATAN "N "O<<$+REVERSE<<*<.+ FFT<<+ FLOAT &"P<<$+REVERSE<<*<.+ FFT<<+ FLOAT &"Q+ FINDGEN!PI< "R+ COS+ FLTARR<= "S+ FINDGEN!PI< "T+ FLTARR<+ COS= "U<<<< 7'Ŭ "V<< "W<<$ +REVERSE<<*<+ FFT<<+ FLOAT &"X<<$ +REVERSE<<*<+ FFT<<+ FLOAT & "Y<<<<  "Z:6 FLUC_SUBàPHAUPHAÿÿÿÿA1ALPHA1A2CUMUCUM","- + COMPLEX+ EXP ". !<+ SMOOTHEDGE_TRUNCATE@ "/<!+  IMAGINARY+ MEDIAN+ FLOAT+ MEDIAN+ ATAN + ATAN "3+ERGO_M"4 "5<!<+ SMOOTHEDGE_TRUNCATE@ "6:6 '¸ QEF_FILTERÄPHASESMMSIZUWPHASEÿÿÿÿDUMMY"" + ON_ERROR" BBInSAR phase noise filter using quasi ergodic fluctuation modelling+ PRINT" ,,written 4/1997 by Y. Saveliev and A. Reigber+ PRINT" + PRINT"+ N_PARAMS<!" (( Usage: result = qef_filter(phase,flat)+ PRINT" 00 phase = input phase array (2D floating point)+ PRINT" 00 flat = amount of noise removal (default = 5)+ PRINT"  + PRINT" $$ Algorithm based on the publication:+ PRINT" ,, Y. Saveliev: "Statistic properties of quasi+ PRINT" 66 ergodic quantum fluctuations", Comm. AS USSR. Inorg. + PRINT" -- Mat., 12(2), pp. 699-701, 1981 (in Russian).+ PRINT"<+ PRINT" )) This binaries of this programm are free.+ PRINT" // Copy as much as you like. For more information+ PRINT"  contact: yusavel@freem.org+ PRINT"<+ PRINT" .9"+ SIZE " <  !"  ERROR: phase array illegal+ PRINT"<.9"< "  Estimating fluctuations + PRINT" <  +FLUC_SUB"  <<+FLUC_SUB" <<<+FLUC_SUB"!<<<+FLUC_SUB"#  Substracting noise+ PRINT"$<<+ SMOOTHEDGE_TRUNCATE@ "%<+ COMPLEX+ EXP "&+ FLOAT+ MEDIAN+  IMAGINARY+ MEDIAN+ COMPLEX "'<+ COMPLEX+ EXP+ ATAN9"(  Done+ PRINT"):6