沙巴体育外围app

文档库

最新最全的文档下载
当前位置:文档库 > (VB程序)高斯-赛德尔迭代法解线性方程组

(VB程序)高斯-赛德尔迭代法解线性方程组

沙巴体育外围app高斯-赛德尔迭代法解线性方程组VB程序

沙巴体育外围app参考教材:《数值分析》数值分析(李庆扬、王能超、易大义)

1、窗体文件(fram1.frm)

Option Explicit

Option Base 1

沙巴体育外围appPrivate Sub Command1_Click()

Dim i%, j%, rows%, cols%

沙巴体育外围appDim A!(), b!(), root

Dim coef_arr, import_filename$

import_filename = get_import_filename

沙巴体育外围appIf import_filename = "" Then Exit Sub 'MsgBox "未选择路径":

Call importdata(coef_arr, import_filename)

rows = UBound(coef_arr, 1)

cols = UBound(coef_arr, 2) - 1

ReDim A(rows, cols), b(rows)

For i = 1 To rows

沙巴体育外围appFor j = 1 To cols

沙巴体育外围appA(i, j) = coef_arr(i, j) '矩阵A

Next j

b(i) = coef_arr(i, cols + 1) '最后一列为矩阵b

Next i

Call Gauss_Seidel(root, A, b)

For i = 1 To UBound(root)

Text1.Text = Text1 & root(i) & vbCrLf

Next i

End Sub

沙巴体育外围app2、模块文件(model1.bas)

沙巴体育外围appOption Explicit

沙巴体育外围app'********************************************************************* '获取需要打开的文件路径

'输入:无

'输出:需要打开的文件路径

沙巴体育外围app'********************************************************************* Function get_import_filename$()

On Error GoTo ErrHandler 'CancelError 为True。

沙巴体育外围apphttp://chaletgabbro.com/doc/3420de69001ca300a6c30c22590102020740f245.htmlmonDialog1.InitDir = App.Path

沙巴体育外围apphttp://chaletgabbro.com/doc/3420de69001ca300a6c30c22590102020740f245.htmlmonDialog1.Filter = "文本文件(*.txt])|*.txt" '设置过滤器。

http://chaletgabbro.com/doc/3420de69001ca300a6c30c22590102020740f245.htmlmonDialog1.ShowOpen '显示“打开”对话框。

get_import_filename = http://chaletgabbro.com/doc/3420de69001ca300a6c30c22590102020740f245.htmlmonDialog1.filename '调用打开文件的过程