|
投稿者：しばっち
投稿日：2013年 5月19日(日)22時27分44秒
|
|
|
|
!' 原始反復法
PUBLIC NUMERIC T
INPUT PROMPT "X=":T
LET EPS=1E-8
LET X=T
LET H=1
DO
LET H=H/2
LOOP UNTIL ABS(H*F(X))<3
DO
LET X=X-H*F(X)
PRINT X
LOOP UNTIL ABS(F(X))<EPS
PRINT X;X*X
END
EXTERNAL FUNCTION F(X)
LET F=X*X-T
END FUNCTION
|
|
|