Float wert an einen anderen "angleichen" über eine Toleranz

[static_cast]

Zitat von mkinzler:

Könnte man mit DIV erreichen

hehe, witzbold Ne aber so weit war ich schon...

@Tubos
Interpolation ist ja mehr für Grafiken, aber kann man sicher etwas für meine Zwecke von anwenden, aber gute Idee muss ich mal suchen.


// Edit:
ich glaub ich hab es jetzt soweit hingewurstet das es funktioniert...

Delphi-Quellcode:

function Adapt(Value,Target,Tolerance:Extended):Extended;
var
  MinTolerance,MaxTolerance:Extended;
begin
  Result:=Value;

  MinTolerance:=Target - ((Target / 100) * (Tolerance + 1));
  MaxTolerance:=Target + ((Target / 100) * (Tolerance + 1));

  if NOT ((Value >= MinTolerance) AND (Value <= MaxTolerance)) then
  begin
    Result:=(Target + Value) / 2;
  end;
end;

vllt. hat ja trozdem etwas besseres?

//Noch ein Edit:
Ich glaub ich bin zu blöd dafür irgendwie geht das nicht so wie ich mir das vorstelle, oder ich sollte einfach schlafen gehen und Morgen weitermachen...