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;
}
