Files
2025-02-Numerical/lib/nr/cpp/recipes/eigsrt.cpp
2025-09-12 18:55:25 +09:00

24 lines
312 B
C++

#include "nr.h"
void NR::eigsrt(Vec_IO_DP &d, Mat_IO_DP &v)
{
int i,j,k;
DP p;
int n=d.size();
for (i=0;i<n-1;i++) {
p=d[k=i];
for (j=i;j<n;j++)
if (d[j] >= p) p=d[k=j];
if (k != i) {
d[k]=d[i];
d[i]=p;
for (j=0;j<n;j++) {
p=v[j][i];
v[j][i]=v[j][k];
v[j][k]=p;
}
}
}
}