function res = thouless8( x )

pp = P(8);
som = 0;

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

res = som;


end

