全国等级考试资料网

//回代,求解线性方程组的结果(2)

分类: 计算机  时间: 2019-01-23 14:13:39  作者: 全国等级考试资料网 
// 找到最大的列主元
for(j = i; j < size; j++)
{
if(p[j][i] > largest)
{
largest = p[j][i];
swap_index = j;
}
}
//如果最大列主元不在子块的第一行,那么进行交换
if(i != swap_index)
{
double temp = 0;
for(j = 0; j < size; j++)
{
temp = p[i][j];
p[i][j] = p[swap_index][j];
p[swap_index][j] = temp;
}
temp = B[i];
B[i] = B[swap_index];
B[swap_index] = temp;
}
//进行消元
double mi = 1.0;
for(j = i + 1; j < size; j++)
{
mi = p[j][i]/p[i][i];
for(int k = i; k < size; k++)
{
p[j][k] = p[j][k] - mi * p[i][k];
}
B[j] = B[j] - mi * B[i];
}
}

相关文章

猜你喜欢

精选计算机