|
投稿者：しばっち
投稿日：2013年 5月19日(日)22時28分48秒
|
|
|
|
!' 相加平均代入法
PUBLIC NUMERIC T,N
LET N=2
INPUT PROMPT "X=": T
LET EPS=1E-8
LET X = T
DO WHILE ABS(F(X) - X) > EPS
LET X = (F(X) + X) / 2
PRINT X
LOOP
PRINT X;X^N
END
EXTERNAL FUNCTION F(X)
LET F=T/X^(N-1)
END FUNCTION
|
|
|