24 lines
281 B
C
24 lines
281 B
C
|
|
void eigsrt(d,v,n)
|
|
float **v,d[];
|
|
int n;
|
|
{
|
|
int k,j,i;
|
|
float p;
|
|
|
|
for (i=1;i<n;i++) {
|
|
p=d[k=i];
|
|
for (j=i+1;j<=n;j++)
|
|
if (d[j] >= p) p=d[k=j];
|
|
if (k != i) {
|
|
d[k]=d[i];
|
|
d[i]=p;
|
|
for (j=1;j<=n;j++) {
|
|
p=v[j][i];
|
|
v[j][i]=v[j][k];
|
|
v[j][k]=p;
|
|
}
|
|
}
|
|
}
|
|
}
|