关于一元线性回归方程的算法，请指点，在线等，急！！！！

Question

r1=[(x1*y1)+(x2*y2)+...+(xn*yn)]-[(x1+x2+..+xn)*(y1+y2+..yn)/n]
r2=[(x1*x1)+(x2*x2)+...+(xn*xn)]-{[(x1+x2+..+xn)*(x1+x2+..+xn)]/n}
r3=[(y1*y1)+(y2*y2)+...+(yn*yn)]-{[(y1+y2+..+yn)*(y1+y2+..+yn)]/n}r=r1/(r2*r3)由于打不出累加符号，故只能这么打，请告知算法，毕业设计急用！！万分感谢！！！！！！

Answer 1

dim x() as double
dim y() as doubledim r1 as double
dim r2 as double
dim r3 as doubledim sumx as double
dim sumy as double
dim sumxx as double
dim sumyy as double
dim sumxy as doubledim r1 as double
dim r2 as double
dim r3 as double
dim r as doubledim i as integerredim x(1 to n)
redim y(1 to n)sumx = 0
sumy = 0
sumxx = 0
sumyy = 0
sumxy = 0for i = 1 to n
  sumx = sumx + x(i)
  sumy = sumy + y(i)
  sumxx = sumxx + x(i) * x(i)
  sumyy = sumyy + y(i) * y(i)
  sumxy = sumxy + x(i) * y(i)
next ir1 = sumxy - (sumxx * sumyy) / n
r2 = sumxx - (sumx * sumx) / n
r3 = sumyy - (sumy * sumy) / nr = r1 / (r2 * r3)

Answer 2

dim x() as double
dim y() as doubledim r1 as double
dim r2 as double
dim r3 as doubledim sumx as double
dim sumy as double
dim sumxx as double
dim sumyy as double
dim sumxy as doubledim r1 as double
dim r2 as double
dim r3 as double
dim r as doubledim i as integerredim x(1 to n)
redim y(1 to n)sumx = 0
sumy = 0
sumxx = 0
sumyy = 0
sumxy = 0for i = 1 to n
  sumx = sumx + x(i)
  sumy = sumy + y(i)
  sumxx = sumxx + x(i) * x(i)
  sumyy = sumyy + y(i) * y(i)
  sumxy = sumxy + x(i) * y(i)
next ir1 = sumxy - (sumx * sumy) / n
r2 = sumxx - (sumx * sumx) / n
r3 = sumyy - (sumy * sumy) / nr = r1 / (r2 * r3)