home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_91-07_1991_-_de_Side_B.d64 / Trdchart < prev   
Text File  |  2023-02-26  |  2KB  |  183 lines
  1. {$f3}/clr
  2. scnclr
  3. sign40
  4. zz$="$%ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 "
  5. zz$=zz$+"abcdefghijklmnopqrstuvwxyz"
  6. cursor15,0
  7. modus1
  8. print"Trendchart"
  9. modus0
  10. window 7,4,25,3
  11. q=0
  12. dountilq=5
  13. q=q+1
  14. line1,63,32-q,255,32-q
  15. line1,255+q,27,255+q,48
  16. loop
  17. q=0
  18. cursor8,5
  19. print"Datenanzahl (max.24):"
  20. :eingabe
  21. cursor29,5
  22. input2,"01234567890 ",n
  23. ifn<5orn>24: eingabe
  24. dime(n),p(n),q(n),t(n)
  25. window2,10,36,14
  26. sign40
  27. dountilq=5
  28. q=q+1
  29. line1,23,80-q,303,80-q
  30. line1,303+q,75,303+q,184
  31. loop
  32. q=0
  33. i=0
  34. k=0
  35. dountili=n
  36. i=i+1
  37. k=k+1
  38. ifi=13:label1
  39. :label3
  40. cursor11,10+k
  41. print"Wert Nr.";i;":"
  42. cursor24,10+k
  43. input4,"1234567890. ",e(i)
  44. loop
  45. i=0
  46. gotolabel2
  47. :label1
  48. j=0
  49. dountilj=12
  50. j=j+1
  51. cursor11,10+j
  52. print"                  "
  53. loop
  54. k=k-12
  55. j=0
  56. gotolabel3
  57. :label2
  58. j=0
  59. k=0
  60. i=0
  61. window1,15,38,3
  62. dountili=5
  63. i=i+1
  64. line1,15,114+i,311,114+i
  65. line1,310+i,115,310+i,137
  66. loop
  67. i=0
  68. cursor2,16
  69. print"Leg:"
  70. cursor6,16
  71. input32,zz$,te$
  72. window8,14,25,5
  73. dountili=5
  74. i=i+1
  75. line1,71,112-i,263,112-i
  76. line1,263+i,107,263+i,144
  77. loop
  78. cursor10,15
  79. print"Hoechster Skalenwert:"
  80. :korrektur
  81. cursor17,17
  82. input4,"0123456789. ",m
  83. ifm<10: korrektur
  84. window1,1,1,1
  85. window
  86. i=0
  87. dountili=n
  88. i=i+1
  89. p(i)=int(180-e(i)/m*150)
  90. loop
  91. i=1
  92. j=0
  93. dountili=n-1
  94. i=i+1
  95. j=j+1
  96. t(j)=int((e(i-1)+e(i)+e(i+1))/3)
  97. q(j)=int(180-t(j)/m*150)
  98. loop
  99. i=0
  100. scnclr
  101. cursor15,0
  102. modus1
  103. print"Trendchart"
  104. modus0
  105. line1,35,180,35,30
  106. dountili=6
  107. u=180-i*30
  108. line1,33,u,37,u
  109. i=i+1
  110. loop
  111. i=0
  112. dountili=6
  113. we=int(m/10*i*2)
  114. w1$=str$(we)
  115. we$=mid$(w1$,2,4)
  116. ifwe<1000
  117. begin
  118. l=1
  119. else
  120. l=0
  121. end
  122. po=int((180-i*30)/8)
  123. cursorl,po
  124. printwe$
  125. i=i+1
  126. loop
  127. i=0
  128. dountili=n
  129. i=i+1
  130. u=27+12*i
  131. line1,35,180,u,180
  132. loop
  133. i=0
  134. dountili=n
  135. i=i+1
  136. u=27+12*i
  137. line1,u,179,u,181
  138. loop
  139. i=0
  140. dountili=n
  141. i=i+1
  142. u=27+12*i
  143. v=27+u
  144. ife(i)<1:label4
  145. box1,u-2,p(i)-2,u+2,p(i)+2
  146. :label5
  147. loop
  148. gotolabel6
  149. :label4
  150. box1,u-2,178,u+2,182
  151. gotolabel5
  152. :label6
  153. i=0
  154. j=0
  155. j=1
  156. dountilj=n-2
  157. j=j+1
  158. u=27+12*j
  159. v=12+u
  160. line1,u,q(j-1),v,q(j)
  161. loop
  162. cursor6,1
  163. printte$
  164. box1,49,193,54,198
  165. cursor7,24
  166. print"=Realwerte"
  167. line1,175,198,180,193
  168. line1,174,198,179,193
  169. line1,180,193,185,198
  170. line1,179,193,184,198
  171. line1,185,198,190,193
  172. line1,184,198,189,193
  173. cursor24,24
  174. print"=Trendlinie"
  175. cursor4,23
  176. input36,zz$,a$
  177. cursor4,23
  178. printa$
  179. do
  180. loop
  181. end.
  182.  
  183.  
  184. z