Кубический корень....

← →
гость23 (2002-09-10 22:59) [0]

Есть ли такая процедура, кот. возращала бы куб. корень из Х

← →
Dmk (2002-09-10 23:25) [1]

Returns the square root of X.

Unit

System

Category

arithmetic routines

function Sqrt(X: Extended): Extended;

Description

X is a floating-point expression. The result is the square root of X.

← →
Suntechnic (2002-09-10 23:38) [2]

>Dmk © (10.09.02 23:25)
The result is the square root of X.
Ну насколько я знаком с английским square root это квадратный корень, а человек просил кубический.

← →
Almaz (2002-09-10 23:46) [3]

В модуле Math есть функция возведения в любую степень - Power. Из алгебры известно, что извлечение кубического корня эквивалентно возведению числа в степень 1/3. Таким образом:

uses Math, ... X := 8; Result := Power(X, 1/3); // = 2 :))

Удачи.

← →
Dmk (2002-09-11 00:08) [4]

2 Suntechnic © (10.09.02 23:38)
Я понял. Между прочим, если вызвать эту функцию два раза, то получиться нужный результат.
А если использовать FPU
fsqrt st(0)
fwait
fsqrt st(0)
fwait

то получится намного быстрее чем Power
А если использовать XMM расширения, то еще быстрее

← →
einsam (2002-09-11 00:17) [5]

2 Dmk
Извините, но если для 8 вызвать один раз квадратный корень, а потом еще раз квадратный корень, то вы никогда не получите 2 (проверьте на калькуляторе).

← →
Almaz (2002-09-11 00:21) [6]

> Dmk © (11.09.02 00:08)
> А если использовать FPU
> fsqrt st(0)
> fwait
> fsqrt st(0)
> fwait
>
> то получится намного быстрее чем Power

Быстрее-то оно быстрее, но зато результат неверный :))
Два раза извлечь квадратный корень равносильно извлечению корня четвертой степени. (9 класс средней школы :)))

Удачи.

← →
Dmk (2002-09-11 00:23) [7]

Голова болит :)(
Неправ я ... Пойду посплю

← →
Suntechnic (2002-09-11 00:28) [8]

Almaz © (11.09.02 00:21)

> Dmk © (11.09.02 00:08)
> А если использовать FPU
> fsqrt st(0)
> fwait
> fsqrt st(0)
> fwait
>
> то получится намного быстрее чем Power

Быстрее-то оно быстрее, но зато результат неверный :))

Мне всё это напомнило бородатый анекдот про секретаршу, у котрой при приёме на работу спрашивают с какой скоростью она печатает:
- 200 знаков в минуту
- !!!???
- Только такая фигня получается

P.S. Сорри за оффтопик. Не удержался :)

Кубический корень.... Найти похожие ветки