33 lines
746 B
Plaintext
33 lines
746 B
Plaintext
FUNCTION Nroot (n, a)
|
|
LET precision = .00001
|
|
|
|
LET x1 = a
|
|
LET x2 = a / n
|
|
DO WHILE ABS(x2 - x1) > precision
|
|
LET x1 = x2
|
|
LET x2 = ((n - 1) * x2 + a / x2 ^ (n - 1)) / n
|
|
LOOP
|
|
LET Nroot = x2
|
|
END FUNCTION
|
|
|
|
PRINT " n 5643 ^ 1 / n nth_root ^ n"
|
|
PRINT " ------------------------------------"
|
|
FOR n = 3 TO 11 STEP 2
|
|
LET tmp = Nroot(n, 5643)
|
|
PRINT USING "####": n;
|
|
PRINT " ";
|
|
PRINT USING "###.########": tmp;
|
|
PRINT " ";
|
|
PRINT USING "####.########": (tmp ^ n)
|
|
NEXT n
|
|
PRINT
|
|
FOR n = 25 TO 125 STEP 25
|
|
LET tmp = Nroot(n, 5643)
|
|
PRINT USING "####": n;
|
|
PRINT " ";
|
|
PRINT USING "###.########": tmp;
|
|
PRINT " ";
|
|
PRINT USING "####.########": (tmp ^ n)
|
|
NEXT n
|
|
END
|