function M0i = calcula_produto_escalar_da_base_completa(A0,NC,NP,ix,iy)
%calcula o produto escalar do elemento da base de posicao (0,0)
%com o elemento da base de posicao (ix,iy)

np_comp = prod(NP);
posi = [ix,iy];
Ai = permuta_coluna_da_matriz_A(A0,posi,NC,NP,1:np_comp,np_comp);
M0i = (A0'* Ai)/np_comp;
assert(size(M0i,1) == 1)
assert(size(M0i,2) == 1)