[理學(xué)]試驗(yàn)61直接法求解線性方程組-資料下載頁
2024-10-19 01:12本頁面
【正文】 s error A=%f\n, A[N1][N1])。 exit(1)。 } A[N1][N]=A[N1][N]/A[N1][N1]。 /*回代求解 */ for(k=N2。k=0。k) {w=0。 for(j=k+1。jN。j++) w=w+A[k][j]*A[j][N]。 A[k][N]=A[k][N]w。 A[k][N]=A[k][N]/A[k][k]。 } /*方程組的解 */ printf(the root:\n)。 for(i=0。iN。i++) printf(x[%d]=%f\n,i,A[i][N]) 。 } void main() {double A[N][N+1]=/{1, 1, 2, 1, 16,2, 2, 3, 3, 40,1, 1, 1, 0, 4,1, 1, 4, 3,8 }。 clrscr()。 Guass(A)。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1