Method of False Position

 投稿者：しばっち  投稿日：2015年10月28日(水)22時02分41秒
 
!'Method of False Position
INPUT T
LET X2=1
LET X1=T
DO
   LET X=X1-(X2-X1)/(F(X2)-F(X1))*F(X1)
   LET X2=X1
   LET X1=X
   PRINT X
LOOP UNTIL ABS(F(X))<1E-13
PRINT X;X^3

FUNCTION F(X)
   LET F=X^3-T
END FUNCTION
END
 		 

戻る