DetermineAdaptiveStep

// Zastosujemy Logarytm :)

function DetermineAdaptiveStep(Value: Integer): Integer;
begin
  Result := Min(1, Round(Power(10, Log10(Value) / 2)));
end;

{
    
   Proces wygląda następująco:

   - Najpierw obliczana jest wartość logarytmu dziesiętnego z Value.
   - Następnie na podstawie wyniku logarytmu obliczane jest potęgowanie 10 do połowy tego wyniku: 
    (Power(10, Log10(Value) / 2)).
   - Wynik jest zaokrąglany do najbliższej liczby całkowitej (Round).
   - Funkcja Min(1, ...) ogranicza wynik do minimum 1, co zapewnia, że wynik nie może być mniejszy niż 1.
   
   Elastycznośc, oparta na logarytmach, co może być użyteczne w kontekście większych wartości :)
   - Minus taki ze nie kazdy odczyta kod, ogarnie -D


Pozdrawiam 

Irus ;D
}