Mathematiknachhilfe...

[Jens01]

Ich hätt da auch noch eine...

Delphi-Quellcode:

{ lineare Interpolation }
function interpol(tabwert, tab1, tab2, ergebnis1, ergebnis2: Double): Double;
begin
  Result := (((tabwert - tab1) / (tab2 - tab1)) * (ergebnis2 - ergebnis1)) + ergebnis1;
end;