Xte Wurzel aus einer Zahl

[tommie-lie]

Zitat von rantanplan99:

Aus der OH: "For fractional exponents or exponents greater than MaxInt, Base must be greater than 0." Will heissen wenn man eine Wurzel zieht, dann nur von Positiven Zahlen.
aber was ist mit der 3ten Wurzel aus -27?? Die lässt sich mit der Power funktion nicht berechnen. Aber die 3te Wurzel aus -27 ist -3 ... oder seh ich da was falsch?

Dann nimmt man bei ungeraden Exponenten den Betrag von x und falls x vorher negativ war, multipliziert man es mit -1:

Delphi-Quellcode:

function rt(x: Real; n: Integer): Real;
begin
  result := sign(x) * Power(abs(x), 1/n);
end;

Das wäre aber laienhaft, denn die Wurzeloperation im reellen Zahenraum ist für Radikanden <0 nicht definiert, die gibt's erst in den komplexen Zahlen.

Edit: Oh mann... immer diese orthografischen Mängel...