figure(1), clf, whitebg(gcf,[0 0 0])

subplot(3,1,1)
hstim = bar(buffer);
axis([0 1+buffer_length 0 1.5])
title('TD Learning Simulation')
ylabel('Stimuli')

subplot(3,1,2)
hweights = bar(W,'EdgeColor','w');
axis([0 1+buffer_length -1.2 1.2])
ylabel('Weights')

subplot(3,1,3)
axhist = gca;
hhist = bar(history,'EdgeColor','w');
xlabel(sprintf('Trial %d',epoch))
ylabel('History')

h = legend('V(t)','V(t-1)','Reward','Error','Location','northeast');
p = get(h,'Position');
p(1:2) = [0.79 0.25];
set(h,'Position',p)

for hc = get(h,'Children')'
  if strcmp(get(hc,'Type'),'text')
    set(hc,'Color','w')
  end
end

hold on
for i = 1.5 : buffer_length
  plot([i,i], [0,2], ':w')
end

axis([0 1+buffer_length -0.2 1.2])
drawnow