function testeimag()
% funcao para criar matriz 3D com 0s e 1s
% e exibir em cores
% menu GUI eŽ criado por testemenu.m e testemenu.fig
obj  = findobj(gcf,'Tag','Nlin');    % Paramentro Nlin do menu GUI
vNlin = str2double(get(obj,'String'));
obj  = findobj(gcf,'Tag','Ncol');    % Paramentro Ncol do menu GUI
vNcol = str2double(get(obj,'String'));
B1=rand(vNlin,vNcol); % valores entre 0 e 1
B2=rand(vNlin,vNcol);
B3=rand(vNlin,vNcol);
A=cat(3,B1,B2,B3); % matriz de 3 indices
image(A)  % exibe os pontos em cores