Hi,
mit Toleranz ist wohl die Kopplung der Abweichungen gemeint:
Delphi-Quellcode:
function CheckDelta(hiMean, hiNorm, loMean, loNorm, delta: cardinal): boolean;
var
hiDev, loDev: integer;
begin
hiDev := hiMean - hiNorm;
loDev := loMean - loNorm;
Result := (Abs(hiDev) <= delta) and (Abs(loDev) <= delta) and (Abs(hiDev - loDev) <= delta);
end;
Grüße vom marabu