Построение графика y=kx+b

[Mrsqler]

Вот код

var x0,y0: Integer; // начало координат по х и у
    x,y: Extended;  // расчет х и у
    m: integer;     // масштаб
begin
  x0 := ClientWidth div 2;  //узнаем центр формы по х
  y0 := ClientHeight div 2; // узнаем центр формы по у

  // чертим х ось
  Canvas.MoveTo(0, y0);
  Canvas.LineTo(ClientWidth, y0);

  // чертим у ось
  Canvas.MoveTo(x0, 0);
  Canvas.LineTo(x0, ClientHeight);

  m:=StrToInt(Edit2.Text);  //задаем масштаб, иначе будет очень мелкий график

  x:=StrToInt(Edit3.Text);  // зададим диапазон от куда до куда будем считать наш график

  // собственно прорисовывем
  while x <= m do
    begin
      x := x + 0.01;
      y := strtofloat(Edit1.Text);//3*x-4;
      Canvas.Pixels[x0+Round(x*m), y0-Round(y*m)] := clGreen;

    end;

end;

Всё строится,только без участия полей Edit,а нужно с ними)Дело в том,что когда я ввожу в поле Edit1 функцию 3*x-4 то появляется ошибка '3*x-4'is not a valid integer point value .Как её исправить?Там по идее это поле нужно в какой-то другой тип данных преобразовать?Никак понять не могу.

[Аватар]

A*x+B - два эдита, в одном задавать значение A, в другом - B

[Mrsqler]

А как сделать без эдитов?Просто вводить значения.Или это сложно очень реализовать?

[Аватар]

В принципе есть сторонние компоненты или библиотеки реализующие работу с формулами. Вам это надо?

А как сделать без эдитов

Без эдитов константами прописать или параметрами передать или через ini-файл и т.п.

[Mrsqler]

А можете пример какой-нибудь привести?Просто я недавно этим занимаюсь)

[Triplecool]

Вижу что Вы в программировании не очень. Вот для примера моя программа: http://ingosoft.narod2.ru/michel/function .если будут вопросы то пишите на мейл michellehcim@mail.ru
Вот код:

function Raschet(str:string;x:double):Double;
var i,len,c:integer;
var str:string;
var v:array [1..100] of double;
var operation:array [1..100] of string;
var dble:double
begin
c:=0;
len:=length(str);

for i:=1 to len do

zn:=copy(str,i,1);

if (((zn='+') or (zn='-')) or (zn='*')) or (zn='/') then
begin
if copy(str,i+1,1)<>'x' then
begin
c:=c+1;
v[c]:=StrToFloat(copy(str,i+1,len-(i+1)));
operation[c]:=zn;
end
else
if copy(str,i+1,1)='x' then
begin
c:=c+1;
v[c]:=x;
operation[c]:=zn;
end;
end
if i=len then
begin
if copy(str,i+1,1)<>'x' then
begin
c:=c+1;
v[c]:=StrToFloat(copy(str,i+1,len-i));
operation[c]:=zn;
end
else
if copy(str,i+1,1)='x' then
begin
c:=c+1;
v[c]:=x;
operation[c]:=zn;
end;
end; 


end;



//++++++++++++++++
for i:=1 to c do
begin
if operation[c]='*' then
begin
v[i]:=v[i]*v[i+1];
v[i+1]:=v[i];
dble:=v[i];
end
else
if operation[c]='/' then
begin
if v[i+1]<>0 then
begin
v[i]:=v[i]/v[i+1];
v[i+1]:=v[i];
dble:=v[i];
end;
end;

end;



//=============
for i:=1 to c do
begin
if operation[c]='+' then
begin
v[i]:=v[i]+v[i+1];
v[i+1]:=v[i];
dble:=v[i];
end
else
if operation[c]='-' then
begin
v[i]:=v[i]-v[i+1];
v[i+1]:=v[i];
dble:=v[i];
end;

end;


result:=dble;
end;

[Triplecool]

Его просто использовать (если хотите то могу дать функцию которая вычесляет sin,cos,tg,ctg,arcsin,arccos,arctg, arcctg,sqrt,^).Например:

for i:=-1000 to 1000 do
begin
x:=Raschet(Edit1.Text,i*0.1);
y:=i*0.1;
//тут чертим
...
...
...
//тут чертим
end;

[Mrsqler]

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

[Mrsqler]

Так как все таки это реализовать?Чтобы я вводил в поле Edit функцию и она строилась...а не создавать дополнительные Edit и в них вводить что-то.

[Triplecool]

Я же написал

Код:

for i:=-1000 to 1000 do
begin
x:=Raschet(Edit1.Text,i*0.1);//Вот он тот самый edit
y:=i*0.1;
//тут чертим
...
...
...
//тут чертим
end;