clear
clc
for a = 1:4
acumuladorSIS{4,5,a,1,2} = ceil(rand(50)*3)-2;
acumulador2{4,5,a,1,2} = ceil(rand(1,50)*10);
end
acumulador3{1,1} = ceil(rand(1,50)*10);
QSG = 50;
figure
cmapInt = [1, 0, 0; 1, 1, 1; 0, 0, 1];
cmapPlot = [
1 0 0
0 0.7 0
0 0 0.9
0.5 0.5 0.5];
aMax = 4;
b = 1;
c = 2;
d = 4;
e = 5;
pos = [1 5 9 13]
for a = 1:aMax
subplot(4,4,pos(a)),...
imagesc(acumuladorSIS{d,e,a,b,c})
colormap(cmapInt)
caxis([-1 1])
xlim([1 sum(QSG)])
ylim([1 sum(QSG)])
title(a)
set(get(gca, 'Title'), 'Color', cmapPlot(a,:));
end
for a = 1:4
hold on
subplot(4,4,[2 16]), ...
plot(acumulador2{d,e,a,b,c}),...
'Color', cmapPlot(a,:)
box off
end
hold on
subplot(4,4,[2 16]), ...
plot(acumulador3{1,1}, '--black')
box off