function K=get_permut(kod)
  [sx,sy]=size(kod);  
  K=zeros(1,sy);
  wzorzec=[1:1:sy];
  for i=1:sy
    inx=kod(1,i);
    if inx > sy-i+1  then
        inx=sy-i+1
    end
   K(1,i)=wzorzec(1,inx);
   if inx > 1 then      
     wzorzec=[wzorzec(1,1:inx-1) wzorzec(1,inx+1:$)]  
   else
     wzorzec=wzorzec(1,inx+1:$); 
   end
  end  
endfunction