% 本例設計一個自適應線性層，并用函數trainwh()對其進行訓練，訓練好的網絡用于信號預測。
clf reset
figure(gcf)
%setfsize(300,300);
echo on
clc

% INITLIN -對線性層初始化
% ADAPTWH -采用Widrow-Hoff規則訓練線性層
pause  
clc
% 定義輸入信號P和目標信號T
time=1:0.0025:5;
P=sin(sin(time).*time*10);

T = P*2+2;
pause 
clc

plot(time,P,time,T,'--');
title('輸入信號和目標信號')
xlabel('時間');
ylabel('輸入__ 目標--');
pause
clc
[w,b]=initlin(P,T);
pause
clc
lr=0.01;%學習率
[a,e,w,b]=adaptwh(w,b,P,T,lr);
pause
clc
plot(time,a,time,T,'--')
title('輸出和目標信號')
xlabel('時間');
ylabel('輸出__ 目標--');
pause
clc
plot(time,e);
hold on
plot([min(time) max(time)],[0 0],':r')
hold off
title('誤差信號');
xlabel('時間');
ylabel('誤差');
echo off