abdelrahman/agent_compositor_test
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
3c1997e2b1c7854da5d543c279a73d5ea25fcf57
agent_compositor_test/references/igraph-1.0.1/tests/unit/igraph_sparsemat5.c
T
Abdelrahman Said a11edf0c53 Add graph references
2026-06-28 13:49:01 +01:00

401 lines
13 KiB
C
Raw Blame History

/*
igraph library.
Copyright (C) 2009-2012 Gabor Csardi <csardi.gabor@gmail.com>
334 Harvard st, Cambridge MA, 02139 USA
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301 USA
*/
#include <igraph.h>
#include "test_utilities.h"
#define EPS 1e-13
/* Generic test for 1x1 matrices */
void test_1x1(igraph_real_t value) {
igraph_sparsemat_t A, B;
igraph_matrix_t values, vectors;
igraph_vector_t values2;
igraph_arpack_options_t options;
igraph_arpack_options_init(&options);
igraph_sparsemat_init(&A, 1, 1, 1);
igraph_sparsemat_entry(&A, 0, 0, value);
igraph_sparsemat_compress(&A, &B);
igraph_sparsemat_destroy(&A);
igraph_matrix_init(&values, 0, 0);
igraph_matrix_init(&vectors, 0, 0);
options.mode = 1;
igraph_sparsemat_arpack_rnsolve(&B, /*options=*/ 0, /*storage=*/ 0,
&values, &vectors);
printf("rnsolve:\n - eigenvalues:\n");
print_matrix(&values);
printf(" - eigenvectors:\n");
print_matrix(&vectors);
igraph_matrix_destroy(&values);
igraph_matrix_destroy(&vectors);
igraph_vector_init(&values2, 0);
igraph_matrix_init(&vectors, 0, 0);
options.mode = 1;
igraph_sparsemat_arpack_rssolve(&B, /*options=*/ 0, /*storage=*/ 0,
&values2, &vectors, IGRAPH_SPARSEMAT_SOLVE_LU);
printf("rssolve:\n - eigenvalues:\n");
print_vector(&values2);
printf(" - eigenvectors:\n");
print_matrix(&vectors);
igraph_vector_destroy(&values2);
igraph_matrix_destroy(&vectors);
igraph_sparsemat_destroy(&B);
}
/* Generic test for 2x2 matrices */
void test_2x2(igraph_real_t a, igraph_real_t b, igraph_real_t c, igraph_real_t d) {
igraph_sparsemat_t A, B;
igraph_matrix_t values, vectors;
igraph_vector_t values2;
igraph_arpack_options_t options;
igraph_arpack_options_init(&options);
options.mode = 1;
options.nev = 2;
igraph_sparsemat_init(&A, 2, 2, 4);
igraph_sparsemat_entry(&A, 0, 0, a);
igraph_sparsemat_entry(&A, 0, 1, b);
igraph_sparsemat_entry(&A, 1, 0, c);
igraph_sparsemat_entry(&A, 1, 1, d);
igraph_sparsemat_compress(&A, &B);
igraph_sparsemat_destroy(&A);
igraph_matrix_init(&values, 0, 0);
igraph_matrix_init(&vectors, 0, 0);
igraph_sparsemat_arpack_rnsolve(&B, &options, /*storage=*/ 0,
&values, &vectors);
printf("rnsolve:\n - eigenvalues:\n");
print_matrix(&values);
printf(" - eigenvectors:\n");
print_matrix(&vectors);
igraph_matrix_destroy(&values);
igraph_matrix_destroy(&vectors);
if (b == c) {
igraph_vector_init(&values2, 0);
igraph_matrix_init(&vectors, 0, 0);
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values2, &vectors, IGRAPH_SPARSEMAT_SOLVE_QR);
printf("rssolve:\n - eigenvalues:\n");
print_vector(&values2);
printf(" - eigenvectors:\n");
print_matrix(&vectors);
igraph_vector_destroy(&values2);
igraph_matrix_destroy(&vectors);
}
igraph_sparsemat_destroy(&B);
}
int main(void) {
igraph_sparsemat_t A, B;
igraph_matrix_t vectors, values2;
igraph_vector_t values;
igraph_int_t i;
igraph_arpack_options_t options;
igraph_real_t min, max;
igraph_t g1, g2, g3;
/* igraph_arpack_rssolve()/rnsolve() use the RNG to generate
* a random starting vector for ARPACK. */
igraph_rng_seed(igraph_rng_default(), 123);
/***********************************************************************/
/* Identity matrix */
printf("== Identity matrix ==\n");
#define DIM 10
igraph_sparsemat_init(&A, DIM, DIM, DIM);
for (i = 0; i < DIM; i++) {
igraph_sparsemat_entry(&A, i, i, 1.0);
}
igraph_sparsemat_compress(&A, &B);
igraph_sparsemat_destroy(&A);
igraph_vector_init(&values, 0);
igraph_arpack_options_init(&options);
options.mode = 1;
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, /*vectors=*/ 0, /*solvemethod=*/0);
IGRAPH_ASSERT(VECTOR(values)[0] == 1.0);
options.mode = 3;
options.sigma = 2;
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, /*vectors=*/ 0,
IGRAPH_SPARSEMAT_SOLVE_LU);
IGRAPH_ASSERT(VECTOR(values)[0] == 1.0);
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, /*vectors=*/ 0,
IGRAPH_SPARSEMAT_SOLVE_QR);
IGRAPH_ASSERT(VECTOR(values)[0] == 1.0);
igraph_vector_destroy(&values);
igraph_sparsemat_destroy(&B);
#undef DIM
/***********************************************************************/
/* Diagonal matrix */
printf("\n== Diagonal matrix ==\n");
#define DIM 10
igraph_sparsemat_init(&A, DIM, DIM, DIM);
for (i = 0; i < DIM; i++) {
igraph_sparsemat_entry(&A, i, i, i + 1.0);
}
igraph_sparsemat_compress(&A, &B);
igraph_sparsemat_destroy(&A);
igraph_vector_init(&values, 0);
igraph_matrix_init(&vectors, 0, 0);
/* Regular mode */
options.mode = 1;
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, /*vectors=*/ &vectors,
/*solvemethod=*/ 0);
if ( fabs(VECTOR(values)[0] - DIM) > EPS ) {
printf("Regular: VECTOR(values)[0] numerical precision is only %g, should be %g",
fabs((double)VECTOR(values)[0] - DIM), EPS);
IGRAPH_FATAL("Precision lower than expected.");
}
IGRAPH_ASSERT( fabs(fabs(MATRIX(vectors, DIM - 1, 0)) - 1.0) < EPS);
MATRIX(vectors, DIM - 1, 0) = 0.0;
igraph_matrix_minmax(&vectors, &min, &max);
IGRAPH_ASSERT(fabs(min) < EPS);
IGRAPH_ASSERT(fabs(max) < EPS);
/* Shift and invert mode */
options.mode = 3;
options.sigma = 11;
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, /*vectors=*/ &vectors,
IGRAPH_SPARSEMAT_SOLVE_LU);
if ( fabs(VECTOR(values)[0] - DIM) > EPS ) {
printf("Shift and invert, LU: VECTOR(values)[0] numerical precision is only %g, should be %g",
fabs((double)VECTOR(values)[0] - DIM), EPS);
IGRAPH_FATAL("Precision lower than expected.");
}
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, /*vectors=*/ &vectors,
IGRAPH_SPARSEMAT_SOLVE_QR);
if ( fabs(VECTOR(values)[0] - DIM) > EPS ) {
printf("Shift and invert, QR: VECTOR(values)[0] numerical precision is only %g, should be %g",
fabs((double)VECTOR(values)[0] - DIM), EPS);
IGRAPH_FATAL("Precision lower than expected.");
}
IGRAPH_ASSERT( fabs(fabs(MATRIX(vectors, DIM - 1, 0)) - 1.0) < EPS);
MATRIX(vectors, DIM - 1, 0) = 0.0;
igraph_matrix_minmax(&vectors, &min, &max);
IGRAPH_ASSERT(fabs(min) < EPS);
IGRAPH_ASSERT(fabs(max) < EPS);
igraph_vector_destroy(&values);
igraph_matrix_destroy(&vectors);
igraph_sparsemat_destroy(&B);
#undef DIM
/***********************************************************************/
/* A tree, plus a ring */
printf("\n== A tree, plus a ring ==\n");
#define DIM 10
igraph_kary_tree(&g1, DIM, /*children=*/ 2, IGRAPH_TREE_UNDIRECTED);
igraph_ring(&g2, DIM, IGRAPH_UNDIRECTED, /*mutual=*/ 0, /*circular=*/ 1);
igraph_union(&g3, &g1, &g2, /*edge_map1=*/ 0, /*edge_map1=*/ 0);
igraph_destroy(&g1);
igraph_destroy(&g2);
igraph_sparsemat_init(&A, 1, 1, 0);
igraph_get_adjacency_sparse(&g3, &A, IGRAPH_GET_ADJACENCY_BOTH, NULL, IGRAPH_LOOPS_ONCE);
igraph_destroy(&g3);
igraph_sparsemat_compress(&A, &B);
igraph_sparsemat_destroy(&A);
igraph_vector_init(&values, 0);
igraph_matrix_init(&vectors, 0, 0);
/* Regular mode */
options.mode = 1;
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, &vectors, /*solvemethod=*/ 0);
if (MATRIX(vectors, 0, 0) < 0.0) {
igraph_matrix_scale(&vectors, -1.0);
}
printf("\nRegular:\n");
printf("Eigenvalues:\n");
print_vector(&values);
printf("Eigenvectors:\n");
print_matrix(&vectors);
/* Shift and invert mode */
options.mode = 3;
options.sigma = VECTOR(values)[0] * 1.1;
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, &vectors,
IGRAPH_SPARSEMAT_SOLVE_LU);
if (MATRIX(vectors, 0, 0) < 0.0) {
igraph_matrix_scale(&vectors, -1.0);
}
printf("\nShift and invert, LU:\n");
printf("Eigenvalues:\n");
print_vector(&values);
printf("Eigenvectors:\n");
print_matrix(&vectors);
igraph_sparsemat_arpack_rssolve(&B, &options, /*storage=*/ 0,
&values, &vectors,
IGRAPH_SPARSEMAT_SOLVE_QR);
if (MATRIX(vectors, 0, 0) < 0.0) {
igraph_matrix_scale(&vectors, -1.0);
}
printf("\nShift and invert, QR:\n");
printf("Eigenvalues:\n");
print_vector(&values);
printf("Eigenvectors:\n");
print_matrix(&vectors);
igraph_vector_destroy(&values);
igraph_matrix_destroy(&vectors);
igraph_sparsemat_destroy(&B);
#undef DIM
/***********************************************************************/
/* A directed tree and a directed, mutual ring, no ARPACK options */
printf("\n== A directed tree and a directed, mutual ring ==\n");
#define DIM 10
igraph_kary_tree(&g1, DIM, /*children=*/ 2, IGRAPH_TREE_OUT);
igraph_ring(&g2, DIM, IGRAPH_DIRECTED, /*mutual=*/ 1, /*circular=*/ 1);
igraph_union(&g3, &g1, &g2, /*edge_map1=*/ 0, /*edge_map2=*/ 0);
igraph_destroy(&g1);
igraph_destroy(&g2);
igraph_sparsemat_init(&A, 1, 1, 0);
igraph_get_adjacency_sparse(&g3, &A, IGRAPH_GET_ADJACENCY_BOTH, NULL, IGRAPH_LOOPS_ONCE);
igraph_destroy(&g3);
igraph_sparsemat_compress(&A, &B);
igraph_sparsemat_destroy(&A);
igraph_matrix_init(&values2, 0, 0);
igraph_matrix_init(&vectors, 0, 0);
/* Regular mode */
options.mode = 1;
igraph_sparsemat_arpack_rnsolve(&B, /*options=*/ 0, /*storage=*/ 0,
&values2, &vectors);
if (MATRIX(vectors, 0, 0) < 0.0) {
igraph_matrix_scale(&vectors, -1.0);
}
printf("\nRegular:\n");
printf("Eigenvalues:\n");
print_matrix(&values2);
printf("Eigenvectors:\n");
print_matrix(&vectors);
igraph_matrix_destroy(&values2);
igraph_matrix_destroy(&vectors);
igraph_sparsemat_destroy(&B);
#undef DIM
/***********************************************************************/
/* A small test graph */
printf("\n== A small test graph ==\n");
igraph_small(&g1, 11, IGRAPH_DIRECTED,
0, 1, 1, 3, 1, 8, 2, 10, 3, 6, 3, 10, 4, 2, 5, 4,
6, 1, 6, 4, 7, 9, 8, 5, 8, 7, 9, 8, 10, 0,
-1);
igraph_sparsemat_init(&A, 1, 1, 0);
igraph_get_adjacency_sparse(&g1, &A, IGRAPH_GET_ADJACENCY_BOTH, NULL, IGRAPH_LOOPS_ONCE);
igraph_destroy(&g1);
igraph_sparsemat_compress(&A, &B);
igraph_sparsemat_destroy(&A);
igraph_matrix_init(&values2, 0, 0);
igraph_matrix_init(&vectors, 0, 0);
/* Regular mode */
options.mode = 1;
igraph_sparsemat_arpack_rnsolve(&B, &options, /*storage=*/ 0,
&values2, &vectors);
if (MATRIX(vectors, 0, 0) < 0.0) {
igraph_matrix_scale(&vectors, -1.0);
}
printf("\nRegular:\n");
printf("Eigenvalues:\n");
print_matrix(&values2);
printf("Eigenvectors:\n");
print_matrix(&vectors);
igraph_matrix_destroy(&values2);
igraph_matrix_destroy(&vectors);
igraph_sparsemat_destroy(&B);
/***********************************************************************/
/* Testing the special case solver for 1x1 matrices */
printf("\n== Testing the special case solver for 1x1 matrices ==\n");
test_1x1(2);
test_1x1(0);
test_1x1(-3);
/***********************************************************************/
/* Testing the special case solver for 2x2 matrices */
printf("\n== Testing the special case solver for 2x2 matrices ==\n");
test_2x2(1, 2, 2, 4); /* symmetric */
test_2x2(1, 2, 3, 4); /* non-symmetric, real eigenvalues */
test_2x2(1, -5, 10, 4); /* non-symmetric, complex eigenvalues */
test_2x2(0, 0, 0, 0); /* symmetric, pathological */
VERIFY_FINALLY_STACK();
return 0;
}
Reference in New Issue View Git Blame Copy Permalink