10 CLS 15 TOL = .000001 20 PRINT "** DIGITAL NEWTON SEARCH **" 30 PRINT "** ENTER TARGET Y, THEN 2 X/Y POINTS **" 40 PRINT "** PROGRAM GUIDES FROM THERE **" 50 PRINT "** MISENTRY OF DATA DOES NOT AFFECT ULTIMATE CONVERGENCE **" 60 PRINT 70 INPUT "ENTER TARGET Y VALUE ", STANDARD 72 PRINT 74 PRINT 80 GOTO 900 90 REM ** INPUT ROUTINE FOR X VALUE ** 100 INPUT "X VALUE ", CD 110 RETURN 120 REM ** INPUT ROUTINE FOR Y VALUE ** 130 INPUT "Y VALUE ", COMPARE 140 RETURN 900 FOR ILOOP = 1 TO 10000 910 PRINT "ENTER FIRST "; 920 GOSUB 100: REM ** GET X VALUE ** 925 PRINT "ENTER FIRST "; 930 GOSUB 130: REM ** GET Y VALUE ** 940 LSTCD = CD 950 PRINT 960 GOSUB 100: REM ** SECOND X VALUE ** 970 FOR IREP = 1 TO 100 980 LSTCOMP = COMPARE 990 GOSUB 120: REM ** NEXT Y VALUE ** 995 IF Y = -999 THEN 1150 1000 DELTA = STANDARD - COMPARE 1010 PCTERR = 100 * ABS(DELTA) / STANDARD 1020 PRINT "ERROR ="; DELTA; " % ERROR ="; PCTERR; 1025 IF PCTERR < TOL THEN 1155 1040 SLOPE = (CD - LSTCD) / (COMPARE - LSTCOMP) 1050 LSTCD = CD 1060 CD = CD + (STANDARD - COMPARE) * SLOPE 1065 PRINT " TRY X="; CD 1070 NEXT IREP 1150 NEXT ILOOP 1155 PRINT "CONVERGENCE REACHED AT X="; CD 1157 PRINT 1158 INPUT A$ 1159 IF A$ = "Q" OR A$ = "q" THEN 1170 1160 REM 1170 END