Mathematik f(x) = ax + b

[Sanchez]

Hallo erstmal,

sollte so gehen (ist aber ungetestet)

Delphi-Quellcode:

procedure CalcGerade (x1,x2,y1,y2 : double );
var xdiff : double;
begin
  xdiff := x2 - x1;
    if xdiff <> 0 then begin
      gr_k := (y2 - y1) / xdiff;
      gr_d := y2 - gr_k * x2;
    end;
  end;
end;

jetzt hast du deine gerade: f(x) = gr_k x + gr_d

grüße, daniel