bpprocess.txt

来自「神经网络程序,用MATLAB写的,TXT格式,在MATLAB的环境下运行」· 文本 代码 · 共 96 行

%建立输入和输出向量 
clear all; 
'Wait for a moment :' 
for kk=0:9 
switch kk 
case 0 
    p=[0 1 1 0 1 0 0 1 1 0 0 1 1 0 0 1 0 1 1 0]; 
    t=0; 
case 1 
    p=[0 0 1 0 0 1 1 0 0 0 1 0 0 0 1 0 0 1 1 1]; 
    t=1; 
case 2 
    p=[0 1 1 0 1 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1]; 
    t=2; 
case 3 
    p=[1 1 1 0 0 0 0 1 0 0 1 0 0 0 0 1 1 1 1 0]; 
    t=3; 
case 4 
    p=[1 0 1 0 1 0 1 0 1 1 1 1 0 0 1 0 0 0 1 0]; 
    t=4; 
case 5 
    p=[1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 1 1 1 1 0]; 
    t=5; 
case 6 
    p=[0 1 1 1 1 0 0 0 1 1 1 0 1 0 0 1 0 1 1 0]; 
    t=6; 
case 7 
    p=[1 1 1 1 0 0 0 1 0 0 1 0 0 1 0 0 0 1 0 0]; 
    t=7; 
case 8 
    p=[0 1 1 0 1 0 0 1 0 1 1 0 1 0 0 1 0 1 1 0]; 
    t=8; 
case 9 
    p=[0 1 1 0 1 0 0 1 0 1 1 1 0 0 0 1 1 1 1 1]; 
    t=9; 
otherwise 
'error input!!!' 
end 
end 
save JJPT; 
  

%创建和训练网络 
clear all; 
load JJPT ; 

net=newff([0 1], [10 1],{'logsig' 'purelin'}, 'traingdx', 'learngdm'); 
net.trainparam.epochs=1500; 
net.trainparam.goal=0.001; 
net.trainparam.show=10; 
net.trainparam.lr=0.05; 
net=train(net,p,t); 
save JJNET; 

%程序仿真 
load JJPT; 
load JJNET; 
s=input('Input your data: ') 
switch s 
case 0 
    p=[0 1 1 0 1 0 0 1 1 0 0 1 1 0 0 1 0 1 1 0] 

case 1 
    p=[0 0 1 0 0 1 1 0 0 0 1 0 0 0 1 0 0 1 1 1] 

case 2 
    p=[0 1 1 0 1 0 0 1 0 0 1 0 0 1 0 0 1 1 1 1] 

case 3 
    p=[1 1 1 0 0 0 0 1 0 0 1 0 0 0 0 1 1 1 1 0] 

case 4 
    p=[1 0 1 0 1 0 1 0 1 1 1 1 0 0 1 0 0 0 1 0] 

case 5 
    p=[1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 1 1 1 1 0] 

case 6 
    p=[0 1 1 1 1 0 0 0  1 1 1 0 1 0 0 1 0 1 1 0] 

case 7 
    p=[1 1 1 1 0 0 0 1 0 0 1 0 0 1 0 0 0 1 0 0] 

case 8 
    p=[0 1 1 0 1 0 0 1 0 1 1 0 1 0 0 1 0 1 1 0] 

case 9 
    p=[0 1 1 0 1 0 0 1 0 1 1 1 0 0 0 1 1 1 1 1] 

otherwise 
'error input!!!' 
end 
a=sim(net, p); 
[m,b,r]=postreg(a,t) 
a=round(a)