%TABELA kontingencna tabela za met dveh kock
%P je verjetnost na podlagi katere zavrnemo domnevo o 
%neodvisnosti kock, n je stevilo poskusov
function P=tabela(n);
   %rand('seed',12345);  
   T=zeros(6,6);  
   ind=ceil(6*rand(n,2));  
   for i=1:n      
     T(ind(i,1),ind(i,2))=T(ind(i,1),ind(i,2))+1;    
   end 
   v=sum(T');%vsote vrstic  
   s=sum(T);%vsote stolpcev 
   X2=0;  
   for i=1:6    
     for j=1:6        
       pij=v(i)*s(j)/n;      
       X2=X2+(T(i,j)-pij)^2/pij;    
     end  
   end  
   P=gammainc(X2/2,25/2);