% Script file to test the letter recognition.  Run this after running
% appcr1, set N to the number of times to play, and set noiselevel to
% between 0 (no noise) and 1 (all noise).

close all

N=5;                   % Run the game N times
noiseLevel=0.4;        % Use this much noise (between 0 and 1)
randidx=randi(26,N,1);  % Randomly select letters
for i=1:N
  Letter=X(:,randidx(i))+noiseLevel*randn(35,1);
  t=sim(net2,Letter);
  [maxval,maxidx]=max(t);
  figure(1)
  plotchar(Letter)
  title('What Matlab Sees');
  pause
  figure(2)
  plotchar(X(:,maxidx))
  title('Matlab Predicts');
  pause
  figure(3)
  plotchar(X(:,randidx(i)));
  title('Actual Character');
  pause
end