int igraph_vector_complex_print(const igraph_vector_complex_t *v) { long int i, n=igraph_vector_complex_size(v); if (n!=0) { igraph_complex_t z=VECTOR(*v)[0]; printf("%g%+gi", IGRAPH_REAL(z), IGRAPH_IMAG(z)); } for (i=1; i<n; i++) { igraph_complex_t z=VECTOR(*v)[i]; printf(" %g%+gi", IGRAPH_REAL(z), IGRAPH_IMAG(z)); } printf("\n"); return 0; }
int igraph_vector_complex_fprint(const igraph_vector_complex_t *v, FILE *file) { long int i, n=igraph_vector_complex_size(v); if (n!=0) { igraph_complex_t z=VECTOR(*v)[0]; fprintf(file, "%g%+g", IGRAPH_REAL(z), IGRAPH_IMAG(z)); } for (i=1; i<n; i++) { igraph_complex_t z=VECTOR(*v)[i]; fprintf(file, " %g%+g", IGRAPH_REAL(z), IGRAPH_IMAG(z)); } fprintf(file, "\n"); return 0; }
int igraph_vector_complex_imag(const igraph_vector_complex_t *v, igraph_vector_t *imag) { int i, n=igraph_vector_complex_size(v); IGRAPH_CHECK(igraph_vector_resize(imag, n)); for (i=0; i<n; i++) { VECTOR(*imag)[i] = IGRAPH_IMAG(VECTOR(*v)[i]); } return 0; }
int igraph_vector_complex_realimag(const igraph_vector_complex_t *v, igraph_vector_t *real, igraph_vector_t *imag) { int i, n=igraph_vector_complex_size(v); IGRAPH_CHECK(igraph_vector_resize(real, n)); IGRAPH_CHECK(igraph_vector_resize(imag, n)); for (i=0; i<n; i++) { igraph_complex_t z=VECTOR(*v)[i]; VECTOR(*real)[i] = IGRAPH_REAL(z); VECTOR(*imag)[i] = IGRAPH_IMAG(z); } return 0; }
int igraph_matrix_complex_print(const igraph_matrix_complex_t *m) { long int nr=igraph_matrix_complex_nrow(m); long int nc=igraph_matrix_complex_ncol(m); long int i, j; for (i=0; i<nr; i++) { for (j=0; j<nc; j++) { igraph_complex_t z=MATRIX(*m, i, j); if (j!=0) { putchar(' '); } printf("%g%+gi", IGRAPH_REAL(z), IGRAPH_IMAG(z)); } printf("\n"); } return 0; }
int igraph_matrix_complex_fprint(const igraph_matrix_complex_t *m, FILE *file) { long int nr=igraph_matrix_complex_nrow(m); long int nc=igraph_matrix_complex_ncol(m); long int i, j; for (i=0; i<nr; i++) { for (j=0; j<nc; j++) { igraph_complex_t z=MATRIX(*m, i, j); if (j!=0) { fputc(' ', file); } fprintf(file, "%g%+gi", IGRAPH_REAL(z), IGRAPH_IMAG(z)); } fprintf(file, "\n"); } return 0; }