Power funktion

[Maik81SE]

Moin zusammen,

Jeder von euch kennt ja die Real function Power(x,y)
ich euch aber schon mal iwo, iwie, iwan eine Adequade Funktion über den Weg gelaufen, welche einen Integerwert als Rückgabe verwendet?
Ich würde gerne auf die Roundfunction zugreifen wollen, da diese halt unnötige Rechenzeit und Speichercode vergeudet.

ich hab die letzten Wochen nichts passendes verwendet.

[theo]

In welcher Sprache ist dieser Beitrag geschrieben?
aquí se habla alemán.

[Winni]

Hi!

Das hab ich auch schon mal gesucht.
Ich habe keine Funktion gefunden, aber:

In der Unit math haben sie ** überladen:

Code: Alles auswählen

operator ** (bas,expo : int64) i: int64; inline;

Also kannst Du machen:

Code: Alles auswählen

uses ....., math;
.....
Ergebnis := 13 ** 42;

Winni

[wp_xyz]

Hi!

Das hab ich auch schon mal gesucht.
Ich habe keine Funktion gefunden, aber:

In der Unit math haben sie ** überladen:

Code: Alles auswählen

operator ** (bas,expo : int64) i: int64; inline;

Code: Alles auswählen

operator ** (bas,expo : int64) i: int64; inline;
  begin
    i:=round(intpower(bas,expo));
  end; 

Damit hast du das round wieder im Boot, das du eigentlich vermeiden wolltest.

Wenn die Exponenten nicht zu groß sind, was spricht eigentlich gegen mehrfache Multiplikation?

Code: Alles auswählen

function PowerInt(a, b: Integer): Int64;
begin
  if (a=0) and (b=0) then
    rause Exception.Create('0^0 gibt''s nicht.');
  if a = 0 then exit(0);
  if b = 0 then exit(1);
  if b < 0 then exit(0);
  Result := a;
  while b > 1 do
  begin
    Result := Result * a;
    dec(b);
  end;
end; 

Ob das aber schneller ist als round?

[Winni]

Wenn die Exponenten nicht zu groß sind, was spricht eigentlich gegen mehrfache Multiplikation?

Code: Alles auswählen

function PowerInt(a, b: Integer): Int64;
begin
  if (a=0) and (b=0) then
    rause Exception.Create('0^0 gibt''s nicht.');
  if a = 0 then exit(0);
  if b = 0 then exit(1);
  if b < 0 then exit(0);
  Result := a;
  while b > 1 do
  begin
    Result := Result * a;
    dec(b);
  end;
end; 

Ob das aber schneller ist als round?

Damit schränkst Du den Exponenten aber auf positive Integer ein.
Das muss man dabei schreiben.

Und round geht doch ganz simple.
Kann man sich selbst machen, wenn die RTL zu langsam ist:

Code: Alles auswählen

function MyRound(F:single) : Integer; inline
begin
result := trunc(F+0.5);
end;

Wer die Perfektion liebt und nicht die Geschwindigkeit, kann sich mit try auch noch ne Overflow-Exception einbauen.

Winni

[wp_xyz]

Damit schränkst Du den Exponenten aber auf positive Integer ein.

Wenn das ganze mit Integern laufen soll - und davon bin ich ausgegangen -, kann man keine negativen Exponenten zulassen: a^(-b) = 1/(a^b) --> kein Integer mehr. OK, eine Exception wäre vielleicht klarer. Aber ehrlichgesagt, ich weiß sowieso nicht, wozu so eine Funktion gut sein soll.

[af0815]

Aber ehrlichgesagt, ich weiß sowieso nicht, wozu so eine Funktion gut sein soll.

Kann mir nur vorstellen, das das auf Arduinos etc. (sinnvoll) sein könnte.

[Timm Thaler]

Für Arduino / AVR würde ich mir meine Power-Funktion selber schreiben. Soweit ich weiß, geht die aus der math.pp auf ARV embedded nicht.

[Maik81SE]

Kann mir nur vorstellen, das das auf Arduinos etc. (sinnvoll) sein könnte.
[/quote]
richtig...
Soll auf einem ATtinyx5 zum einsatz kommen.

Für Arduino / AVR würde ich mir meine Power-Funktion selber schreiben. Soweit ich weiß, geht die aus der math.pp auf ARV embedded nicht.

Ja in dem Fall...
Schreib ich mir selbst eine und bei 8 Bit ist das kein Thema

[Timm Thaler]

Soll auf einem ATtinyx5 zum einsatz kommen.
Ja in dem Fall...
Schreib ich mir selbst eine und bei 8 Bit ist das kein Thema

Hilf mir mal, aber mein FPC kann kein math.pp für AVR embedded. Also musst Du Dir Funktionen wie Power, Sin, Log... eh selber schreiben.

Und dann kannst Du die auf Deine Bedürfnisse optimieren. Wenn Du Hilfe brauchst, sag Bescheid.

Ich hab hier auch Mul, Div und Sqrt Routinen selbst erstellt, weil mir die "hauseigenen" für einige Projekte zu "ausladend" waren. Eine 16x16 zu 32bit-Multiplikation muss keine 5msec dauern, weil jemand das unbedingt in Software durchrödeln will.