原始反復法

 投稿者:しばっち  投稿日: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
 

戻る