You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
1.4 KiB
Matlab
33 lines
1.4 KiB
Matlab
function words(incFeedback)
|
|
if nargin<1 || isempty(incFeedback)
|
|
incFeedback=1;
|
|
end
|
|
|
|
%define network
|
|
[W,alpha,mImage]=words_weights(incFeedback);
|
|
|
|
%define input patterns
|
|
X=zeros(mImage,5);
|
|
X([encode_letter('d'),encode_letter('a'),encode_letter('r'),encode_letter('k')],1)=1;%DARK
|
|
%X([encode_letter('d'),encode_letter('a'),encode_letter('r'),logical([0,0,0,0,1,1,0,0,0,0,0,0,1,0])],2)=1; %DAR?
|
|
X([encode_letter('d'),encode_letter('p'),encode_letter('p'),encode_letter('k')],2)=1; %D??K
|
|
X([encode_letter('w'),encode_letter('o'),encode_letter('r'),encode_letter('k')],3)=1; %WORK
|
|
|
|
X([encode_letter('t'),logical([0,1,1,0,1,1,0,0,0,0,0,0,0,0]),encode_letter('a'),encode_letter('n')],4)=1; %T?AN
|
|
X([encode_letter('t'),logical([0,1,1,0,1,1,0,0,0,0,0,0,0,0]),encode_letter('n'),encode_letter('k')],5)=1; %T?NK
|
|
|
|
X([encode_letter('t'),logical(zeros(1,14*3))],6)=1; %T???
|
|
X([encode_letter('t'),encode_letter('h'),logical(zeros(1,14*2))],7)=1; %TH??
|
|
X([encode_letter('t'),encode_letter('h'),encode_letter('a'),logical(zeros(1,14))],8)=1;%THA?
|
|
X([encode_letter('t'),encode_letter('h'),encode_letter('a'),encode_letter('t')],9)=1;%THAT
|
|
|
|
%present each input to the network in turn and record the results
|
|
for k=1:size(X,2)
|
|
x=X(:,k);
|
|
[y,e,r]=dim_activation_hierarchical(W,x,incFeedback);
|
|
|
|
figure(k),clf, words_plot_results(x,y,r,alpha);
|
|
print(gcf, '-dpdf', ['words',int2str(k),'.pdf']);
|
|
end
|
|
|