11 lines
124 B
Mathematica
11 lines
124 B
Mathematica
|
function [F_h, F_p] = HPSS(S)
|
||
|
|
|
||
|
|
n1 = 17;
|
||
|
|
n2 = 17;
|
||
|
|
|
||
|
|
F_h = medfilt2(S,[1 n1]);
|
||
|
|
F_p = medfilt2(S,[n2 1]);
|
||
|
|
|
||
|
|
end
|
||
|
|
|