График в Delphi

[Di-em]

одалели мы тебя наверно.......

ну у меня вот такая функция

x:=(exp(b*ln(a)))*(cos(a));
y:=(exp(b*ln(a)))*(sin(a));

логорифмическая спираль

[Rin]

FrEeZaRiO
Такой код в cikloida :

procedure TForm1.cikloida;
var
a:extended;
b:extended;
x0:extended;
xn:extended;
x:extended;
y:extended;
begin
A:=strtofloat(edtA.text);
b:=strtofloat(edtb.text);
x0:=strtofloat(edtx0.text);
xn:=strtofloat(edtxn.text);
imgraf.canvas.Pen.Color:=clred;
memo1.lines.Clear;

x:=zoom*x0-(dx*scrollBar1.Position);
if x0-b=0 then y:=zoom*(x0*x0*x0*exp(a*x0*x0))-(dy*scrollBar2.Position)
else y:=zoom*(x0*x0*x0*exp(a*x0*x0))/(x0-b)-(dy*scrollBar2.Position);
memo1.lines.add('y='+floattostr(y));
imgraf.canvas.MoveTo(round(x)+round(imgraf.Height/2*zoom),round(y)+round(imgraf.width/2*zoom));
repeat
x:=zoom*x0-(dx*scrollBar1.Position);
if x0-b=0 then y:=zoom*(x0*x0*x0*exp(a*x0*x0))-(dy*scrollBar2.Position)
else y:=zoom*(x0*x0*x0*exp(a*x0*x0))/(x0-b)-(dy*scrollBar2.Position);
memo1.lines.add('y='+floattostr(y));
imgraf.canvas.LineTo(round(x)+round(imgraf.Height/2*zoom),round(y)+round(imgraf.width/2*zoom));
x0:=x0+0.1;
until x0>=xn;

Такие результаты - (см. рисунок 1).
Можно конечно y делить на 10000 или 100000 и говорить, что одно деление по OY = 10000*20 (100000*20), и тогда график будет более наглядный при разных значениях а,b,х0,xn. Но это Ты сам решай.

[Rin]

Di-em
Вот код:

procedure TForm1.cikloida;
var
a0,an,b0,bn:extended;
max:extended;
x:extended;
y:extended;
begin
A0:=strtofloat(edtA0.text);
b0:=strtofloat(edtb0.text);
an:=strtofloat(edtAn.text);
bn:=strtofloat(edtBn.text);
imgraf.canvas.Pen.Color:=clred;

if abs(a0)+abs(an)>abs(b0)+abs(bn) then  max:=an
                                   else  max:=bn;
memo1.lines.Clear;

x:=(zoom*(exp(b0*ln(a0))*cos(a0)))-(dx*scrollBar1.Position);
y:=(zoom*(exp(b0*ln(a0))*sin(a0)))-(dy*scrollBar2.Position);
memo1.lines.add('y='+floattostr(y));
imgraf.canvas.MoveTo(round(x)+round(imgraf.Height/2*zoom),round(y)+round(imgraf.width/2*zoom));
repeat
x:=(zoom*(exp(b0*ln(a0))*cos(a0)))-(dx*scrollBar1.Position);
y:=(zoom*(exp(b0*ln(a0))*sin(a0)))-(dy*scrollBar2.Position);
memo1.lines.add('y='+floattostr(y));
imgraf.canvas.LineTo(round(x)+round(imgraf.Height/2*zoom),round(y)+round(imgraf.width/2*zoom));
a0:=a0+0.1;
b0:=b0+0.1;
until (a0>=max)or(b0>=max);
end;

Вот результат:

[Di-em]

Вот спасибо! если сдам с меня благодарность, в личку номер вебмани напиши!

[Di-em]

Блин касяк......забыл сказать что у меня только b вводиться, а альфа т.е а
высчитываеться в цикле(

[Rin]

Ну вставь такой код

var
a0,an,b:extended;
x:extended;
y:extended;
begin
A0:=0.00001;
an:=50;
b:=strtofloat(edtb0.text);

imgraf.canvas.Pen.Color:=clred;

x:=(zoom*(exp(b*ln(a0))*cos(a0)))-(dx*scrollBar1.Position);
y:=(zoom*(exp(b*ln(a0))*sin(a0)))-(dy*scrollBar2.Position);
imgraf.canvas.MoveTo(round(x)+round(imgraf.Height/2*zoom),round(y)+round(imgraf.width/2*zoom));
repeat
x:=(zoom*(exp(b*ln(a0))*cos(a0)))-(dx*scrollBar1.Position);
y:=(zoom*(exp(b*ln(a0))*sin(a0)))-(dy*scrollBar2.Position);
imgraf.canvas.LineTo(round(x)+round(imgraf.Height/2*zoom),round(y)+round(imgraf.width/2*zoom));
a0:=a0+0.1;
until (a0>=an);
end;

и удали с формы все edit'ы , кроме одного и назови его edtb0.
Блин, ты хоть разберись в программе, ведь Тебе ж сдавать. Хоть вопросы задай что-ли. А web-money не имею =))). Да и по жизни альтруист.

[Di-em]

Да мне в принципе все понятно.....у меня она готова была, только циферки расставить не мог )

[FrEeZaRiO]

Вообще печально) Одни ошибки за ошибкой. он таки должен почти прямую линию рисовать? о_0

[Di-em]

Спасибо тебе огромное

[Rin]

FrEeZaRiO
Ты пиши ошибки сюда в виде " division by zero", "value is not integer".
У тебя график кубической функции, помноженной на экспоненту в степени. Ну вот ты прикинь, чему будет равен У при х=2, а=2, b=100 . А равно оно будет 237 с копейками. При x=3 y=621509. И ещё я бы порекомендовал бы вместо MoveTo и LineTo использовать
imgraf.canvas.pixels[round(x)+round(imgraf.Height/2*zoom),round(y)+round(imgraf.width/2*zoom)]:=clRed; и шаг у "x0" сделать значительно меньше.