EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
单层计算单元的感知网络!每个计算单元为二进制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);
/ c( a' m2 d0 c" ^: D9 F! L
运行及结果 p p = 0 0 0 1 1 16 X9 H/ w2 Z: Z1 o1 y3 c0 J+ ?. m2 H* e
0 1 1 0 0 1
7 p6 B, K) l* E; [6 h: ]& U 0 0 1 0 1 0 >> t t = 1 1 1 0 0 0
/ ^% C/ r7 v- G# V 1 0 0 1 1 02 f5 D$ D4 R$ m: `
1 1 0 1 0 1 >> ptest ptest = 0 16 x8 k1 T, Z1 N2 H; ^0 B
0 1/ d+ F! X% E, ~9 i5 h& q
1 1 >> [out0 out w n0]=perception(p,t,ptest,1000,0.1) out0 = 1 0% s4 ]( s8 N/ o w) D- ]" N
1 0
! E' g4 B1 u4 t8 l 0 0 2 a3 p4 B% p3 {4 W s; F% _7 {
out = 1 1 1 0 0 05 k+ J7 g; a7 O; Q' y* }2 `( s
1 0 0 1 1 0! ?, w( X! y, k+ P) ^
1 1 0 1 0 1
! e. m- }! X3 \) zw =
-0.2000 0.1000 06 F$ S9 H# Z. s. D' O; A. p
0.1000 -0.2000 0( _' O4 h8 A" T4 R% m
0 0 -0.2000 $ F z4 Q. z( X0 h
n0 = 12
% ]: B. D7 I2 m/ a$ T3 T5 P$ |! c |