10 PRINT
20 PRINT "MAXIMIZES THE FUNCTION F OVER THE INTERVAL [A,B]"
30 PRINT " BY METHOD OF TRISECTION"
40 PRINT "INSERT FUNCTION AS STATEMENT 60 IN THE FORM:"
50 PRINT " 60 DEF FNF(X) = ..."
60 DEF FNF(X) = 4*(10-X)*(5-X)*X
70 PRINT
80 PRINT "INPUT A,B,TOLERANCE"
90 INPUT A,B,T
100 LET N=0 : A1=A : B1=B
110 L=B1-A1
120 IF L<=T   GO TO 300
130 X1=A1+L/3 : F1=FNF(X1) : X2=B1-L/3 : F2=FNF(X2) : N=N+2
140 IF F1<F2   GO TO 250
160 B1=X2 : GO TO 110
250 A1=X1 : GO TO 110
300 X1=(A1+B1)/2 : F1=FNF(X1)
310 PRINT
320 PRINT "MAXIMUM IS",F1," AT",X1
330 PRINT "NO. OF FUNCTION EVALUATIONS IS",N
340 GO TO 70
350 END