%功能：創建和訓練BP網絡
function net=BPnet_creat
PR=[zeros(1024,1),255*ones(1024,1)];
PR=double(PR);
%net=newff(PR,[200 60 1],{'tansig' 'tansig' 'purelin'},'traingdx','learngdm');
net = newff(PR,[60 1],{'tansig' 'purelin'},'traingdx','learngdm');

net.trainParam.epochs=1000;
net.trainParam.goal=0.002;
net.trainParam.lr=0.03;
%net.trainParam.mem_reduc=2;

[p,t]=train_sample;
net=train(net,p,t);