function?st=gstquick（hg）;
%?Generalized?S-transform
%?get?from?http://www.cora.nwra.com/~stockwel/index.php?module=phpwsbb&PHPWSBB_MAN_OP=view&PHPWS_MAN_ITEMS[]=37
if~exist（‘g‘）;
g=1;
end
H=fft（h）;
n=length（h）;
st=ifft（[[1;?zeros（n-11）]?...
[exp（-2*pi^2*g^2*（[0:ceil（n/2）-1?-floor（n/2）:-1]‘*?...
（1./[1:ceil（n/2）-1?-floor（n/2）:-1]））.^2）]]?.*?...
H（fliplr（toeplitz（[n?1:n-1][n:-1:1]））））.‘;
return;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件??????189262??2020-10-27?03:20??╣π╥σs?Σ╗╗\gst.pdf
?????文件?????????414??2020-10-27?03:20??╣π╥σs?Σ╗╗\gstquick.m
?????文件???????13710??2020-10-27?03:20??╣π╥σs?Σ╗╗\st.m
?????文件?????????353??2020-10-27?03:20??╣π╥σs?Σ╗╗\stquick.m