Blame doc/examples/matrix.c
|
Packit |
67cb25 |
#include <stdio.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_matrix.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
main (void)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int i, j;
|
|
Packit |
67cb25 |
gsl_matrix * m = gsl_matrix_alloc (10, 3);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < 10; i++)
|
|
Packit |
67cb25 |
for (j = 0; j < 3; j++)
|
|
Packit |
67cb25 |
gsl_matrix_set (m, i, j, 0.23 + 100*i + j);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < 100; i++) /* OUT OF RANGE ERROR */
|
|
Packit |
67cb25 |
for (j = 0; j < 3; j++)
|
|
Packit |
67cb25 |
printf ("m(%d,%d) = %g\n", i, j,
|
|
Packit |
67cb25 |
gsl_matrix_get (m, i, j));
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return 0;
|
|
Packit |
67cb25 |
}
|