Mit "Power" eine beliebige Wurzel ziehen

[0nk3lz]

Ja da ist ein Muster, aber es soll ja nicht die Zweite oder Dritte sein, sondern eine beliebige Wurzel aus einer beliebigen Zahl...?!

[Dax]

Zitat:

Zitat von jfheins

Und 2*2 + 3*3 ergibt 13 :shock:

Verdammt, vorgestern war Freitag! Wir werden alle sterben! :shock:

So, genug OT ;)

[mkinzler]

Zitat:

Zitat von 0nk3lz

Ja da ist ein Muster, aber es soll ja nicht die Zweite oder Dritte sein, sondern eine beliebige Wurzel aus einer beliebigen Zahl...?!

Dann wende das Muster doch entsprechend an

die x.Wurzel ist dann Zahl1^(1/x)

[jfheins]

Sowas in etwa:

Delphi-Quellcode:

// Zihet die n-te Wurzel der Zahl
// 1. Parameter x: Die Zahl
// 2. Parameter n: Die wievielte Wurzel berechnet werden soll
// Rückgabe: Die n-te Wurzel der Zahl x
function n_te_Wurzel(x, n:real):real;
begin 
  Result := power(x, 1/n);
end;

:?:

Ich glaub ich geh' jetzt mal ins Bett ...

[0nk3lz]

Habs jetzt auch gerallt...

Sieht bei mir nun so aus...:

Delphi-Quellcode:

power(zahl1,1/zahl2)

...und funktioniert auch prima.

Danke Leute, bevor ich mehr blöde Fragen stelle, gehe ich jetzt pennen :)

[mkinzler]

Schön, das der Groschen noch gefallen ist. Na schieben wir es mal auf die vorgerückte Stunde :zwinker:

[omata]

Und noch ein paar Gedanken...

Ohne Math-Unit:

Delphi-Quellcode:

function nsqrt(x, n:real):real;
begin
  Result := exp(1 / n * ln(x));
end;

Ohne Math-Unit und mit der Möglichkeit die Genaugkeit der richtigen Stellen vorzugeben:

Delphi-Quellcode:

function nsqrt(x, n:real; g:real = 0.00000000000000001):real;
var s, o:real;
begin
  s:=x;
  repeat
    o:=x;
    x:=(((n-1) * x) + (s / exp((n-1) * ln(x)))) / n;
  until abs(o - x) <= g;
  Result:=x;
end;

[Aphton]

Zitat:

Zitat von mkinzler

Schön, das der Groschen noch gefallen ist. Na schieben wir es mal auf die vorgerückte Stunde :zwinker:

Hab ich etwas verpasst *Gähn* ??

Edit:
http://www.kreuznach-blog.de/b/2009/...hr-vorstellen/

...

[himitsu]

Zitat:

Zitat von Aphton

Hab ich etwas verpasst *Gähn* ??

Edit:
http://www.kreuznach-blog.de/b/2009/...hr-vorstellen/

schlaf noch ein paar Tage ... dann schon :mrgreen:

Zitat:

Der letzte Sonntag im März

[divBy0]

Zitat:

Zitat von Aphton

Zitat:

Zitat von mkinzler

Schön, das der Groschen noch gefallen ist. Na schieben wir es mal auf die vorgerückte Stunde :zwinker:

Hab ich etwas verpasst *Gähn* ??

Edit:
http://www.kreuznach-blog.de/b/2009/...hr-vorstellen/

...

Der Kreuznach-blog.de ? Einer aus der Nähe! :hi: