Hochzahl ?

[dizzy]

Weil das nahezu identisch mit der Funktion "Power" ist (bei gebrochenen Exponenten)

[marabu]

Hallo Dax,

Zitat von Dax:

Warum nicht einfach so?

Delphi-Quellcode:

function MyPow(Base, Exponent: Integer): Int64;
begin
  Result := Round(Exp(Exponent * Ln(Base)));
end;

das ist generell in Ordnung. Der Vorteil der Integer-Arithmetik fällt nicht so groß aus, wie ich dachte und für große Exponenten muss ich sogar die Rekursion ausbauen, damit ich mithalten kann. Ich wusste gar nicht, dass Exp() und Ln() zur Grundausrüstung gehören.

Für alle die es interessiert:

100.000.000 Zyklen 5 hoch 10: mypow 21s rekursiv 20s nonrek 18s

negative Basen gehen mit MyPow nicht.

Grüße vom marabu

[Dax]

Okay, so gehts mit negativen Basen

Delphi-Quellcode:

function MyPow(Base, Exponent: Integer): Int64;
var i: Integer;
begin
  i := 1 - 2 * (Base shr (sizeof(Base)-1));
  Result := i*Round(Exp(Exponent * Ln(i*Base)));
end;

[Clane]

Zitat von marabu:

Hallo PBiggi,

solange du wieder mal deine Math-Unit suchst kannst du das hier benutzen:

Delphi-Quellcode:

function Power(base: integer; exponent: byte): Int64;
begin
  if exponent = 0 then Result := 1
  else begin
    Result := Power(base, exponent shr 1);
    Result := Result * Result;
    if Odd(exponent) then
      Result := Result * base;
  end;
end;

Freundliche Grüße vom marabu

joa doch ... deshalb ging das nich ... pe hat math ja nich -.- naja mit deinen src geht auch

aber ich hab mal noch ne frage ... y=b*a(hoch)x wie kann ich die formel nach a auflösen ?? also aufm papier ?? ich bekomm das nich hin mit dem hoch x

edit: bzw wie zieh ich die x-te wurzel in delhi ?? weil die formel is ja eigentlich a = ((x-te wurzel)y/a)

[malo]

Zitat von PBiggi:

joa doch ... deshalb ging das nich ... pe hat math ja nich -.-

Ich empfehle dir eine Neuinstallation von Delphi, wenn du keine Math-Unit hast

[Clane]

ne ich hab 7 und 2k5 personal und in denn is math nich drin

[malo]

Zitat von PBiggi:

ne ich hab 7 und 2k5 personal und in denn is math nich drin

Wie gesagt: Neuinstalltion. Ich hab in beiden die Unit Math und vollen Zugriff auf die Funktionen der Unit

Sowohl mit Delphi 7 Personal als auch mti Delphi 2005 Personal.

[Khabarakh]

Zur x-ten Wurzel: Das sollte doch
a := (y / b, 1 / x); sein?

[dizzy]

n-te Wurzel(x) = power(x, 1/n)