|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
数值计算程序大放送-线性代数方程组
|
日期：2008年3月31日 作者： 查看:[大字体
中字体 小字体]
|
free(js);
printf("err**fail\n");
return(0);
}
if (is!=k)
{
for (j=k;j<=n-1;j++)
{
u=k*n+j;
v=is*n+j;
p=ar[u];
ar[u]=ar[v];
ar[v]=p;
p=ai[u];
ai[u]=ai[v];
ai[v]=p;
}
p=br[k];
br[k]=br[is];
br[is]=p;
p=bi[k];
bi[k]=bi[is];
bi[is]=p;
}
if (js[k]!=k)
{
for (i=0;i<=n-1;i++)
{
u=i*n+k;
v=i*n+js[k];
p=ar[u];
ar[u]=ar[v];
ar[v]=p;
p=ai[u];
ai[u]=ai[v];
ai[v]=p;
}
}
v=k*n+k;
for (j=k+1;j<=n-1;j++)
{
u=k*n+j;
p=ar[u]*ar[v];
上一篇:浙江台州互联网行业浅析－－问题篇
下一篇:数值计算程序大放送-特征值和特征向量
|
| 相关文章： |
|
|
|
| 相关软件： |
|
|
|
|
