Intervallschachtelung - Listing

Dokumentation ansehen
Programmspeicher-Image laden

10	"L" CLEAR :WAIT 0
20	CLS :PRINT "Y1=f1(X) in Zeile 80":PRINT "Y2=f2(X) in Zeile 90 ?"
30	PRINT "Testintervall ";CHR$ 91;"a,b";CHR$ 93:INPUT "a = ";A,"b = ";B
40	INPUT "Endgenauigkeit : ";D
50	CLS :PRINT "":PRINT " *** BUSY ***"
60	I=19:C=(A+B)/2
70	FOR X=A TO B STEP (B-A)/2
80	Y1=LN X
90	Y2=1/X
100	A(I)=SGN (Y1-Y2)
110	I=I+1
120	NEXT X
130	IF S=T LET A=C
140	IF U=T LET B=C
150	IF B-A>D THEN 60
160	IF A=B PRINT "Intervall falsch":GOTO 10
170	IF B<1E10 AND A>1E-10 LET A=INT (A/D+.5)*D:B=INT (B/D+.5)*D
180	CLS :PRINT "X liegt zwischen":PRINT STR$ A:PRINT " und":WAIT :PRINT STR$ B
190	END

Dokumentation ansehen
Programmspeicher-Image laden