function res = thoulessN2( x,v )


som = 0;
l = length(v);

for k = 1:l
    if x == v(k)
        som = som +0;
    else
    som = som + log(abs(x-v(k)));
end;

res = som/l;


end

