Преобразователь формул

[TripleX]

Необходимо написать программу на Delphi рисующую график по заданной формуле.
Сама процедура, выполняющая построение графика у меня есть. Вот она:

procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2:real; // границы изменения аргумента функции
y1,y2:real; // границы изменения значения функции
x:real; // аргумент функции
y:real; // значение функции в точке х
dx:real; // приращение аргумента
l,b:integer; // левый нижний угол области вывода графика
w,h:integer; // ширина и высота области вывода графика
mx,my:real; // масштаб по осям X и Y
x0,y0:integer; // точка - начало координат

begin
// область вывода графика
l:=10; // X - координата левого верхнего угла
b:=Form2.ClientHeight-20; //У - координата левого верхнего угла
h:=Form2.ClientHeight-40; // высота
w:=Form2.Width-40; // ширина
x1:=0; // нижняя граница диапазона аргумента
x2:=25; // верхняя граница диапазона аргумента
dx:=0.0416666; // шаг аргумента

// найдем максимальное и минимальное значения
// функции на отрезке [x1,x2]

y1:=f(x1); // минимум
y2:=f(x1); //максимум
x:=x1;
repeat
y := f (x);
if y < y1 then y1:=y;
if y > y2 then y2:=y;
x:=x+dx; until (x >= x2);
// вычислим масштаб
my:=h/abs(y2-y1); // масштаб по оси Y
mx:=w/abs(x2-x1); // масштаб по оси X
x0:=1;
y0:=b-Abs(Round(y1*my)) ;
with form2.Canvas do
begin // оси
MoveTo(l,b);LineTo(l,b-h);
MoveTo(x0,y0);LineTo(x0+w,y0);
TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
TextOut(l+5,b,FloatToStrF(y1,ffGene ral,6,3));
// построение графика
x:=x1; repeat
y:=f(x);
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;
x:=x+dx;
until (x >= x2);
end;
end;

Взята из учебника по Делфи. Там написана процедура:

Function f(x:real):real;
begin
F:=2*x;
end;

Если переменной F присвоить любую функцию, то все работает.
Необходима лишь часть кода, выполняющая считывание функции с компонента Edit.
Сколько это будет стоить, если необходимо выполнить в течении недели?

[samec]

Стучите в асю 11один11-5шесть5шесть, обсудим.

[Miller-1981]

600р - ICQ: 340-553-273 - если тока считывание с Edit

[Vedrus]

Есть готовая программа, но для Turbo Pascal. Её легко переделать под Delphi. Поддерживаемые функции: тригонометрия, скобки, арифметика. Программа реализована для функции с одной переменной.

Готов продать её за $100. Мой емаил: VedaCoder(гав)mail.ru

[Dimon]

TripleX, постучись в аську 198-012-696
помогу

[Rusl92]

готов помочь стучи 395359808

[proglamer]

есть такое) продам дешево)
стучитесь в асю 590-876-115