|
投稿者：しばっち
投稿日：2013年 5月19日(日)22時30分58秒
|
|
|
|
!' 線形逆補間法
PUBLIC NUMERIC T
INPUT PROMPT "X=": T
LET EPS=1E-8
LET X2= T
LET X1= 1
DO
LET X3 = X2 - (X2 - X1) / (F(X2) - F(X1)) * F(X2)
IF F(X1)*F(X3)<0 THEN LET X2=X3 ELSE LET X1=X3
PRINT X3
LOOP WHILE ABS(F(X3)) > EPS
PRINT X3;X3^3
END
EXTERNAL FUNCTION F(X)
LET F=X * X * X - T
END FUNCTION
|
|
|