Reindend, add also the 'coarse values' calculation
Former-commit-id: 2dc73a2875823cae187585787bd4d344dea232f9
This commit is contained in:
parent
5471367aad
commit
1aa9890155
15
qpms/beyn.c
15
qpms/beyn.c
|
@ -417,21 +417,22 @@ int BeynSolve(BeynSolver *Solver, beyn_function_M_t M_function,
|
||||||
}
|
}
|
||||||
|
|
||||||
gsl_vector_complex *Eigenvalues = Solver->Eigenvalues;
|
gsl_vector_complex *Eigenvalues = Solver->Eigenvalues;
|
||||||
//gsl_vector_complex *EVErrors = Solver->EVErrors;
|
gsl_vector_complex *EVErrors = Solver->EVErrors;
|
||||||
gsl_matrix_complex *Eigenvectors = Solver->Eigenvectors;
|
gsl_matrix_complex *Eigenvectors = Solver->Eigenvectors;
|
||||||
|
|
||||||
int K = ProcessAMatrices(Solver, M_function, Params, A0, A1, z0, Eigenvalues, Eigenvectors);
|
int K = ProcessAMatrices(Solver, M_function, Params, A0, A1, z0, Eigenvalues, Eigenvectors);
|
||||||
//int KCoarse = ProcessAMatrices(Solver, UserFunc, Params, A0Coarse, A1Coarse, z0, EVErrors, Eigenvectors);
|
int KCoarse = ProcessAMatrices(Solver, M_function, Params, A0Coarse, A1Coarse, z0, EVErrors, Eigenvectors);
|
||||||
// Log("{K,KCoarse}={%i,%i}",K,KCoarse);
|
// Log("{K,KCoarse}={%i,%i}",K,KCoarse);
|
||||||
/*
|
gsl_blas_zaxpy(gsl_complex_rect(-1,0), Eigenvalues, EVErrors);
|
||||||
for(int k=0; k<EVErrors->N && k<Eigenvalues->N; k++)
|
#if 0
|
||||||
{ EVErrors->ZV[k] -= Eigenvalues->ZV[k];
|
for(size_t k = 0; k < EVErrors->size && k < Eigenvalues->size; ++k) {
|
||||||
|
|
||||||
|
EVErrors->ZV[k] -= Eigenvalues->ZV[k];
|
||||||
EVErrors->ZV[k] = cdouble( fabs(real(EVErrors->ZV[k])),
|
EVErrors->ZV[k] = cdouble( fabs(real(EVErrors->ZV[k])),
|
||||||
fabs(imag(EVErrors->ZV[k]))
|
fabs(imag(EVErrors->ZV[k]))
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
|
#endif
|
||||||
*/
|
|
||||||
return K;
|
return K;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue