功能要求是
輸入5到6組實驗資料（x，y）
要擬合成二次函式y=ax^2+bx+c的形式
演算法最小二乘法最好
并能畫出圖形（坐標可變，不一定非要原點是0，0）
求高人出代碼相助
感激不盡
uj5u.com熱心網友回復：
http://www.baigoogledu.com/s.php?hl=zh-CN&q=%B6%FE%B4%CE%C7%FA%CF%DF%C4%E2%BA%CF+VB6%D4%B4%B4%FA%C2%EB
uj5u.com熱心網友回復：
參考 1 樓 zhao4zhong1 的回復: http://www.baigoogledu.com/s.php?hl=zh-CN&q=%B6%FE%B4%CE%C7%FA%CF%DF%C4%E2%BA%CF+VB6%D4%B4%B4%FA%C2%EB
能給決議下這個代碼嗎，我要輸入資料的應該做什么界面，對應哪個引數。。
Public Sub qxnh2() '最小二乘曲線擬合y=a+bx+cx^2
Dim b, c, m, n, a(1 To 10, 1 To 10) As Double
Dim i, j, k, d(10) As Double
'm = 14 '9 'm為資料個數
For i = 1 To 10 Step 1
d(i) = 0
Next i
For i = 1 To m Step 1
d(1) = d(1) + x(i)
a(1, 2) = d(1)
d(2) = d(2) + x(i) ^ 2
a(1, 3) = d(2)
d(3) = d(3) + y(i)
a(1, 4) = d(3)
d(4) = d(4) + x(i) ^ 3
a(2, 3) = d(4)
d(5) = d(5) + x(i) * y(i)
a(2, 4) = d(5)
d(6) = d(6) + x(i) ^ 4
a(3, 3) = d(6)
d(7) = d(7) + x(i) ^ 2 * y(i)
a(3, 4) = d(7)
Next i
a(1, 1) = m
a(2, 1) = a(1, 2)
a(2, 2) = a(1, 3)
a(3, 1) = a(1, 3)
a(3, 2) = a(2, 3)
n = 3 'n為行數
m = 4 'm為列數
For k = 1 To n - 1 Step 1
For i = k + 1 To n Step 1
For j = k + 1 To m Step 1
a(i, j) = a(i, j) - a(i, k) * a(k, j) / a(k, k)
Next j
Next i
Next k
z(n) = a(n, m) / a(n, n)
For k = n - 1 To 1 Step -1
z(k) = 0
For j = n To k + 1 Step -1
z(k) = z(k) + a(k, j) * z(j)
Next j
z(k) = (a(k, m) - z(k)) / a(k, k)
Next k
xs(1) = z(1): xs(2) = z(2): xs(3) = z(3): xs(4) = 0
End Sub
uj5u.com熱心網友回復：
參考 2 樓 angrycoco 的回復: Quote: 參考 1 樓 zhao4zhong1 的回復:
這代碼，不是學vb的人寫的吧
uj5u.com熱心網友回復：
參考 3 樓 zzyong00 的回復: Quote: 參考 2 樓 angrycoco 的回復: Quote: 參考 1 樓 zhao4zhong1 的回復:
能實作功能嗎。。。我需要輸入的資料對應什么引數啊，出來的又是什么呢
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/98232.html
標籤：VB基礎類
上一篇：【請教】 VB6.0實作右擊粘貼透明背景圖片怎么弄？
下一篇：vb6 中如何往tag屬性存物件和讀取這個物件
