selfadapt.m

vb开发的神经网络

function Temp_adapt=selfadapt(Temp_act,Temp_cal)

alpha=0.35;   % 自适应参数
[row,col]=size(Temp_act);
n=row;

k=1;
% 逐条数据适应
k_real=Temp_act./Temp_cal;
Temp_adapt(1,1)=Temp_cal(1,1);
for i=2:n  
%     k=k+alpha*(k_real(i-1,1)-k);  
    k=(1-alpha)*k+alpha*k_real(i-1,1);  %指数平滑
    Temp_adapt(i,1)=Temp_cal(i,1)*k;       
end

% 
% Temp_act=sin(1:1000)';
% Temp_cal=sin(1:1000)'+0.1;
% alpha=0.35;   % 自适应参数
% [row,col]=size(Temp_act);
% n=row;
% k=1;
% iflag=0;
% % 逐条数据适应
% k_real=Temp_act./Temp_cal;
% Temp_adapt(1,1)=Temp_cal(1,1);
% for i=2:n  
%     iflag=iflag+1;
% %     k=k+alpha*(k_real(i-1,1)-k);  
%     k(iflag+1)=(1-alpha)*k(iflag)+alpha*k_real(i-1,1);  %指数平滑
%     Temp_adapt(i,1)=Temp_cal(i,1)*k(iflag+1);       
% end