第二讲 线性方程组的解
一、 非对称方程组求解
Ax=b
消元:
k=1,2……m-1
I=k+1…….m
J=k+1…….m
回代:
I=m-1,…..,2,1
程序:
Dim Const g_MaxNum As Long = 300
Dim A(g_MaxNum, g_MaxNum) as double
Dim B(g_MaxNum) as double
Dim c as double
Sub GS1(m)
for k=1 To m-1
for I=k+1 To m
C=a(I,k)/a(k,k)
评论0