@verb #7639:"points_on_an_equation points" none none none rxdo #4017
@program #7639:"points_on_an_equation points" none none none
{equation, min, max} = args
equation = $su:explode(equation, "y=")[$]
points = {}
for x in [min..max]
  y = $no_one:eval(strsub(equation, "x", tostr(x)))[2]
  points = setadd(points, {x, y})
endfor
return points
"Last modified by Patrick (#4017) on Fri Nov 23 14:27:35 2001 MST."
.