load tabrec;
axis('ij');
axis([0 18 0 7]);
for i=1:18
   line([i i],[0 7]); 
end
line([0 18],[0 0]); 
for i=1:7
   line([0 18],[i i]); 
end
for i=1:7
for j=1:18
  if tabp(i,j)>0
     text(j-0.9,i-0.3,Symbol(tabp(i,j),:)); 
  end; 
end; 
end;