|
投稿者：しばっち
投稿日：2013年 5月19日(日)22時31分31秒
|
|
|
|
!' はさみうち法(REGULA-FALSI法)
PUBLIC NUMERIC T
INPUT PROMPT "X=": T
LET A = 0
LET B = T
LET EPS=1E-8
DO WHILE ABS(A - B) > EPS
LET C = (A * F(B) - B * F(A)) / (F(B) - F(A))
IF F(C) < 0 THEN LET A = C ELSE LET B = C
PRINT C
LOOP
PRINT C;C*C
END
EXTERNAL FUNCTION F(X)
LET F=X*X-T
END FUNCTION
|
|
|