グラフのこと

分類:[VB6以前]

今、悩んでいたもので、掲示板に書いてみました。
VB6.0で作っています。
グラフの勾配を求める算出方法がわかりません。

C言語で書かれたサンプルがあります。
data[10][1]にデータが入っているとすれば、(data[i][0]:x, data[i][1]:y)です。
aを勾配とします。
SigmaX2 = SigmaX = SigmaXY = Sigma1 = 0
for(i = 0; i< 10; i++){
SigmaX2 += data[i][0] * data[i][0];
SigmaX += data[i][0];
SigmaXY += data[i][0] * data[i][1];
SigmaY += data[i][1];
Sigma1 += 1;
}
a = (Sigma1 * SigmaXY - SigmaX * SigmaY) / (SigmaX2 * Sigma1 - SigmaX * SigmaX)


このサンプルをvb6.0で改良してグラフの勾配を求めたいです。
ぜひよろしくお願いします。