1 REM Ins{nt av 2314
10 ; CHR$(12)"HALVERINGSMETODEN"
20 ; 
30 DEFFNR(X)=4*(X*X*X*X)-2.5*(X*X)-X+.5
40 DIM D(3)
50 ; "0,0=AVBRYT LETANDET"
60 ; "INTERVALLET L[GSTA,H\GSTA";
70 INPUT A,B
80 IF A<>B THEN 120
90 IF A=0 THEN 430
100 ; "INTERVALLGR[NSERNA KAN INTE VARA LIKA!"
110 GOTO 60
120 IF A<B THEN 150
130 ; "O.B.S L[GSTA F\RST!!!"
140 GOTO 60
150 A1=SGN(FNR(A))
160 B1=SGN(FNR(B))
170 IF A1*B1=0 THEN 360
180 IF A1*B1<0 THEN 280
190 FOR I%=1 TO 1000
200 X=A+RND(2)*(B-A)
210 X1=SGN(FNR(X))
220 IF X1=0 THEN 400
230 IF A1*X1<0 THEN 270
240 NEXT I%
250 ; "INGEN TECKENSKIFTNING I DETTA INTERVALL!"
260 GOTO 60
270 B=X
280 D(2+A1)=A
290 D(2-A1)=B
300 Y=(D(1)+D(3))/2
310 Y1=SGN(FNR(Y))
320 IF Y1=0 THEN 400
330 D(2+Y1)=Y
340 IF ABS(D(1)-D(3))/ABS(D(1)+ABS(D(3)))<5^(-6) THEN 400
350 GOTO 300
360 IF A1=0 THEN 390
370 Y=B1
380 GOTO 400
390 Y=A1
400 ; "ROTEN=";Y
410 ; 
420 GOTO 60
430 REM 
10030 END