aus Lautstärke in dB wahrgenommene Lautsärke berechnen

[d3g]

Gut, in diesem Fall wird U eben in Millibel gemessen.

Delphi-Quellcode:

uses
  Math;

// ...

function calculate_mB_from_volume(volume: Extended): Integer;
begin
  Result := Round(2000 * Log10(volume / 100));
end;

function calculate_volume_from_mB(mB: Integer): Extended;
begin
  Result := 100 * Power(10, mB / 2000);
end;

Pass mit der Lautstärke 0% auf, denn log(0) ist bekanntlich undefiniert.