@verb #8084:"avg" none none none rxdo #8084
@program #8084:"avg" none none none
rawdata = $cmd_utils:read_lines()
data = {}
for x in (rawdata)
  try
    data = {@data, {tofloat(x[1..index(x, " ")]), tofloat(x[index(x, " ") + 1..$ - 2])}}
  except (E_RANGE)
  endtry
endfor
slopes = {}
for index1 in [1..length(data)]
  for index2 in [index1..length(data)]
    if (index1 == index2)
      continue
    endif
    slopes = {@slopes, (data[index2][2] - data[index1][2]) / (data[index2][1] - data[index1][1])}
  endfor
endfor
m = $mu:sum(@slopes) / tofloat(length(slopes))
player:tell("Average slope: ", m)
{x, y} = data[$]
b = y - m * x
player:tell("Formula: y = (", m, ")(x) + (", b, ")")
"Last modified by Lao-Tzu (#8084) on Mon Jul  2 16:26:12 2001 MDT."
.