home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 February / 64er_Magazin_90-02_1990_Markt__Technik_de_Side_A.d64 / iteration (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.