在k次消元的基礎上加了換列操作,其他都一樣。
主要部分換行換列;
public double findikjk(int k, ref int ik, ref int jk)}}
return max;
}public void exchangi(int k,int ik)
}else return;
}public void exchangj(int k,int jk)
int r = z[k];
z[k] = z[jk];
z[jk] = r;
console.writeline("---第列和第列交換----", k, jk);
}else return;
}
完整部分:
using system;
using system.collections.generic;
using system.linq;
using system.text;
using system.threading.tasks;
namespace guass3
set
}private double[,] a;
public double[,] a
set
}private double x;
public double x
set
}//建構函式
public void input()}}
public double findikjk(int k, ref int ik, ref int jk)}}
return max;
}public void exchangi(int k,int ik)
}else return;
}public void exchangj(int k,int jk)
int r = z[k];
z[k] = z[jk];
z[jk] = r;
console.writeline("---第列和第列交換----", k, jk);
}else return;
}public void xiaoyuan3()
x[z[i]] = (a[i, n] - sum) / a[i, i];
}console.writeline("方程組的解為:");
for (int i = 0; i < n; i++)
=;", i + 1, x[z[i]]);}}
}class program}}
最終結果:
謝謝!!
列主元的高斯消元法(FORTRAN)
program guass1 real,dimension allocatable arr real,dimension allocatable x real a integer i,j,k,n 輸入 輸出數列 write 請輸入需要計算的係數矩陣的大小n read n allocate arr n...
高斯消元法(二) 高斯消元法原理
高斯消去法是一種常用的求解線性方程組的方法,通過逐次消元後,在回代求解,實際計算中常用的一種方法。順序消去法 將ax b按照從上至下 從左至右的順序化為上三角方程組,中間過程不對矩陣進行交換,主要步驟如下。step1 將第2行至第n行,每行分別與第一行做運算,消掉每行第乙個引數。公式如 形成如下圖所...
高斯消元法
寒假前,小導師給我們布置了三道程式設計題,其中有一道是利用高斯消元法解線性方程組的。在網上搜了些資料,自己照葫蘆畫瓢編出乙個簡單的高斯消元法 利用矩陣的初等行變換 高斯消元法解線性方程組 include include include define dim 10 double a dim 1 dim...