利用MATLAB实现单层计算单元的感知网络代码设计

单层计算单元的感知网络！每个计算单元为二进制0,1！

程序

• function [out0 out w n0]=perception(p,t,ptest,v,lv)
• %out训练样本分类结果
• % w权值
• % n0实际训练次数
• % p训练样本的输入值
• % t训练样本输出值
• % v训练最大次数
• % lv学习率
• %ptest测试样本
• %out0测试样本分类结果
• m=size(p);
• n=size(t);
• w=ones(m(1),n(1))./5;
• for i=1:v
•     g0=rem(i,m(2));
• if g0==0
•     g0=m(2);
• end
• if t==hardlim(w'*p)
•    n0=i;
•    break
• end  
• d=hardlim(w'*p(:,g0));
• w=w+lv*p(:,g0)*(t(:,g0)-d)';
• out=hardlim(w'*p);
• n0=v;
• end
• out0=hardlim(w'*ptest);
  7 K7 C" h3 c9 y- ]- B( P8 q

运行及结果

p

p =

     0     0     0     1     1     1. k* {4 K& F, X4 s4 S, C
     0     1     1     0     0     14 h% G& r! U% q. x$ N; G
     0     0     1     0     1     0

>> t

t =

     1     1     1     0     0     0
7 Z# k( n1 h* v2 @. O5 q     1     0     0     1     1     0& V* J( K  F# R% T, n
     1     1     0     1     0     1

>> ptest

ptest =

     0     1
( S9 F/ j* G2 ~( q- N! A# K7 s     0     1
* J8 x& m0 x( @5 d& `$ E( J     1     1

>> [out0 out w n0]=perception(p,t,ptest,1000,0.1)

out0 =

     1     01 @* t, t' L! L' g1 F& j! U9 C
     1     0' P. [7 [% ?; r. |  ~. }
     0     0

8 l3 P( U0 j  s; w
out =

     1     1     1     0     0     0
  m* k2 K8 M* X" m     1     0     0     1     1     0
8 G, _" V& M$ B3 }) }     1     1     0     1     0     1

3 {7 k* v% z* F8 {; Dw =

   -0.2000    0.1000         00 W9 U: _+ C' ]# O1 {& x
    0.1000   -0.2000         0
* ^0 i# t( A* e3 E- v* O         0         0   -0.2000

; |: \' _: |# {( [, `n0 =

    12