/* -*- mode: C -*- */ /* IGraph library. Copyright (C) 2006-2012 Gabor Csardi <csardi.gabor@gmail.com> 334 Harvard street, 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 <stdlib.h> void print_vector(igraph_vector_t *v, FILE *f) { long int i; for (i=0; i<igraph_vector_size(v); i++) { fprintf(f, " %li", (long int) VECTOR(*v)[i]); } fprintf(f, "\n"); } int main() { igraph_vector_t v, v2, v3; int i; igraph_real_t *ptr; long int pos; /* simple init */ igraph_vector_init(&v, 0); igraph_vector_destroy(&v); /* vector of zeros */ igraph_vector_init(&v, 10); print_vector(&v, stdout); igraph_vector_destroy(&v); /* VECTOR(), igraph_vector_size */ igraph_vector_init(&v, 10); for (i=0; i<igraph_vector_size(&v); i++) { VECTOR(v)[i]=10-i; } print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_reserve, igraph_vector_push_back */ igraph_vector_init(&v, 0); igraph_vector_reserve(&v, 10); for (i=0; i<10; i++) { igraph_vector_push_back(&v, i); } /* igraph_vector_empty, igraph_vector_clear */ if (igraph_vector_empty(&v)) { return 1; } igraph_vector_clear(&v); if (!igraph_vector_empty(&v)) { return 2; } igraph_vector_destroy(&v); /* igraph_vector_e, igraph_vector_e_ptr */ igraph_vector_init(&v, 5); for (i=0; i<igraph_vector_size(&v); i++) { *igraph_vector_e_ptr(&v, i) = 100*i; } for (i=0; i<igraph_vector_size(&v); i++) { fprintf(stdout, " %li", (long int)igraph_vector_e(&v, i)); } fprintf(stdout, "\n"); igraph_vector_destroy(&v); /* igraph_vector_set */ igraph_vector_init(&v, 5); for (i=0; i<igraph_vector_size(&v); i++) { igraph_vector_set(&v, i, 20*i); } print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_null */ igraph_vector_init(&v, 0); igraph_vector_null(&v); igraph_vector_destroy(&v); igraph_vector_init(&v, 10); for (i=0; i<igraph_vector_size(&v); i++) { VECTOR(v)[i]=i+1; } igraph_vector_null(&v); print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_tail, igraph_vector_pop_back */ igraph_vector_init(&v, 10); for (i=0; i<igraph_vector_size(&v); i++) { VECTOR(v)[i]=i+1; } while (!igraph_vector_empty(&v)) { fprintf(stdout, " %li", (long int)igraph_vector_tail(&v)); fprintf(stdout, " %li", (long int)igraph_vector_pop_back(&v)); } fprintf(stdout, "\n"); igraph_vector_destroy(&v); /* igraph_vector_init_seq, igraph_vector_order */ igraph_vector_init_seq(&v, 1, 10); igraph_vector_init(&v2, 0); igraph_vector_order1(&v, &v2, 10); print_vector(&v2, stdout); igraph_vector_destroy(&v2); igraph_vector_destroy(&v); /* igraph_vector_resize, igraph_vector_sort */ igraph_vector_init(&v, 20); for (i=0; i<10; i++) { VECTOR(v)[i]=10-i; } igraph_vector_resize(&v, 10); igraph_vector_sort(&v); print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_max, igraph_vector_init_copy */ igraph_vector_init(&v, 10); for (i=0; i<igraph_vector_size(&v); i++) { VECTOR(v)[i]=100-i; } for (i=0; i<10; i++) { fprintf(stdout, " %li", (long int)VECTOR(v)[i]); } fprintf(stdout, "\n"); fprintf(stdout, " %li\n", (long int)igraph_vector_max(&v)); igraph_vector_destroy(&v); ptr=(igraph_real_t*) malloc(10* sizeof(igraph_real_t)); igraph_vector_init_copy(&v, ptr, 10); free(ptr); for (i=0; i<10; i++) { VECTOR(v)[i]=100-i; } print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_copy_to */ ptr=(igraph_real_t*) malloc(10* sizeof(igraph_real_t)); igraph_vector_init_seq(&v, 11, 20); igraph_vector_copy_to(&v, ptr); for (i=0; i<10; i++) { fprintf(stdout, " %li", (long int)ptr[i]); } fprintf(stdout, "\n"); free(ptr); igraph_vector_destroy(&v); /* igraph_vector_init_seq, igraph_vector_sum, igraph_vector_prod */ igraph_vector_init_seq(&v, 1, 5); fprintf(stdout, " %li", (long int)igraph_vector_sum(&v)); fprintf(stdout, " %li\n", (long int)igraph_vector_prod(&v)); /* igraph_vector_remove_section */ igraph_vector_remove_section(&v, 2, 4); fprintf(stdout, " %li", (long int)igraph_vector_sum(&v)); fprintf(stdout, " %li\n", (long int)igraph_vector_prod(&v)); igraph_vector_destroy(&v); /* igraph_vector_remove */ igraph_vector_init_seq(&v, 1, 10); igraph_vector_remove(&v, 9); igraph_vector_remove(&v, 0); igraph_vector_remove(&v, 4); fprintf(stdout, " %li\n", (long int)igraph_vector_sum(&v)); igraph_vector_destroy(&v); /* igraph_vector_move_interval */ igraph_vector_init_seq(&v, 0, 9); igraph_vector_move_interval(&v, 5, 10, 0); if (igraph_vector_sum(&v) != 70) { return 3; } igraph_vector_destroy(&v); /* igraph_vector_isininterval */ igraph_vector_init_seq(&v, 1, 10); if (!igraph_vector_isininterval(&v, 1, 10)) { return 4; } if (igraph_vector_isininterval(&v, 2, 10)) { return 5; } if (igraph_vector_isininterval(&v, 1, 9)) { return 6; } /* igraph_vector_any_smaller */ if (igraph_vector_any_smaller(&v, 1)) { return 7; } if (!igraph_vector_any_smaller(&v, 2)) { return 8; } igraph_vector_destroy(&v); /* igraph_vector_all_e */ /* igraph_vector_binsearch */ igraph_vector_init_seq(&v, 0, 9); for (i=0; i<igraph_vector_size(&v); i++) { if (!igraph_vector_binsearch(&v, 0, 0)) { return 9; } } if (igraph_vector_binsearch(&v, 10, 0)) { return 10; } if (igraph_vector_binsearch(&v, -1, 0)) { return 11; } for (i=0; i<igraph_vector_size(&v); i++) { VECTOR(v)[i]= 2*i; } for (i=0; i<igraph_vector_size(&v); i++) { long int pos; if (!igraph_vector_binsearch(&v, VECTOR(v)[i], &pos)) { fprintf(stderr, "cannot find %i\n", (int)VECTOR(v)[i]); return 12; } if (pos != i) { return 13; } if (igraph_vector_binsearch(&v, VECTOR(v)[i]+1, &pos)) { return 14; } } igraph_vector_destroy(&v); /* Binsearch in empty vector */ igraph_vector_init(&v, 0); if (igraph_vector_binsearch2(&v, 0)) { return 16; } if (igraph_vector_binsearch(&v, 1, &pos)) { return 17; } if (pos != 0) { return 18; } igraph_vector_destroy(&v); /* igraph_vector_init_real */ igraph_vector_init_real(&v, 10, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0); print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_init_int */ igraph_vector_init_int(&v, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10); print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_init_real */ igraph_vector_init_real_end(&v, -1, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, -1.0); print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_init_int */ igraph_vector_init_int_end(&v, -1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, -1); print_vector(&v, stdout); igraph_vector_destroy(&v); /* igraph_vector_permdelete */ /* igraph_vector_remove_negidx */ /* order2 */ igraph_vector_init_int_end(&v, -1, 10,9,8,7,6,7,8,9,10, -1); igraph_vector_order2(&v); print_vector(&v, stdout); igraph_vector_destroy(&v); /* filter_smaller, quite special.... */ igraph_vector_init_int_end(&v, -1, 0,1,2,3,4,4,4,4,5,6,7,8, -1); igraph_vector_filter_smaller(&v, 4); print_vector(&v, stdout); igraph_vector_destroy(&v); igraph_vector_init_int_end(&v, -1, 1,2,3,4,4,4,4,5,6,7,8, -1); igraph_vector_filter_smaller(&v, 0); print_vector(&v, stdout); igraph_vector_destroy(&v); igraph_vector_init_int_end(&v, -1, 0,0,1,2,3,4,4,4,4,5,6,7,8, -1); igraph_vector_filter_smaller(&v, 0); print_vector(&v, stdout); igraph_vector_destroy(&v); /* rank */ igraph_vector_init_int_end(&v, -1, 0,1,2,6,5,2,1,0, -1); igraph_vector_init(&v2, 0); igraph_vector_rank(&v, &v2, 7); print_vector(&v, stdout); print_vector(&v2, stdout); igraph_vector_destroy(&v); igraph_vector_destroy(&v2); /* order */ igraph_vector_init_int_end(&v, -1, 1,1,2,2, -1); igraph_vector_init_int_end(&v2, -1, 2,3,1,3, -1); igraph_vector_init(&v3, 0); igraph_vector_order(&v, &v2, &v3, 3); print_vector(&v3, stdout); igraph_vector_destroy(&v); igraph_vector_destroy(&v2); igraph_vector_destroy(&v3); /* fill */ igraph_vector_init(&v, 100); igraph_vector_fill(&v, 1.234567); for (i=0; i<igraph_vector_size(&v); i++) { if (VECTOR(v)[i] != 1.234567) { return 15; } } igraph_vector_destroy(&v); if (IGRAPH_FINALLY_STACK_SIZE() != 0) return 16; return 0; }