помогите исправить график

[L_M]

мне надо нарисовать график функции f. я решил рисовать по канве формы, вот код:

procedure TForm1.FormPaint(Sender: TObject);
var
    x,y,minn,maxx:Real;
begin
    Form1.Color:=colfon;
    Canvas.Pen.Color:=colline;
    mx:=1024/(b-a);
    x:=a;
    y:=f(x);
    minn:=f(a);
    maxx:=f(b);
    while x<=b do begin
        x:=x+1/mx;
        y:=f(x);
        if y>maxx then maxx:=y;
        if y<minn then minn:=y;
    end;
    my:=768/(maxx-minn);
    x:=a;
    y:=f(x);
    while x<=b do begin
        Canvas.LineTo(round(x*mx),round(y*my));
        x:=x+1/mx;
        y:=f(x);
        Canvas.LineTo(round(x*mx),round(y*my));
    end;
end;

Здесь все рисование.
а и b - параметры(границы по х)
неправильно считается масштаб. помогите, чем можете, пожалуйста

[Greblin]

Масштаб у тебя считается правильно, ты при прорисовке не учёл, что у формы начало системы координат совпадает с левым верхним углом и y-координата идёт вниз

[L_M]

спасибо, попробую

[Stilet]

я решил рисовать по канве формы

Здря. Для этого есть TChart.