nnapply1.m

利用线性神经网络对某一正弦信号进行线性预测。利用函数newlind设计线性神经网络

%利用线性神经网络对某一正弦信号进行线性预测。利用函数newlind设计线性神经网络，
%在已知正弦信号过去5个值得情况下，预测其将来值。
%定义需要的信号，共持续5s，采样频率40Hz
close all
clf reset
time=0:.025:5;
T=sin(4*pi*time);
plot(time,T);
hold on
title('FIG——正弦信号曲线');
disp('数据已载入，按任意键继续');
pause
%定义神经网络的输入P，其5个分量通过将信号T分别延迟1~5s得到
Q=length(T);
P=zeros(5,Q);
P(1,2:Q)=T(1:(Q-1));
P(2,3:Q)=T(1:(Q-2));
P(3,4:Q)=T(1:(Q-3));
P(4,5:Q)=T(1:(Q-4));
P(5,6:Q)=T(1:(Q-5));
disp('完成数据预处理，生成输入矢量P，按任意键继续')
pause
%生成网络
net=newlind(P,T);
disp('网络设计已完成，按任意键继续')
pause
%仿真并将仿真误差输出
a=sim(net,P);
e=T-a
plot(time,a,'r*');
figure
plot(time,e);