📄 modqsm.bas
字号:
Next
For i = 1 To 3
SX(8, 1) = SX(8, 1) + Xi(i) ^ 2 * Yi(i)
SX(8, 2) = SX(8, 2) + Xi(i) * Xi(i) ^ 2 * Yi(i)
SX(8, 3) = SX(8, 3) + Yi(i) * Xi(i) ^ 2 * Yi(i)
SX(8, 4) = SX(8, 4) + Xi(i) ^ 2 * Xi(i) ^ 2 * Yi(i)
SX(8, 5) = SX(8, 5) + Xi(i) * Yi(i) * Xi(i) ^ 2 * Yi(i)
SX(8, 6) = SX(8, 6) + Yi(i) ^ 2 * Xi(i) ^ 2 * Yi(i)
SX(8, 7) = SX(8, 7) + Xi(i) ^ 3 * Xi(i) ^ 2 * Yi(i)
SX(8, 8) = SX(8, 8) + Xi(i) ^ 2 * Yi(i) * Xi(i) ^ 2 * Yi(i)
SX(8, 9) = SX(8, 9) + Xi(i) * Yi(i) ^ 2 * Xi(i) ^ 2 * Yi(i)
SX(8, 10) = SX(8, 10) + Yi(i) ^ 3 * Xi(i) ^ 2 * Yi(i)
SX(8, 11) = SX(8, 11) + Xi(i) ^ 4 * Xi(i) ^ 2 * Yi(i)
SX(8, 12) = SX(8, 12) + Xi(i) ^ 3 * Yi(i) * Xi(i) ^ 2 * Yi(i)
SX(8, 13) = SX(8, 13) + Xi(i) ^ 2 * Yi(i) ^ 2 * Xi(i) ^ 2 * Yi(i)
SX(8, 14) = SX(8, 14) + Xi(i) * Yi(i) ^ 3 * Xi(i) ^ 2 * Yi(i)
SX(8, 15) = SX(8, 15) + Yi(i) ^ 4 * Xi(i) ^ 2 * Yi(i)
y(8) = y(8) + Zi(i) * Xi(i) ^ 2 * Yi(i)
Next
For i = 1 To 3
SX(9, 1) = SX(9, 1) + Xi(i) * Yi(i) ^ 2
SX(9, 2) = SX(9, 2) + Xi(i) * Xi(i) * Yi(i) ^ 2
SX(9, 3) = SX(9, 3) + Yi(i) * Xi(i) * Yi(i) ^ 2
SX(9, 4) = SX(9, 4) + Xi(i) ^ 2 * Xi(i) * Yi(i) ^ 2
SX(9, 5) = SX(9, 5) + Xi(i) * Yi(i) * Xi(i) * Yi(i) ^ 2
SX(9, 6) = SX(9, 6) + Yi(i) ^ 2 * Xi(i) * Yi(i) ^ 2
SX(9, 7) = SX(9, 7) + Xi(i) ^ 3 * Xi(i) * Yi(i) ^ 2
SX(9, 8) = SX(9, 8) + Xi(i) ^ 2 * Yi(i) * Xi(i) * Yi(i) ^ 2
SX(9, 9) = SX(9, 9) + Xi(i) * Yi(i) ^ 2 * Xi(i) * Yi(i) ^ 2
SX(9, 10) = SX(9, 10) + Yi(i) ^ 3 * Xi(i) * Yi(i) ^ 2
SX(9, 11) = SX(9, 11) + Xi(i) ^ 4 * Xi(i) * Yi(i) ^ 2
SX(9, 12) = SX(9, 12) + Xi(i) ^ 3 * Yi(i) * Xi(i) * Yi(i) ^ 2
SX(9, 13) = SX(9, 13) + Xi(i) ^ 2 * Yi(i) ^ 2 * Xi(i) * Yi(i) ^ 2
SX(9, 14) = SX(9, 14) + Xi(i) * Yi(i) ^ 3 * Xi(i) * Yi(i) ^ 2
SX(9, 15) = SX(9, 15) + Yi(i) ^ 4 * Xi(i) * Yi(i) ^ 2
y(9) = y(9) + Zi(i) * Xi(i) * Yi(i) ^ 2
Next
For i = 1 To 3
SX(10, 1) = SX(10, 1) + Yi(i) ^ 3
SX(10, 2) = SX(10, 2) + Xi(i) * Yi(i) ^ 3
SX(10, 3) = SX(10, 3) + Yi(i) * Yi(i) ^ 3
SX(10, 4) = SX(10, 4) + Xi(i) ^ 2 * Yi(i) ^ 3
SX(10, 5) = SX(10, 5) + Xi(i) * Yi(i) * Yi(i) ^ 3
SX(10, 6) = SX(10, 6) + Yi(i) ^ 2 * Yi(i) ^ 3
SX(10, 7) = SX(10, 7) + Xi(i) ^ 3 * Yi(i) ^ 3
SX(10, 8) = SX(10, 8) + Xi(i) ^ 2 * Yi(i) * Yi(i) ^ 3
SX(10, 9) = SX(10, 9) + Xi(i) * Yi(i) ^ 2 * Yi(i) ^ 3
SX(10, 10) = SX(10, 10) + Yi(i) ^ 3 * Yi(i) ^ 3
SX(10, 11) = SX(10, 11) + Xi(i) ^ 4 * Yi(i) ^ 3
SX(10, 12) = SX(10, 12) + Xi(i) ^ 3 * Yi(i) * Yi(i) ^ 3
SX(10, 13) = SX(10, 13) + Xi(i) ^ 2 * Yi(i) ^ 2 * Yi(i) ^ 3
SX(10, 14) = SX(10, 14) + Xi(i) * Yi(i) ^ 3 * Yi(i) ^ 3
SX(10, 15) = SX(10, 15) + Yi(i) ^ 4 * Yi(i) ^ 3
y(10) = y(10) + Zi(i) * Yi(i) ^ 3
Next
For i = 1 To 3
SX(11, 1) = SX(11, 1) + Xi(i) ^ 4
SX(11, 2) = SX(11, 2) + Xi(i) * Xi(i) ^ 4
SX(11, 3) = SX(11, 3) + Yi(i) * Xi(i) ^ 4
SX(11, 4) = SX(11, 4) + Xi(i) ^ 2 * Xi(i) ^ 4
SX(11, 5) = SX(11, 5) + Xi(i) * Yi(i) * Xi(i) ^ 4
SX(11, 6) = SX(11, 6) + Yi(i) ^ 2 * Xi(i) ^ 4
SX(11, 7) = SX(11, 7) + Xi(i) ^ 3 * Xi(i) ^ 4
SX(11, 8) = SX(11, 8) + Xi(i) ^ 2 * Yi(i) * Xi(i) ^ 4
SX(11, 9) = SX(11, 9) + Xi(i) * Yi(i) ^ 2 * Xi(i) ^ 4
SX(11, 10) = SX(11, 10) + Yi(i) ^ 3 * Xi(i) ^ 4
SX(11, 11) = SX(11, 11) + Xi(i) ^ 4 * Xi(i) ^ 4
SX(11, 12) = SX(11, 12) + Xi(i) ^ 3 * Yi(i) * Xi(i) ^ 4
SX(11, 13) = SX(11, 13) + Xi(i) ^ 2 * Yi(i) ^ 2 * Xi(i) ^ 4
SX(11, 14) = SX(11, 14) + Xi(i) * Yi(i) ^ 3 * Xi(i) ^ 4
SX(11, 15) = SX(11, 15) + Yi(i) ^ 4 * Xi(i) ^ 4
y(11) = y(11) + Zi(i) * Xi(i) ^ 4
Next
For i = 1 To 3
SX(12, 1) = SX(12, 1) + Xi(i) ^ 3 * Yi(i)
SX(12, 2) = SX(12, 2) + Xi(i) * Xi(i) ^ 3 * Yi(i)
SX(12, 3) = SX(12, 3) + Yi(i) * Xi(i) ^ 3 * Yi(i)
SX(12, 4) = SX(12, 4) + Xi(i) ^ 2 * Xi(i) ^ 3 * Yi(i)
SX(12, 5) = SX(12, 5) + Xi(i) * Yi(i) * Xi(i) ^ 3 * Yi(i)
SX(12, 6) = SX(12, 6) + Yi(i) ^ 2 * Xi(i) ^ 3 * Yi(i)
SX(12, 7) = SX(12, 7) + Xi(i) ^ 3 * Xi(i) ^ 3 * Yi(i)
SX(12, 8) = SX(12, 8) + Xi(i) ^ 2 * Yi(i) * Xi(i) ^ 3 * Yi(i)
SX(12, 9) = SX(12, 9) + Xi(i) * Yi(i) ^ 2 * Xi(i) ^ 3 * Yi(i)
SX(12, 10) = SX(12, 10) + Yi(i) ^ 3 * Xi(i) ^ 3 * Yi(i)
SX(12, 11) = SX(12, 11) + Xi(i) ^ 4 * Xi(i) ^ 3 * Yi(i)
SX(12, 12) = SX(12, 12) + Xi(i) ^ 3 * Yi(i) * Xi(i) ^ 3 * Yi(i)
SX(12, 13) = SX(12, 13) + Xi(i) ^ 2 * Yi(i) ^ 2 * Xi(i) ^ 3 * Yi(i)
SX(12, 14) = SX(12, 14) + Xi(i) * Yi(i) ^ 3 * Xi(i) ^ 3 * Yi(i)
SX(12, 15) = SX(12, 15) + Yi(i) ^ 4 * Xi(i) ^ 3 * Yi(i)
y(12) = y(12) + Zi(i) * Xi(i) ^ 3 * Yi(i)
Next
For i = 1 To 3
SX(13, 1) = SX(13, 1) + Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 2) = SX(13, 2) + Xi(i) * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 3) = SX(13, 3) + Yi(i) * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 4) = SX(13, 4) + Xi(i) ^ 2 * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 5) = SX(13, 5) + Xi(i) * Yi(i) * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 6) = SX(13, 6) + Yi(i) ^ 2 * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 7) = SX(13, 7) + Xi(i) ^ 3 * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 8) = SX(13, 8) + Xi(i) ^ 2 * Yi(i) * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 9) = SX(13, 9) + Xi(i) * Yi(i) ^ 2 * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 10) = SX(13, 10) + Yi(i) ^ 3 * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 11) = SX(13, 11) + Xi(i) ^ 4 * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 12) = SX(13, 12) + Xi(i) ^ 3 * Yi(i) * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 13) = SX(13, 13) + Xi(i) ^ 2 * Yi(i) ^ 2 * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 14) = SX(13, 14) + Xi(i) * Yi(i) ^ 3 * Xi(i) ^ 2 * Yi(i) ^ 2
SX(13, 15) = SX(13, 15) + Yi(i) ^ 4 * Xi(i) ^ 2 * Yi(i) ^ 2
y(13) = y(13) + Zi(i) * Xi(i) ^ 2 * Yi(i) ^ 2
Next
For i = 1 To 3
SX(14, 1) = SX(14, 1) + Xi(i) * Yi(i) ^ 3
SX(14, 2) = SX(14, 2) + Xi(i) * Xi(i) * Yi(i) ^ 3
SX(14, 3) = SX(14, 3) + Yi(i) * Xi(i) * Yi(i) ^ 3
SX(14, 4) = SX(14, 4) + Xi(i) ^ 2 * Xi(i) * Yi(i) ^ 3
SX(14, 5) = SX(14, 5) + Xi(i) * Yi(i) * Xi(i) * Yi(i) ^ 3
SX(14, 6) = SX(14, 6) + Yi(i) ^ 2 * Xi(i) * Yi(i) ^ 3
SX(14, 7) = SX(14, 7) + Xi(i) ^ 3 * Xi(i) * Yi(i) ^ 3
SX(14, 8) = SX(14, 8) + Xi(i) ^ 2 * Yi(i) * Xi(i) * Yi(i) ^ 3
SX(14, 9) = SX(14, 9) + Xi(i) * Yi(i) ^ 2 * Xi(i) * Yi(i) ^ 3
SX(14, 10) = SX(14, 10) + Yi(i) ^ 3 * Xi(i) * Yi(i) ^ 3
SX(14, 11) = SX(14, 11) + Xi(i) ^ 4 * Xi(i) * Yi(i) ^ 3
SX(14, 12) = SX(14, 12) + Xi(i) ^ 3 * Yi(i) * Xi(i) * Yi(i) ^ 3
SX(14, 13) = SX(14, 13) + Xi(i) ^ 2 * Yi(i) ^ 2 * Xi(i) * Yi(i) ^ 3
SX(14, 14) = SX(14, 14) + Xi(i) * Yi(i) ^ 3 * Xi(i) * Yi(i) ^ 3
SX(14, 15) = SX(14, 15) + Yi(i) ^ 4 * Xi(i) * Yi(i) ^ 3
y(14) = y(14) + Zi(i) * Xi(i) * Yi(i) ^ 3
Next
For i = 1 To 3
SX(15, 1) = SX(15, 1) + Yi(i) ^ 4
SX(15, 2) = SX(15, 2) + Xi(i) * Yi(i) ^ 4
SX(15, 3) = SX(15, 3) + Yi(i) * Yi(i) ^ 4
SX(15, 4) = SX(15, 4) + Xi(i) ^ 2 * Yi(i) ^ 4
SX(15, 5) = SX(15, 5) + Xi(i) * Yi(i) * Yi(i) ^ 4
SX(15, 6) = SX(15, 6) + Yi(i) ^ 2 * Yi(i) ^ 4
SX(15, 7) = SX(15, 7) + Xi(i) ^ 3 * Yi(i) ^ 4
SX(15, 8) = SX(15, 8) + Xi(i) ^ 2 * Yi(i) * Yi(i) ^ 4
SX(15, 9) = SX(15, 9) + Xi(i) * Yi(i) ^ 2 * Yi(i) ^ 4
SX(15, 10) = SX(15, 10) + Yi(i) ^ 3 * Yi(i) ^ 4
SX(15, 11) = SX(15, 11) + Xi(i) ^ 4 * Yi(i) ^ 4
SX(15, 12) = SX(15, 12) + Xi(i) ^ 3 * Yi(i) * Yi(i) ^ 4
SX(15, 13) = SX(15, 13) + Xi(i) ^ 2 * Yi(i) ^ 2 * Yi(i) ^ 4
SX(15, 14) = SX(15, 14) + Xi(i) * Yi(i) ^ 3 * Yi(i) ^ 4
SX(15, 15) = SX(15, 15) + Yi(i) ^ 4 * Yi(i) ^ 4
y(15) = y(15) + Zi(i) * Yi(i) ^ 4
Next
End Sub
'数据输出
Public Sub OutSJ()
Dim i As Integer
Dim j As Integer
Open "E:\qushimian\xishu.txt" For Output As #1
For i = 1 To 3
Print #1, "xi yi zi"
Print #1, Xi(i); Yi(i); Zi(i)
Print #1, "--------------------"
Next
Print #1,
Print #1,
Print #1, "--------------------------------------------"
Print #1, " Y "
For i = 1 To 15
Print #1, y(i)
Print #1, "--------------------"
Next
Close #1
End Sub
'趋势值
Public Function ZX(ByVal a As Double, ByVal b As Double) As Double
ZX = y(1) + y(2) * a + y(3) * b + y(4) * a ^ 2 + y(5) * a * b + y(6) * b ^ 2 + y(7) * a ^ 3 + y(8) * a ^ 2 * b + y(9) * a * b ^ 2 + y(10) * b ^ 3 + y(11) * a ^ 4 + y(12) * a ^ 3 * b + y(13) * a ^ 2 * b ^ 2 + y(14) * a * b ^ 3 + y(15) * b ^ 4
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -