1.23118572377867
Is the highest precision I could get with the apparatus available to me.
Is the highest precision I could get with the apparatus available to me.
DO 101 I = 0, 100
GUESS = (TOP+BOT)/2.0
RES = AFUNKP(GUESS)
IF(RES.LT.0.0) BOT=GUESS
IF(RES.GE.0.0) TOP=GUESS
PRINT *, GUESS, RES, BOT, TOP
101 CONTINUE
Comment