Вычислить математическое уравнение (Delphi)

[Павел Dig]

Никак не могу разобраться...

Пример: S = Ln(Y (в степени)(-(корень)IxI))*(X - y/2)+sin (в квадрате) arctg(z); (вроде так)...

З.Ы.: X := StrToFloat (Edit1.Text);
Y := StrToFloat (Edit2.Text);
Z := StrToFloat (Edit3.Text);
S := Ln(exp((-(sqrt(Abs(x)))*ln(y))*(x - y/2)+sqr(sin(arctan(z));
Memo1.Lines.Add('X = '+Edit1.Text);
Memo1.Lines.Add('Y = '+Edit1.Text);
Memo1.Lines.Add('Z = '+Edit1.Text);
Memo1.Lines.Add('Функция = '+FloatToStr(s));
Вот как я пишу, а выдаёт expected...

[JUDAS]

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

[Павел Dig]

В том то и дело, что не могу. Мучался бы, писал, если бы можно было скопировать... Могу передать word документ, но не знаю как...

[Павел Dig]

Вот смотрите:
S= (Вот это) sin( в квадрате) arctg(z)