роспись уравнения Delphi

[Bj1nyh46r]

Доброго времени суток!
просмотрел много справочников, там пишут как все это расписать но все никак не получается. Уж все слишком закручено.

помогите, пожалуйста. Нужно расписать это так чтоб подставить в Делфи для решения ... Сам код все есть нужно тока ето уравнение записать в виде у:= .....;
заранее благодарю

[_-Re@l-_]

Ну как-то так:

y:=0;
y:=ln(power(e,2*x));
y:=sqr(y);
y:=y+power(sin(36+power(x,3)),3);
t:=power(x,4)+power(ln(power(x,5)),3);
t:=power(t,1/3);
t:=t+power(e,4*x*x)-sqr(power(x,5));
y:=y/t;

Вроде так если каждое действие расписывать.

[Bj1nyh46r]

а нельзя его в 1 ряд записать? типа такого (пример: y:=1/((x+1)+sqrt(x*x+1))
спасибо) хоть и не могу разобраться как его туда вписать много ероров говорит=)....

procedure TForm1.DanniClick(Sender: TObject);
var x,y,h,a,b:real;
i,cod:integer;
str1,str2:string;
begin
stringgrid1.Visible:=True;
chart1.Visible:=False;
stringgrid1.Cells[0,0]:='x=';
stringgrid1.Cells[1,0]:='y=';
if (edit1.Text<>'')and(edit2.Text<>'')and(edit3.Text<>'')  then   begin
   val(edit1.Text,a,cod);
   val(edit2.Text,b,cod);
   val(edit3.Text,h,cod);
     x:=a;
     i:=1;
     end;
while x<=b+h/2 do
    begin
     y:=1/((x+1)+sqrt(x*x+1)); - тут нада вписать ту формулу, вместо этой.... 
     str(x:8:2,str1);
      stringgrid1.Cells[0,i]:=str1;
     str(y:8:2,str2);
       stringgrid1.Cells[1,i]:=str2;
       x:=x+h;
       i:=i+1;
end;

[Mad_Cat]

_-Re@l-_,
e^2x==exp(2*x)
e^(4x^2)==exp(4*x*X)

[Bj1nyh46r]

if x>0 then
begin
s1:=x*x;
s2:=x*x*x;
t1:=sqr(ln(exp(2*x)));
t2:=sin(36+s2);
t3:=exp(ln(s1*s2)/3);
t4:=exp(ln(s1*s1+t3)/3);
t5:=exp(4*s1);
t6:=sqrt(s1*s2);
y:=(t1+t2*t2*t2)/(t4+t5-t6);
end
else ...............

ех... всем спс. разобрался...