- clear
- data=xlsread('D:\china.xlsx');
- lambda = 100:10:100000;
- N = length(lambda);
- TS = zeros(length(data),N);
- CS = TS;
- for i = 1:N
- [TS(:,i),CS(:,i)] = hpfilter(data(:,2),lambda(i));
- end
- lambda_s = (std(diff(CS))./std(diff(TS))).^2;
- [lambda_opt,maxi] = max(lambda./lambda_s);
- lambda_opt = lambda[maxi]
- [T,C] = hpfilter(data,lambda(maxi));


雷达卡



京公网安备 11010802022788号







