Zitat von
Wolfgang Mix:
Zeigt doch 'mal bitte Eure Profi-Version,
dürfte auch andere interessieren.
MFG
Wolfgang
Profi-Version von was? Wie schon gesagt, lgx gibt's in
math als
logn. Das ist vielleicht(?) eine Profi-Version (und nebenbei eine Funktion, die Codegier/E.. im Laufe der Zeit
nicht verschlimmbessert hat).
IsPowerOfN ist mE überflüssig, weil sie in der Praxis eigentlich keiner braucht. Was gebraucht wird, sind Funktionen wie
Delphi-Quellcode:
IsPrimePower(n: int64): boolean;
IsPower(n: int64): boolean;
die testen, ob n eine Primzahlpotenz n = p^k oder eine allgemeine Potenz n=m^k ist. Man beachte: Potenz für irgendeine Basis, zB IsPower(6) = false, IsPower(216) = true, IsPrimePower(216) = false. Sowas wird wirklich gebraucht, zB bei Primzahltests.
Wenn man unbedingt will, könnte man zB sowas benutzen
Delphi-Quellcode:
function IsPowerOfX(base, number: double): boolean;
begin
result := IsZero(abs(frac(logn(base, number)));
end;