Форум: "Игры";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
ВнизКак осуществить возведение в степень 1/3 ? Найти похожие ветки
← →
Georgij (2005-05-10 23:53) [0]Добрый вечер !
Подскажите пожалуста как с помощю Power возвести функцию в степень 1/3 (Одна треть). Заранье благодарен !
← →
cerber (2005-05-11 00:11) [1]Никак.
Можно так:
a^b= exp((ln(a)*b) при условии а>0, b>0
← →
П7 (2005-05-11 01:18) [2]в модуле math есть функция Power.
← →
dRake © (2005-05-11 01:40) [3]
FUNCTION CubeSqrt( X : single ) : single;
VAR
Dummy : single;
BEGIN;
Dummy := sqrt(x);
while abs(Dummy - X/sqr(Dummy)) > 0.001 do
begin
Dummy := (2*Dummy + X/sqr(Dummy))/3;
end;
Result := Dummy;
END;
← →
Antonn © (2005-05-11 05:30) [4]Georgij (10.05.05 23:53)
:=power(8,1/3);
Страницы: 1 вся ветка
Форум: "Игры";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c