home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / abweichungen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  77 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *   abweichungsbalkendiagramm   *
  4. 4 rem *        mittels hires-3        *
  5. 5 rem *                               *
  6. 6 rem *  heimo ponnath  hamburg 1985  *
  7. 7 rem *                               *
  8. 8 rem * hires-3 muss im speicher sein *
  9. 9 rem *********************************
  10. 10 rem
  11. 15 rem ++++++++ initialisieren ++++++++
  12. 20 rem
  13. 25 poke52,112:poke56,112:sys37498:goto65
  14. 30 rem
  15. 35 rem ++++++ up cursor setzen ++++++++
  16. 40 rem
  17. 45 poke211,sp:poke214,zl:sys58640:return
  18. 50 rem
  19. 55 rem +++++    eingabeteil     +++++++
  20. 60 rem
  21. 65 printchr$(147):sys34647:poke646,14:zl=10:sp=5:gosub45
  22. 70 print"balkendiagramm welches den":zl=12:gosub45
  23. 75 print"mittelwert und die abweichungen":zl=14:gosub45
  24. 80 print"grafisch darstellt.":pau,5:printchr$(147):zl=10:sp=7:gosub45
  25. 85 print"wieviele werte (max=50) ";:inputn
  26. 90 dimw(n),a(n):printchr$(147)
  27. 95 ma=0:mi=0
  28. 100 fori=1ton:print"wert nummer "i"=";:inputw(i):s=s+w(i):nexti
  29. 105 rem
  30. 110 rem + berechnung der abweichungen +
  31. 120 rem
  32. 125 m=s/n:fori=1ton:a(i)=w(i)-m:ifa(i)>mathenma=a(i)
  33. 130 ifa(i)<mithenmi=a(i)
  34. 135 nexti
  35. 140 rem
  36. 145 rem ++++ bildschirmaufteilung +++++
  37. 150 rem
  38. 155 q=ma+abs(mi):q1=.06*q:q2=.2*q:m1=ma+q1:m2=mi-q2
  39. 160 dx=int(320/n):trs,-5,319,m2,m1
  40. 165 rem
  41. 170 rem ++++++     zeichnen      ++++++
  42. 175 rem
  43. 180 hfl,14,6:tln,-1,0,319,0:sys35256:x=0
  44. 185 fori=1ton:ifa(i)>0then:tre,x,a(i),x+dx,0:goto195
  45. 190 tbk,x,0,x+dx,a(i)
  46. 195 x=x+dx:nexti
  47. 200 zl=0:sp=5:gosub45:print"abweichungs-balkendiagramm"
  48. 205 zl=21:sp=1:gosub45:print"mittelwert = "m:zl=22:gosub45
  49. 210 print"+ max "ma,"- max "mi
  50. 215 zl=23:gosub45:print"e = ende","n = neu","d = drucken"
  51. 220 rem
  52. 225 rem +++++ menue-auswertung ++++++++
  53. 230 rem
  54. 235 geta$:ifa$<>"e"anda$<>"n"anda$<>"d"then235
  55. 240 rem
  56. 245 rem ----- option neue werte -------
  57. 250 rem
  58. 255 ifa$="n"thensys35377:hof:run
  59. 260 rem
  60. 265 rem ----- option drucken ----------
  61. 270 rem
  62. 275 ifa$="d"thengosub310:hof:printchr$(147):goto215
  63. 280 rem
  64. 285 rem ----- option programmende -----
  65. 290 rem
  66. 295 sys35377:hof:end
  67. 300 rem
  68. 305 rem ----- option  drucken up ------
  69. 310 rem
  70. 315 sys35377:open1,4,10:print#1:close1:open1,4
  71. 320 print#1,"abweichungs-balkendiagramm":sys34865
  72. 325 print#1,"groesste ueberschreitung = "ma
  73. 330 print#1,"groesste unterschreitung = "mi
  74. 335 print#1,"mittelwert = "m:print#1:close1:return
  75. 340 rem
  76. 345 rem *******  das  wars !  *********
  77.