function [a,ender]=out_basis(InpPat,n_fun,Inter,num_knot,n_fun_over,disp_matrix,gener)

[m,n]=size(InpPat);
output=1/gener;
a=zeros(m,n_fun);
for i=1:m
   ender=ad(InpPat(i,:)',Inter,num_knot,n_fun_over,disp_matrix,gener);
   for j=1:gener
      a(i,ender(j))=output;
   end
end