program obliczający pierwioastek n-tego stopnie metoda .. .

Witam wszystkich , i prosze o pomoc . Potrzebuje program w TP obliczający pierwiastek n-tego stopnia metodą Newtona- Robsona.

wzorek na to jeśli to komuś pomoze wygląda tak : x'= ((n-1)x+ a/x)/ n
x- prawdopodobieństo przybliżonego pierwiastka po wykonaniu wiecej niz 1 powtórzenia
n-liczba powtórzeń
a- liczba z której liczymy pierwiastek

chyba to tak jest z tego co pamiętam , ale ...

będe bardzo wdzięczyny za pomoc .

NIe wiem za bardzo jak by to zrobić :( wieć będe bardzo wdzięczny za pomoc .

pozdrawiam . ;-P

W dziale Gotowce->algorytmy umieściłem moduł matematyczny CASIO.ZIP. Ściągnij go sobie, jest tam tego więcej. Poniżej kod funkcji:

{ funkcje pierwiastkowe }
FUNCTION cube(x :Double) :Double;
{ Funkcja oblicza pierwiastek 3-stopnia }
{ dziedzina: 0 <= x <= maxfloat         }
BEGIN
 cube := exp(1/3*ln(x));
END;

FUNCTION root(y,x :Double) :Double;
{ Funkcja oblicza pierwiastek y-stopnia }
{ dziedzina:        0 <= x <= maxfloat  }
{            minfloat <= y <= maxfloat  }
BEGIN
 root:=exp(1/y*ln(x));
END;

Fajnie ale to jest w Delphi , a ja to potrzebuję w TP i to musi być metodą newtona -robsona tylko i wyłłacznie niestety. I w tym jest problem w ogóle o tym algorytmie jest strasznie mało materiałów na sieci .

wzorek na to jęli to komuś pomoze wygląda tak : x'= ((n-1)x+ a/x)/ n

A może coś więcej o tym wzorku? co to jest a, co to n, a co oznacza ' ??

juz poprawiłem post :D