home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9003a.d64 / iteration (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  880b  |  58 lines
  1. 10 REM MPK1 QUADRATISCHE GLEICHUNGEN
  2. 15 :
  3. 20 REM ITERATIONSVERFAHREN
  4. 25 :
  5. 30 REM WERTE NACH DER GLEICHUNG:
  6. 40 REM A*X^2+B*X+C=0
  7. 45 :
  8. 50 REM VORGABEN:
  9. 55 :
  10. 60 A=1: B=-20: C=51
  11. 70 GE=.01
  12. 75 :
  13. 80 REM BERECHNUNGEN STARTPUNKTE:
  14. 85 :
  15. 90 LX=0: LY=-B
  16. 100 RX=-B/A: RY=0
  17. 105 :
  18. 110 REM ITERATIONEN
  19. 115 :
  20. 120 REM VON LINKS (1.SCHNITTPUNKT)
  21. 125 :
  22. 130 I=1
  23. 140 Y=LY
  24. 145 :
  25. 150 X=C/Y: REM X-WERT HYPERBEL
  26. 160 Y=-A*X-B: REM Y-WERT GERADE
  27. 165 :
  28. 170 PRINT"ITERATION NR.";I
  29. 180 PRINT"X1=";X
  30. 190 PRINT
  31. 205 :
  32. 210 D=ABS(-A*X-B-C/X)
  33. 220 IF D<=GE THEN 240
  34. 225 :
  35. 230 I=I+1: GOTO150
  36. 235 :
  37. 240 PRINT"GEWUENSCHTE GENAUIGKEIT ERREICHT.":PRINT
  38. 245 :
  39. 250 REM VON RECHTS (2.SCHNITTPUNKT)
  40. 255 :
  41. 260 I=1
  42. 270 X=RX
  43. 275 :
  44. 280 Y=C/X: REM Y-WERT HYPERBEL
  45. 290 X=-(Y+B)/A: REM X-WERT GERADE
  46. 295 :
  47. 300 PRINT"ITERATION NR.";I
  48. 310 PRINT"X2=";X
  49. 320 PRINT
  50. 335 :
  51. 340 D=ABS(-A*X-B-C/X)
  52. 350 IF D<=GE THEN 370
  53. 355 :
  54. 360 I=I+1: GOTO 280
  55. 365 :
  56. 370 PRINT"GEWUENSCHTE GENAUIGKEIT ERREICHT."
  57. 380 END
  58.