home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9002a.d64 / iteration (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  703b  |  40 lines
  1. 10 REM MPK1 LINEARE GLEICHUNGSSYSTEME
  2. 15 :
  3. 20 REM ITERATIONSVERFAHREN
  4. 25 :
  5. 30 REM WERTE NACH DEN GLEICHUNGEN:
  6. 40 REM A1*X+B1*Y=C1 UND A2*X+B2*Y=C2
  7. 50 REM Y0 - STARTWERT
  8. 60 REM GE - GENAUIGKEIT
  9. 65 :
  10. 70 REM VORGABEN:
  11. 75 :
  12. 80 A1=60:B1=-1:C1=0
  13. 90 A2=30:B2=-1:C2=-30
  14. 100 Y0=30: GE=0.01
  15. 105 :
  16. 110 REM ANFANGSWERT/STARTWERT:
  17. 115 :
  18. 120 Y=Y0
  19. 130 I=1     :REM ZAEHLER (ITERATIONNR.)
  20. 135 :
  21. 140 REM WIEDERHOLUNGSANWEISUNG:
  22. 145 :
  23. 150 X=(C1-B1*Y)/A1
  24. 160 Y=(C2-A2*X)/B2
  25. 165 :
  26. 170 PRINT "ANNAEHERUNG NR.";I
  27. 180 PRINT "X=";X
  28. 190 PRINT "Y=";Y
  29. 200 PRINT
  30. 205 :
  31. 210 REM ABBRUCHBEDINGUNG:
  32. 220 D=ABS((C1-A1*X)/B1-(C2-A2*X)/B2)
  33. 230 IF D<=GE THEN 260
  34. 235 :
  35. 240 I=I+1
  36. 250 GOTO 150 :REM NAECHSTE ANNAEHERUNG
  37. 255 :
  38. 260 PRINT "GEWUENSCHTE GENAUIGKEIT ERREICHT."
  39. 270 END
  40.