int main() {
igraph_matrix_t A;
igraph_vector_t values;
igraph_matrix_t vectors;
int i, j;
igraph_eigen_which_t which;
igraph_rng_seed(igraph_rng_default(), 42 * 42);
igraph_matrix_init(&A, DIM, DIM);
igraph_matrix_init(&vectors, 0, 0);
igraph_vector_init(&values, 0);
/* All eigenvalues and eigenvectors */
for (i=0; i<DIM; i++) {
for (j=i; j<DIM; j++) {
MATRIX(A, i, j) = MATRIX(A, j, i) =
igraph_rng_get_integer(igraph_rng_default(), 1, 10);
}
}
which.pos=IGRAPH_EIGEN_LM;
which.howmany=5;
igraph_eigen_matrix_symmetric(&A, /*sA=*/ 0, /*fun=*/ 0, DIM, /*extra=*/ 0,
IGRAPH_EIGEN_LAPACK, &which, /*options=*/ 0,
/*storage=*/ 0, &values, &vectors);
igraph_vector_print(&values);
check_ev(&A, &values, &vectors);
which.howmany=8;
igraph_eigen_matrix_symmetric(&A, /*sA=*/ 0, /*fun=*/ 0, DIM, /*extra=*/ 0,
IGRAPH_EIGEN_LAPACK, &which, /*options=*/ 0,
/*storage=*/ 0, &values, &vectors);
igraph_vector_print(&values);
check_ev(&A, &values, &vectors);
which.pos=IGRAPH_EIGEN_BE;
which.howmany=5;
igraph_eigen_matrix_symmetric(&A, /*sA=*/ 0, /*fun=*/ 0, DIM, /*extra=*/ 0,
IGRAPH_EIGEN_LAPACK, &which, /*options=*/ 0,
/*storage=*/ 0, &values, &vectors);
igraph_vector_print(&values);
check_ev(&A, &values, &vectors);
which.pos=IGRAPH_EIGEN_SM;
which.howmany=5;
igraph_eigen_matrix_symmetric(&A, /*sA=*/ 0, /*fun=*/ 0, DIM, /*extra=*/ 0,
IGRAPH_EIGEN_LAPACK, &which, /*options=*/ 0,
/*storage=*/ 0, &values, &vectors);
igraph_vector_print(&values);
check_ev(&A, &values, &vectors);
igraph_vector_destroy(&values);
igraph_matrix_destroy(&vectors);
igraph_matrix_destroy(&A);
return 0;
}
int main() {
igraph_matrix_t A;
igraph_matrix_t vectors_left, vectors_right;
igraph_vector_t values_real, values_imag;
int i, j;
int info=1;
int ilo, ihi;
igraph_real_t abnrm;
igraph_rng_seed(igraph_rng_default(), 42);
igraph_matrix_init(&A, DIM, DIM);
igraph_matrix_init(&vectors_left, 0, 0);
igraph_matrix_init(&vectors_right, 0, 0);
igraph_vector_init(&values_real, 0);
igraph_vector_init(&values_imag, 0);
for (i=0; i<DIM; i++) {
for (j=0; j<DIM; j++) {
MATRIX(A, i, j) = igraph_rng_get_integer(igraph_rng_default(), 1, 10);
}
}
igraph_lapack_dgeevx(IGRAPH_LAPACK_DGEEVX_BALANCE_BOTH,
&A, &values_real, &values_imag,
&vectors_left, &vectors_right, &ilo, &ihi,
/*scale=*/ 0, &abnrm, /*rconde=*/ 0,
/*rcondv=*/ 0, &info);
if (check_ev(&A, &values_real, &values_imag,
&vectors_left, &vectors_right, /*tol=*/ 1e-8)) {
return 1;
}
/* igraph_matrix_print(&A); */
/* igraph_vector_print(&values_real); */
/* igraph_vector_print(&values_imag); */
/* igraph_matrix_print(&vectors_left); */
/* igraph_matrix_print(&vectors_right); */
igraph_vector_destroy(&values_imag);
igraph_vector_destroy(&values_real);
igraph_matrix_destroy(&vectors_right);
igraph_matrix_destroy(&vectors_left);
igraph_matrix_destroy(&A);
return 0;
}
int
main(int argc, char **argv)
{
CORBA_Environment ev;
CORBA_Object oclient;
char *obj_id;
CORBA_long i;
CORBA_short n_desktops;
CORBA_long j;
CORBA_long n_apps;
CORBA_string s;
Accessibility_Desktop desktop;
Accessibility_Application app;
Accessibility_Registry registry;
SpiListener *listener;
CORBA_exception_init(&ev);
if (!bonobo_init (&argc, argv))
{
g_error ("Could not initialize Bonobo");
}
obj_id = "OAFIID:Accessibility_Registry:1.0";
oclient = bonobo_activation_activate_from_id (obj_id, 0, NULL, &ev);
if (ev._major != CORBA_NO_EXCEPTION) {
fprintf(stderr,
("Accessibility app error: exception during registry activation from id: %s\n"),
CORBA_exception_id(&ev));
CORBA_exception_free(&ev);
exit(-1);
}
if (CORBA_Object_is_nil (oclient, &ev))
{
g_error ("Could not locate registry");
}
bonobo_activate ();
listener = spi_listener_new ();
registry = (Accessibility_Registry) oclient;
Accessibility_Registry_registerGlobalEventListener
(registry,
(Accessibility_EventListener)
bonobo_object_corba_objref (bonobo_object (listener)),
"focus:",
&ev);
check_ev (&ev, "register:focus");
Accessibility_Registry_registerGlobalEventListener
(registry,
(Accessibility_EventListener)
bonobo_object_corba_objref (bonobo_object (listener)),
"Gtk:GtkWidget:button-press-event",
&ev);
check_ev (&ev, "register:button_press");
fprintf (stderr, "AT callback registered.\n");
n_desktops = Accessibility_Registry_getDesktopCount (registry, &ev);
for (i=0; i<n_desktops; ++i)
{
desktop = Accessibility_Registry_getDesktop (registry, i, &ev);
s = Accessibility_Desktop__get_name (desktop, &ev);
fprintf (stderr, "desktop %d name: %s\n", i, s);
CORBA_free (s);
check_ev (&ev, "desktop:name");
n_apps = Accessibility_Desktop__get_childCount (desktop, &ev);
check_ev (&ev, "desktop:childCount");
fprintf (stderr, "desktop has %d apps:\n", n_apps);
for (j=0; j<n_apps; ++j)
{
app = (Accessibility_Application) Accessibility_Desktop_getChildAtIndex (desktop, j, &ev);
check_ev (&ev, "desktop:getChildAtIndex");
s = Accessibility_Application__get_name (app, &ev);
fprintf (stderr, "app %d name: %s\n", j, s);
CORBA_free (s);
check_ev (&ev, "app:getName");
}
}
fprintf (stderr, "finished querying desktop(s).\n");
bonobo_main ();
/* needed by at because it is a server ? */
exit(0);
}
