10 REM MPK1 QUADRATISCHE GLEICHUNGEN
15 :
20 REM ITERATIONSVERFAHREN
25 :
30 REM WERTE NACH DER GLEICHUNG:
40 REM A*X^2+B*X+C=0
45 :
50 REM VORGABEN:
55 :
60 A=1: B=-20: C=51
70 GE=.01
75 :
80 REM BERECHNUNGEN STARTPUNKTE:
85 :
90 LX=0: LY=-B
100 RX=-B/A: RY=0
105 :
110 REM ITERATIONEN
115 :
120 REM VON LINKS (1.SCHNITTPUNKT)
125 :
130 I=1
140 Y=LY
145 :
150 X=C/Y: REM X-WERT HYPERBEL
160 Y=-A*X-B: REM Y-WERT GERADE
165 :
170 PRINT"ITERATION NR.";I
180 PRINT"X1=";X
190 PRINT
205 :
210 D=ABS(-A*X-B-C/X)
220 IF D<=GE THEN 240
225 :
230 I=I+1: GOTO150
235 :
240 PRINT"GEWUENSCHTE GENAUIGKEIT ERREICHT.":PRINT
245 :
250 REM VON RECHTS (2.SCHNITTPUNKT)
255 :
260 I=1
270 X=RX
275 :
280 Y=C/X: REM Y-WERT HYPERBEL
290 X=-(Y+B)/A: REM X-WERT GERADE
295 :
300 PRINT"ITERATION NR.";I
310 PRINT"X2=";X
320 PRINT
335 :
340 D=ABS(-A*X-B-C/X)
350 IF D<=GE THEN 370
355 :
360 I=I+1: GOTO 280
365 :
370 PRINT"GEWUENSCHTE GENAUIGKEIT ERREICHT."
380 END