Вычисляю на Дельфях так по старинке считаю, но такая вот зрень когда число X отрицательно, то логарифм не считается. А мне нужно, чтобы считал выражение при например -3.

у:=2*exp((1/(-x))*ln(x+exp((1/4)*ln(abs(x)))))

| Сообщение посчитали полезным:

for i:=1 to N do eax:=sqrt(eax);
может так ^^^

-----
Shalom ebanats!

| Сообщение посчитали полезным:

> for i:=1 to N do eax:=sqrt(eax);
> может так ^^^

Ага, щаз... что получится для 27 == 3^3 ? =)

| Сообщение посчитали полезным:

сори.. это корень степени 2^n..

-----
Shalom ebanats!

| Сообщение посчитали полезным:

Я где-то читал это как то по разложению Ньютона можно сделать, но там по-моему гемор

| Сообщение посчитали полезным:

как раз здесь http://algolist.manual.ru/maths/count_fast/inverse.php есть описание

| Сообщение посчитали полезным:

я пока не понял как этот алго работает, а именно откуда брать начальное приближение. при вычислении ряд все время расходится :-\

| Сообщение посчитали полезным:

Вот, например, итеративный способ, позволяющий вычислять корень с любой точностью eps

x[i+1] = 1/2 * (x[i] + x / x[i])
x[0] = 1


Вычисляем пока | x[i] - x[i+1] | < eps

[edited]проглючило с тегами [i], исправил.

| Сообщение посчитали полезным:

мож воспользоваться тем, что root(x,-n)=1/root(x,n) ?

| Сообщение посчитали полезным:

А так нельзя разве: 27 ^ (1/3) = 3

-----
Всем не угодишь

| Сообщение посчитали полезным:

можно, а как это программно дельфи это гребанную галочку поддерживает?

| Сообщение посчитали полезным:

Black Neuromancer пишет:
а как это программно дельфи это гребанную галочку поддерживает?
function Power(const Base, Exponent: Extended): Extended;
(unit Math)

| Сообщение посчитали полезным:

Black Neuromancer пишет:
у:=2*exp((1/(-x))*ln(x+exp((1/4)*ln(abs(x)))))

А чем хуже так ( каришок"n" степени из "x" ):
f(x)=exp(ln(abs(x))/n) * abs(x)/x ?

program Project1;



{$APPTYPE CONSOLE}



uses

  SysUtils;



  var

    x,y:real;

begin

  x:=-64;

  y:=exp(ln(abs(x))/3)*abs(x)/x;

  WriteLn(y);

  ReadLn;

end.

Математика рулит!

-----
Я медленно снимаю с неё UPX... *FF_User*

| Сообщение посчитали полезным:

AlexZ


так другое значение получится у тебя там два abs, значение разные получатся

deNULL

О пасиб, попробую, надеюсь работает

| Сообщение посчитали полезным:

deNULL

не подходит такая в ней проблема

вот на форуме на каком-то надыбал

[quote="Mish!"]У тебя в A получается отрицательное число. А функция Power не умеет возводить отрицательные числа в дробную степень:
[code]
function Power(const Base, Exponent: Extended): Extended;
begin
....
else
Result := Exp(Exponent * Ln(Base)) // <-- логарифм отр. числа не существует
end;
[/code][/quote]

| Сообщение посчитали полезным:

ещё проблемней это на асме реализовать

| Сообщение посчитали полезным:

Black Neuromancer пишет:
А функция Power не умеет возводить отрицательные числа в дробную степень
Если n целое, то

if Base >= 0 then
Result := Power(Base,1/n)
else
if n mod 2 = 1 then
Result := -Power(-Base,1/n) // n нечетное, минус выносится за знак корня
else
... // n четное, корень четной степени из отрицательного числа не существует

P.S. А математика действительно рулит

| Сообщение посчитали полезным:

Black Neuromancer
А не мог бы ты конкретно на ошибку ткнуть? =)
Ато и в Делфях и калькулятором считаю - все нормально.

-----
Я медленно снимаю с неё UPX... *FF_User*

| Сообщение посчитали полезным:

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

| Сообщение посчитали полезным:

Black Neuromancer
а вапще я тебе саветую в модуле систем посмотреть функцию SQRT и разабраться как в ней чо пачом и ты ее переделаешь а потом приатачишь на форуме чтобы все ее видели

| Сообщение посчитали полезным:

El Maestro пишет:
выход то простой тебе нужно со знаками развести??? оч проста
после считывания числа из которого ты корень извлекаешь, с помащью условия определяешь больше это число нуля либо меньше, потом после ввода степени корня, определяешь какой он если четный то тогда корень из атрицательного числа не извлекается, а если не четный то тогда изменяешь знак у введенного числа с которого ты корень извликаешь и извлекаешь уже из положительного а потом к нему приписываешь знак минуса, а вапщето от степени зависит колличество корней так что нужно тебе все продумать
Ты мой последний пост видел?

El Maestro пишет:
а вапще я тебе саветую в модуле систем посмотреть функцию SQRT и разабраться как в ней чо пачом
Чушь. SQRT выполняется одной инструкцией ассемблера (fsqrt).

| Сообщение посчитали полезным:

deNULL пишет:
одной инструкцией ассемблера (fsqrt).
ну тады абломdeNULL пишет:
Ты мой последний пост видел?
признаюсь чесна не читал, теперь панятна что я тебя перефразиравал
ВЫВОД: способы мышления наших дифективных мазгов пахожи

| Сообщение посчитали полезным:

Хм. В чем проблема...

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

| Сообщение посчитали полезным:

MC707

Гы ) Там не написано как это программно реализовать

| Сообщение посчитали полезным:

Дык е-мое

x(0)=1
x(1)=1/2*(x(0)+x/x(0))
i=1
eps = 0.01

while abs( x(i) - x(i-1) ) > eps
{
x(i+1) = 1/2 * (x(i) + x / x(i))
inc(i)
}

Вроде так

| Сообщение посчитали полезным: