Вычисление Логарифма с заданной точностью, числа 2 Опции

[TOPEHTO]

Помоги плиз... надо вычислить Натуральный Логарифм числа 2 с заданной точностью. финкция раскладывается так Ln(1+x)=E(-1)^n+1 * (X^n)/n
E это типа сигма... ...так вот число 2 мы представляем как Ln(1+1) и расписываем по формуле. Пользователь вводит точность, т.е. количество слагаемых по которым будет разложен ряд. т.е. например ввел число 2 то 1-1/2 и все...

function _Ln(x: double): double;
const eps = 0.0000001; { Задаем точность }
var
s, next: double;
n: integer;
begin
next := (x - 1)/(x + 1);
s := next; n := 1;
repeat
inc(n, 2);
next := (next * sqr(x - 1))/sqr(x + 1);
s := s + next/n;
until (next/n) < eps;
_Ln := 2 * s
end;

Нашел эту функцию, но не получается уменя переделать погрешность, т.е. не хватает мозга, чтобы прога работала...пожалуйста помоги... ...

[volvo]

TOPEHTO, ты напиши, чего ты хочешь? КАК ты бы хотел вызывать функцию? ЧТО переделывать-то требуется? Сначала ты говоришь, что проблема в точности, сейчас выясняется что не совсем...

Да, кстати:

финкция раскладывается так Ln(1+x)=E(-1)^n+1 * (X^n)/n

Ты уверен? Это разложение - когда -1<X<=1... У тебя же Х=2, так что будь добр раскладывать по правильной формуле...

[мисс_граффити]

Ты уверен? Это разложение - когда -1<X<=1... У тебя же Х=2, так что будь добр раскладывать по правильной формуле...

ln(2)=ln(1+1)=ln(1+x)
x=1
что не так?