Логарифм

← →
Начинающий1 (2008-09-07 19:39) [0]

Как можно в Delphi подсчитать логарифт к примеру: N=log2(15), подключил модуль math, но функцию log Delphi не знает, киньте плиз пример.

← →
Renegat © (2008-09-07 19:49) [1]

Функцию Ln Делфи знать обязан. А далее - модуль перевода в зубы, и рысью марш ;)

← →
Renegat © (2008-09-07 19:52) [2]

Кстати, если требуется конкретно двоичный логарфм, ст0ит, ИМХО, юзать FPU-мнемонику FYL2X.

← →
Начинающий1 (2008-09-07 19:54) [3]

Простите, что узнать? FPU-мнемонику FYL2X, это что?

← →
Юрий Зотов © (2008-09-07 19:59) [4]

> Начинающий1
Ln function Returns the natural log of a real expression. LnXP1 function Returns the natural log of (X+1) Log10 function Calculates log base 10. Log2 function Calculates log base 2. LogN function Calculates the log of X for a specified base.
И все это взято из справки. Ай-яй-яй.

← →
Начинающий1 (2008-09-07 20:02) [5]

:( стало стыдно, спасибо большое

← →
Smile (2008-09-07 20:03) [6]

А по мне простой арифметики достаточно
N:= (ln(15))/(ln(2));
то есть
N:= (ln(x))/(ln(основание));

> Smile (07.09.08 20:03) [6]

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

> Простите, что узнать?

В общем-то, ЮЗ уже всё за меня сказал. И тем не менее:

func log(N:Extended):Extended;
asm
FLD1;
FLD TBYTE PTR [EAX];
FYL2X;
end;

Логарифм Найти похожие ветки