Hochzahl ?

[dizzy]

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

[marabu]

Hallo Dax,

Zitat:

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:

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:

Zitat von PBiggi

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

:shock:

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

[Clane]

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

[malo]

Zitat:

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

Delphi-Quellcode:

a := (y / b, 1 / x);

sein?

[dizzy]

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