Вычислить в Excel ; Вознаграждение гарантированное

[warma2d]

Здравствуйте!

Все, кто поможет получат гарантированное вознаграждение!

(У меня Excel 2003)
Нужно вычислить все значения Y-ков в Excel и построить в Excel график. Вам понадобится написать excel формулу с блок-схемы:



или

Эта же формула в Delphi:

If x>(b/a) then
If x>0 then y:=ln(abs((x-3)/(a*SQR(x)-b)))-power(exp(x),(power(x,1/3)/3))
else
y:=ln(abs((x-3)/(a*SQR(x)-b)))-power(exp(x),-(power(abs(x),1/3)/3))
else
If x>0 then y:=power(x,1/3)-SQRT(abs(SQR(b)-tan(x)))
else y:=-power(abs(x),1/3)-SQRT(abs(SQR(b)-tan(x))) ;

[IgorGO]

где-то так:

If x>(b/a) then
  If x>0 then 
    y=log(abs((x-3)/(a*x^2-b)))-exp(x)^(x^(1/3)/3)
  else
    y=log(abs((x-3)/(a*x^2-b)))-exp(x)^(-x^(1/3)/3)
  end if
else
  If x>0 then 
    y=x^(1/3)-(abs(b^2-tan(x)))^(1/2)
  else 
    y=-abs(x)^(1/3)-(abs(b^2-tan(x)))^(1/2)
  end if
end if

=если(x>(b/a);если(x>0;ln(abs((x-3)/(a*x^2-b)))-exp(x)^(x^(1/3)/3);ln(abs((x-3)/(a*x^2-b)))-exp(x)^(-x^(1/3)/3));если(x>0;x^(1/3)-(abs(b^2-tan(x)))^(1/2);-abs(x)^(1/3)-(abs(b^2-tan(x)))^(1/2)))

[IgorGO]

гарантированное - получено

[vikttur]

Дело было не вечером, сейчас... Пока кофе пил, мозги разминал. На вознаграждение не претендую
В алгоритме две формулы. Различия внутри формул выделены.
Первая формула:

LN(ABS((x-3)/(a*x^2-b)))-EXP(x)^(x^(1/3)/3)
LN(ABS((x-3)/(a*x^2-b)))-EXP(x)^(-x^(1/3)/3))

Вторая формула:

x^(1/3)-(ABS(b^2-TAN(x)))^(1/2)
-ABS(x)^(1/3)-(ABS(b^2-TAN(x)))^(1/2)

В алгоритме ошибка: после x>b/a дважды проверка х>0
Для первой формулы:
ЕСЛИ(x>0;х;-х) - в любом случае положительное значение, т.е. ABS(x)
Если х<0 нужно здесь, то:
ЕСЛИ(x<0;х;-х) - в любом случае отрицательное значение, т.е. -ABS(x)
Для второй формулы:
ЕСЛИ(x>0;x;-ABS(x)) - в любом случае х, т.е. применение ЕСЛИ(...) бессмысленно.
Если х<0 нужно здесь, то:
ЕСЛИ(x<0;x;-ABS(x)) - в любом случае отрицательное значение, т.е. -ABS(x)
Вывод:
Для первой формулы х>0, для второй х<0.
После анализа различий формул и ошибки в алгоритме:

ЕСЛИ(x>b/a;LN(ABS((x-3)/(a*x^2-b)))-EXP(x)^(ABS(x)^(1/3)/3);-ABS(x)^(1/3)-(ABS(b^2-TAN(x)))^0,5)

Это если нигде не ошибся

[IgorGO]

Витя, спасибо!
мы со всем разобрались...
я сверх обещанного получил в подарок 7-значный асечный номер 7-934-250!

[vikttur]

Семизначный - это круто? Не пользуюсь Асей.