Matrix.i

   1 %module Matrix
   2
   3 %apply int *OUTPUT { size_t *imin, size_t *imax, size_t *jmin, size_t *jmax };
   4
   5 %apply double *OUTPUT { double * min_out, double * max_out };
   6 %{
   7     #include "/usr/local/include/gsl/gsl_matrix.h"
   8     #include "/usr/local/include/gsl/gsl_complex.h"
   9     #include "/usr/local/include/gsl/gsl_vector_double.h"
  10     #include "/usr/local/include/gsl/gsl_matrix_double.h"
  11     #include "/usr/local/include/gsl/gsl_matrix_int.h"
  12     #include "/usr/local/include/gsl/gsl_matrix_complex_double.h"
  13     #include "/usr/local/include/gsl/gsl_matrix_char.h"
  14 %}
  15
  16 %include "/usr/local/include/gsl/gsl_matrix.h"
  17 %include "/usr/local/include/gsl/gsl_complex.h"
  18 %include "/usr/local/include/gsl/gsl_vector_double.h"
  19 %include "/usr/local/include/gsl/gsl_matrix_double.h"
  20 %include "/usr/local/include/gsl/gsl_matrix_int.h"
  21 %include "/usr/local/include/gsl/gsl_matrix_complex_double.h"
  22 %include "/usr/local/include/gsl/gsl_matrix_char.h"
  23
  24
  25 %perlcode %{
  26
  27 no warnings 'redefine';
  28
  29 @EXPORT_OK = qw/fopen fclose
  30         gsl_matrix_alloc gsl_matrix_calloc gsl_matrix_alloc_from_block
  31         gsl_matrix_alloc_from_matrix gsl_vector_alloc_row_from_matrix
  32         gsl_vector_alloc_col_from_matrix gsl_matrix_free gsl_matrix_submatrix
  33         gsl_matrix_row gsl_matrix_column gsl_matrix_diagonal
  34         gsl_matrix_subdiagonal gsl_matrix_superdiagonal gsl_matrix_subrow
  35         gsl_matrix_subcolumn gsl_matrix_view_array
  36         gsl_matrix_view_array_with_tda gsl_matrix_view_vector
  37         gsl_matrix_view_vector_with_tda gsl_matrix_const_submatrix
  38         gsl_matrix_const_row gsl_matrix_const_column gsl_matrix_const_diagonal
  39         gsl_matrix_const_subdiagonal gsl_matrix_const_superdiagonal
  40         gsl_matrix_const_subrow gsl_matrix_const_subcolumn
  41         gsl_matrix_const_view_array gsl_matrix_const_view_array_with_tda
  42         gsl_matrix_const_view_vector gsl_matrix_const_view_vector_with_tda
  43         gsl_matrix_get gsl_matrix_set gsl_matrix_ptr gsl_matrix_const_ptr
  44         gsl_matrix_set_zero gsl_matrix_set_identity gsl_matrix_set_all
  45         gsl_matrix_fread gsl_matrix_fwrite gsl_matrix_fscanf gsl_matrix_fprintf
  46         gsl_matrix_memcpy gsl_matrix_swap gsl_matrix_swap_rows
  47         gsl_matrix_swap_columns gsl_matrix_swap_rowcol gsl_matrix_transpose
  48         gsl_matrix_transpose_memcpy gsl_matrix_max gsl_matrix_min
  49         gsl_matrix_minmax gsl_matrix_max_index gsl_matrix_min_index
  50         gsl_matrix_minmax_index gsl_matrix_isnull gsl_matrix_ispos
  51         gsl_matrix_isneg gsl_matrix_isnonneg gsl_matrix_add gsl_matrix_sub
  52         gsl_matrix_mul_elements gsl_matrix_div_elements gsl_matrix_scale
  53         gsl_matrix_add_constant gsl_matrix_add_diagonal
  54         gsl_matrix_char_alloc gsl_matrix_char_calloc  gsl_matrix_char_alloc_from_block
  55         gsl_matrix_char_alloc_from_matrix gsl_vector_char_alloc_row_from_matrix gsl_vector_char_alloc_col_from_matrix
  56         gsl_matrix_char_free gsl_matrix_char_submatrix
  57         gsl_matrix_char_row  gsl_matrix_char_column
  58         gsl_matrix_char_diagonal gsl_matrix_char_subdiagonal gsl_matrix_char_superdiagonal
  59         gsl_matrix_char_subrow gsl_matrix_char_subcolumn gsl_matrix_char_view_array
  60         gsl_matrix_char_view_array_with_tda gsl_matrix_char_view_vector gsl_matrix_char_view_vector_with_tda
  61         gsl_matrix_char_const_submatrix gsl_matrix_char_const_row gsl_matrix_char_const_column
  62         gsl_matrix_char_const_diagonal gsl_matrix_char_const_subdiagonal gsl_matrix_char_const_superdiagonal
  63         gsl_matrix_char_const_subrow gsl_matrix_char_const_subcolumn gsl_matrix_char_const_view_array
  64         gsl_matrix_char_const_view_array_with_tda gsl_matrix_char_const_view_vector gsl_matrix_char_const_view_vector_with_tda
  65         gsl_matrix_char_get gsl_matrix_char_set gsl_matrix_char_ptr gsl_matrix_char_const_ptr
  66         gsl_matrix_char_set_zero gsl_matrix_char_set_identity
  67         gsl_matrix_char_set_all  gsl_matrix_char_fread
  68         gsl_matrix_char_fwrite gsl_matrix_char_fscanf gsl_matrix_char_fprintf
  69         gsl_matrix_char_memcpy gsl_matrix_char_swap
  70         gsl_matrix_char_swap_rows gsl_matrix_char_swap_columns
  71         gsl_matrix_char_swap_rowcol gsl_matrix_char_transpose gsl_matrix_char_transpose_memcpy
  72         gsl_matrix_char_max gsl_matrix_char_min
  73         gsl_matrix_char_minmax  gsl_matrix_char_max_index
  74         gsl_matrix_char_min_index gsl_matrix_char_minmax_index
  75         gsl_matrix_char_isnull gsl_matrix_char_ispos gsl_matrix_char_isneg
  76         gsl_matrix_char_isnonneg  gsl_matrix_char_add
  77         gsl_matrix_char_sub gsl_matrix_char_mul_elements gsl_matrix_char_div_elements
  78         gsl_matrix_char_scale gsl_matrix_char_add_constant gsl_matrix_char_add_diagonal
  79         gsl_matrix_int_alloc gsl_matrix_int_calloc gsl_matrix_int_alloc_from_block
  80         gsl_matrix_int_alloc_from_matrix gsl_vector_int_alloc_row_from_matrix gsl_vector_int_alloc_col_from_matrix
  81         gsl_matrix_int_free gsl_matrix_int_submatrix gsl_matrix_int_row
  82         gsl_matrix_int_column gsl_matrix_int_diagonal gsl_matrix_int_subdiagonal
  83         gsl_matrix_int_superdiagonal gsl_matrix_int_subrow gsl_matrix_int_subcolumn gsl_matrix_int_view_array
  84         gsl_matrix_int_view_array_with_tda gsl_matrix_int_view_vector gsl_matrix_int_view_vector_with_tda
  85         gsl_matrix_int_const_submatrix gsl_matrix_int_const_row gsl_matrix_int_const_column
  86         gsl_matrix_int_const_diagonal gsl_matrix_int_const_subdiagonal gsl_matrix_int_const_superdiagonal
  87         gsl_matrix_int_const_subrow gsl_matrix_int_const_subcolumn gsl_matrix_int_const_view_array
  88         gsl_matrix_int_const_view_array_with_tda gsl_matrix_int_const_view_vector gsl_matrix_int_const_view_vector_with_tda
  89         gsl_matrix_int_get gsl_matrix_int_set
  90         gsl_matrix_int_ptr gsl_matrix_int_const_ptr
  91         gsl_matrix_int_set_zero gsl_matrix_int_set_identity gsl_matrix_int_set_all
  92         gsl_matrix_int_fread gsl_matrix_int_fwrite
  93         gsl_matrix_int_fscanf gsl_matrix_int_fprintf
  94         gsl_matrix_int_memcpy gsl_matrix_int_swap
  95         gsl_matrix_int_swap_rows gsl_matrix_int_swap_columns gsl_matrix_int_swap_rowcol
  96         gsl_matrix_int_transpose gsl_matrix_int_transpose_memcpy
  97         gsl_matrix_int_max gsl_matrix_int_min gsl_matrix_int_minmax
  98         gsl_matrix_int_max_index gsl_matrix_int_min_index
  99         gsl_matrix_int_minmax_index  gsl_matrix_int_isnull
 100         gsl_matrix_int_ispos gsl_matrix_int_isneg gsl_matrix_int_isnonneg
 101         gsl_matrix_int_add gsl_matrix_int_sub
 102         gsl_matrix_int_mul_elements gsl_matrix_int_div_elements gsl_matrix_int_scale
 103         gsl_matrix_int_add_constant gsl_matrix_int_add_diagonal
 104         gsl_matrix_get_row gsl_matrix_get_col gsl_matrix_set_row gsl_matrix_set_col
 105         gsl_matrix_complex_alloc gsl_matrix_complex_calloc gsl_matrix_complex_alloc_from_block
 106         gsl_matrix_complex_alloc_from_matrix gsl_vector_complex_alloc_row_from_matrix gsl_vector_complex_alloc_col_from_matrix
 107         gsl_matrix_complex_free gsl_matrix_complex_submatrix gsl_matrix_complex_row
 108         gsl_matrix_complex_column gsl_matrix_complex_diagonal gsl_matrix_complex_subdiagonal
 109         gsl_matrix_complex_superdiagonal gsl_matrix_complex_subrow gsl_matrix_complex_subcolumn
 110         gsl_matrix_complex_view_array gsl_matrix_complex_view_array_with_tda gsl_matrix_complex_view_vector
 111         gsl_matrix_complex_view_vector_with_tda gsl_matrix_complex_const_submatrix gsl_matrix_complex_const_row
 112         gsl_matrix_complex_const_column gsl_matrix_complex_const_diagonal gsl_matrix_complex_const_subdiagonal
 113         gsl_matrix_complex_const_superdiagonal gsl_matrix_complex_const_subrow gsl_matrix_complex_const_subcolumn
 114         gsl_matrix_complex_const_view_array gsl_matrix_complex_const_view_array_with_tda gsl_matrix_complex_const_view_vector
 115         gsl_matrix_complex_const_view_vector_with_tda gsl_matrix_complex_get gsl_matrix_complex_set
 116         gsl_matrix_complex_ptr gsl_matrix_complex_const_ptr gsl_matrix_complex_set_zero
 117         gsl_matrix_complex_set_identity gsl_matrix_complex_set_all gsl_matrix_complex_fread
 118         gsl_matrix_complex_fwrite gsl_matrix_complex_fscanf gsl_matrix_complex_fprintf
 119         gsl_matrix_complex_memcpy gsl_matrix_complex_swap gsl_matrix_complex_swap_rows
 120         gsl_matrix_complex_swap_columns gsl_matrix_complex_swap_rowcol gsl_matrix_complex_transpose
 121         gsl_matrix_complex_transpose_memcpy gsl_matrix_complex_isnull gsl_matrix_complex_ispos
 122         gsl_matrix_complex_isneg gsl_matrix_complex_add gsl_matrix_complex_sub
 123         gsl_matrix_complex_mul_elements gsl_matrix_complex_div_elements gsl_matrix_complex_scale
 124         gsl_matrix_complex_add_constant gsl_matrix_complex_add_diagonal gsl_matrix_complex_get_row
 125         gsl_matrix_complex_get_col gsl_matrix_complex_set_row gsl_matrix_complex_set_col /;
 126
 127
 128
 129 %EXPORT_TAGS = ( all => [ @EXPORT_OK ],
 130                  char => [ qw/
 131                     gsl_matrix_char_alloc
 132                     gsl_matrix_char_calloc
 133                     gsl_matrix_char_alloc_from_block
 134                     gsl_matrix_char_alloc_from_matrix
 135                     gsl_vector_char_alloc_row_from_matrix
 136                     gsl_vector_char_alloc_col_from_matrix
 137                     gsl_matrix_char_free
 138                     gsl_matrix_char_submatrix
 139                     gsl_matrix_char_row
 140                     gsl_matrix_char_column
 141                     gsl_matrix_char_diagonal
 142                     gsl_matrix_char_subdiagonal
 143                     gsl_matrix_char_superdiagonal
 144                     gsl_matrix_char_subrow
 145                     gsl_matrix_char_subcolumn
 146                     gsl_matrix_char_view_array
 147                     gsl_matrix_char_view_array_with_tda
 148                     gsl_matrix_char_view_vector
 149                     gsl_matrix_char_view_vector_with_tda
 150                     gsl_matrix_char_const_submatrix
 151                     gsl_matrix_char_const_row
 152                     gsl_matrix_char_const_column
 153                     gsl_matrix_char_const_diagonal
 154                     gsl_matrix_char_const_subdiagonal
 155                     gsl_matrix_char_const_superdiagonal
 156                     gsl_matrix_char_const_subrow
 157                     gsl_matrix_char_const_subcolumn
 158                     gsl_matrix_char_const_view_array
 159                     gsl_matrix_char_const_view_array_with_tda
 160                     gsl_matrix_char_const_view_vector
 161                     gsl_matrix_char_const_view_vector_with_tda
 162                     gsl_matrix_char_get
 163                     gsl_matrix_char_set
 164                     gsl_matrix_char_ptr
 165                     gsl_matrix_char_const_ptr
 166                     gsl_matrix_char_set_zero
 167                     gsl_matrix_char_set_identity
 168                     gsl_matrix_char_set_all
 169                     gsl_matrix_char_fread
 170                     gsl_matrix_char_fwrite
 171                     gsl_matrix_char_fscanf
 172                     gsl_matrix_char_fprintf
 173                     gsl_matrix_char_memcpy
 174                     gsl_matrix_char_swap
 175                     gsl_matrix_char_swap_rows
 176                     gsl_matrix_char_swap_columns
 177                     gsl_matrix_char_swap_rowcol
 178                     gsl_matrix_char_transpose
 179                     gsl_matrix_char_transpose_memcpy
 180                     gsl_matrix_char_max
 181                     gsl_matrix_char_min
 182                     gsl_matrix_char_minmax
 183                     gsl_matrix_char_max_index
 184                     gsl_matrix_char_min_index
 185                     gsl_matrix_char_minmax_index
 186                     gsl_matrix_char_isnull
 187                     gsl_matrix_char_ispos
 188                     gsl_matrix_char_isneg
 189                     gsl_matrix_char_isnonneg
 190                     gsl_matrix_char_add
 191                     gsl_matrix_char_sub
 192                     gsl_matrix_char_mul_elements
 193                     gsl_matrix_char_div_elements
 194                     gsl_matrix_char_scale
 195                     gsl_matrix_char_add_constant
 196                     gsl_matrix_char_add_diagonal
 197                      /],
 198
 199                  double => [ qw/
 200                     gsl_matrix_alloc
 201                     gsl_matrix_calloc
 202                     gsl_matrix_alloc_from_block
 203                     gsl_matrix_alloc_from_matrix
 204                     gsl_vector_alloc_row_from_matrix
 205                     gsl_vector_alloc_col_from_matrix
 206                     gsl_matrix_free
 207                     gsl_matrix_submatrix
 208                     gsl_matrix_row
 209                     gsl_matrix_column
 210                     gsl_matrix_diagonal
 211                     gsl_matrix_subdiagonal
 212                     gsl_matrix_superdiagonal
 213                     gsl_matrix_subrow
 214                     gsl_matrix_subcolumn
 215                     gsl_matrix_view_array
 216                     gsl_matrix_view_array_with_tda
 217                     gsl_matrix_view_vector
 218                     gsl_matrix_view_vector_with_tda
 219                     gsl_matrix_const_submatrix
 220                     gsl_matrix_const_row
 221                     gsl_matrix_const_column
 222                     gsl_matrix_const_diagonal
 223                     gsl_matrix_const_subdiagonal
 224                     gsl_matrix_const_superdiagonal
 225                     gsl_matrix_const_subrow
 226                     gsl_matrix_const_subcolumn
 227                     gsl_matrix_const_view_array
 228                     gsl_matrix_const_view_array_with_tda
 229                     gsl_matrix_const_view_vector
 230                     gsl_matrix_const_view_vector_with_tda
 231                     gsl_matrix_get
 232                     gsl_matrix_set
 233                     gsl_matrix_ptr
 234                     gsl_matrix_const_ptr
 235                     gsl_matrix_set_zero
 236                     gsl_matrix_set_identity
 237                     gsl_matrix_set_all
 238                     gsl_matrix_fread
 239                     gsl_matrix_fwrite
 240                     gsl_matrix_fscanf
 241                     gsl_matrix_fprintf
 242                     gsl_matrix_memcpy
 243                     gsl_matrix_swap
 244                     gsl_matrix_swap_rows
 245                     gsl_matrix_swap_columns
 246                     gsl_matrix_swap_rowcol
 247                     gsl_matrix_transpose
 248                     gsl_matrix_transpose_memcpy
 249                     gsl_matrix_max
 250                     gsl_matrix_minmax
 251                     gsl_matrix_max_index
 252                     gsl_matrix_min_index
 253                     gsl_matrix_minmax_index
 254                     gsl_matrix_isnull
 255                     gsl_matrix_ispos
 256                     gsl_matrix_isneg
 257                     gsl_matrix_isnonneg
 258                     gsl_matrix_add
 259                     gsl_matrix_mul_elements
 260                     gsl_matrix_div_elements
 261                     gsl_matrix_scale
 262                     gsl_matrix_add_constant
 263                     gsl_matrix_add_diagonal
 264                     /],
 265 int => [ qw/
 266                  gsl_matrix_int_alloc
 267                  gsl_matrix_int_alloc_from_matrix
 268                  gsl_matrix_int_free
 269                  gsl_matrix_int_column
 270                  gsl_matrix_int_superdiagonal
 271                  gsl_matrix_int_view_array_with_tda
 272                  gsl_matrix_int_const_submatrix
 273                  gsl_matrix_int_const_diagonal
 274                  gsl_matrix_int_const_subrow
 275                  gsl_matrix_int_const_view_array_with_tda
 276                  gsl_matrix_int_get
 277                  gsl_matrix_int_ptr
 278                  gsl_matrix_int_set_zero
 279                  gsl_matrix_int_fread
 280                  gsl_matrix_int_fscanf
 281                  gsl_matrix_int_memcpy
 282                  gsl_matrix_int_swap_rows
 283                  gsl_matrix_int_transpose
 284                  gsl_matrix_int_max
 285                  gsl_matrix_int_max_index
 286                  gsl_matrix_int_minmax_index
 287                  gsl_matrix_int_ispos
 288                  gsl_matrix_int_add
 289                  gsl_matrix_int_mul_elements
 290                  gsl_matrix_int_add_constant
 291                  /],
 292   complex => [ qw/
 293                  gsl_matrix_complex_alloc
 294                  gsl_matrix_complex_calloc
 295                  gsl_matrix_complex_alloc_from_block
 296                  gsl_matrix_complex_alloc_from_matrix
 297                  gsl_vector_complex_alloc_row_from_matrix
 298                  gsl_vector_complex_alloc_col_from_matrix
 299                  gsl_matrix_complex_free
 300                  gsl_matrix_complex_submatrix
 301                  gsl_matrix_complex_row
 302                  gsl_matrix_complex_column
 303                  gsl_matrix_complex_diagonal
 304                  gsl_matrix_complex_subdiagonal
 305                  gsl_matrix_complex_superdiagonal
 306                  gsl_matrix_complex_subrow
 307                  gsl_matrix_complex_subcolumn
 308                  gsl_matrix_complex_view_array
 309                  gsl_matrix_complex_view_array_with_tda
 310                  gsl_matrix_complex_view_vector
 311                  gsl_matrix_complex_view_vector_with_tda
 312                  gsl_matrix_complex_const_submatrix
 313                  gsl_matrix_complex_const_row
 314                  gsl_matrix_complex_const_column
 315                  gsl_matrix_complex_const_diagonal
 316                  gsl_matrix_complex_const_subdiagonal
 317                  gsl_matrix_complex_const_superdiagonal
 318                  gsl_matrix_complex_const_subrow
 319                  gsl_matrix_complex_const_subcolumn
 320                  gsl_matrix_complex_const_view_array
 321                  gsl_matrix_complex_const_view_array_with_tda
 322                  gsl_matrix_complex_const_view_vector
 323                  gsl_matrix_complex_const_view_vector_with_tda
 324                  gsl_matrix_complex_get
 325                  gsl_matrix_complex_set
 326                  gsl_matrix_complex_ptr
 327                  gsl_matrix_complex_const_ptr
 328                  gsl_matrix_complex_set_zero gsl_matrix_complex_set_identity
 329                  gsl_matrix_complex_set_all
 330                  gsl_matrix_complex_fread
 331                  gsl_matrix_complex_fwrite
 332                  gsl_matrix_complex_fscanf
 333                  gsl_matrix_complex_fprintf
 334                  gsl_matrix_complex_memcpygsl_matrix_complex_swap
 335                  gsl_matrix_complex_swap_rows
 336                  gsl_matrix_complex_swap_columns
 337                  gsl_matrix_complex_swap_rowcol
 338                  gsl_matrix_complex_transpose
 339                  gsl_matrix_complex_transpose_memcpy
 340                  gsl_matrix_complex_isnull
 341                  gsl_matrix_complex_ispos
 342                  gsl_matrix_complex_isneg
 343                  gsl_matrix_complex_add
 344                  gsl_matrix_complex_sub
 345                  gsl_matrix_complex_mul_elements
 346                  gsl_matrix_complex_div_elements
 347                  gsl_matrix_complex_scale
 348                  gsl_matrix_complex_add_constant
 349                  gsl_matrix_complex_add_diagonal
 350                  gsl_matrix_complex_get_row
 351                  gsl_matrix_complex_get_col
 352                  gsl_matrix_complex_set_row
 353                  gsl_matrix_complex_set_col
 354                  /]);
 355
 356 sub new {
 357     my ($class, $rows, $cols) = @_;
 358     my $this = {};
 359     my $matrix;
 360     if ( defined $rows       && defined $cols &&
 361         $rows > 0            && $cols > 0     &&
 362         (int $rows == $rows) && (int $cols == $cols)){
 363
 364         $matrix  = gsl_matrix_alloc($rows,$cols);
 365     } else {
 366         die __PACKAGE__.'::new($x,$y) - $x and $y must be positive integers';
 367     }
 368     $this->{_matrix} = $matrix;
 369     ($this->{_rows}, $this->{_cols}) = ($rows,$cols);
 370     bless $this, $class;
 371 }
 372 sub raw  { (shift)->{_matrix} }
 373 sub rows { (shift)->{_rows}   }
 374 sub cols { (shift)->{_cols}   }
 375
 376 __END__
 377
 378 =head1 NAME
 379
 380 Math::GSL::Matrix - Mathematical functions concerning Matrices
 381
 382 =head1 SYPNOPSIS
 383
 384 use Math::GSL::Matrix qw/:all/;
 385
 386 =head1 DESCRIPTION
 387
 388 Here is a list of all the functions included in this module :
 389
 390 =over 1
 391
 392 =item C<gsl_matrix_alloc($i, $j)> - Return a gsl_matrix of $i rows and $j columns
 393
 394 =item C<gsl_matrix_calloc($i, $j)> - Return a gsl_matrix of $i rows and $j columns and initialize all of the elements of the matrix to zero
 395
 396 =item C<gsl_matrix_alloc_from_block> -
 397
 398 =item C<gsl_matrix_free> -
 399
 400 =item C<gsl_matrix_alloc_from_matrix > -
 401
 402 =item C<gsl_vector_alloc_row_from_matrix> -
 403
 404 =item C<gsl_vector_alloc_col_from_matrix > -
 405
 406 =item C<gsl_matrix_submatrix($m, $k1, $k2, $n1, $n2)> - Return a matrix view of the matrix $m. The upper-left element of the submatrix is the element ($k1,$k2) of the original matrix. The submatrix has $n1 rows and $n2 columns.
 407
 408 =item C<gsl_matrix_row($m , $i)> - Return a vector view of the $i-th row of the matrix $m
 409
 410 =item C<gsl_matrix_column($m, $j)> - Return a vector view of the $j-th column of the matrix $m
 411
 412 =item C<gsl_matrix_diagonal($m)> - Return a vector view of the diagonal of the vector. The matrix doesn't have to be square.
 413
 414 =item C<gsl_matrix_subdiagonal($m, $k)> - Return a vector view of the $k-th subdiagonal of the matrix $m. The diagonal of the matrix corresponds to k=0.
 415
 416 =item C<gsl_matrix_superdiagonal($m, $k)> - Return a vector view of the $k-th superdiagonal of the matrix $m. The matrix doesn't have to be square.
 417
 418 =item C<gsl_matrix_subrow($m, $i, $offset, $n)> - Return a vector view of the $i-th row of the matrix $m beginning at offset elements and containing n elements.
 419
 420 =item C<gsl_matrix_subcolumn($m, $j, $offset, $n)> - Return a vector view of the $j-th column of the matrix $m beginning at offset elements and containing n elements.
 421
 422 =item C<gsl_matrix_view_array> -
 423
 424 =item C<gsl_matrix_view_array_with_tda > -
 425
 426 =item C<gsl_matrix_view_vector> -
 427
 428 =item C<gsl_matrix_view_vector_with_tda> -
 429
 430 =item C<gsl_matrix_const_submatrix> -
 431
 432 =item C<gsl_matrix_get($m, $i, $j)> - Return the (i,j)-th element of the matrix $m
 433
 434 =item C<gsl_matrix_set($m, $i, $j, $x)> - Set the value of the (i,j)-th element of the matrix $m to $x
 435
 436 =item C<gsl_matrix_ptr> -
 437
 438 =item C<gsl_matrix_const_ptr> -
 439
 440 =item C<gsl_matrix_set_zero($m)> - Set all the elements of the matrix $m to zero
 441
 442 =item C<gsl_matrix_set_identity($m)> - Set the elements of the matrix $m to the corresponding elements of the identity matrix
 443
 444 =item C<gsl_matrix_set_all($m, $x)> - Set all the elements of the matrix $m to the value $x
 445
 446 =item C<gsl_matrix_fread($fh, $m)> - Read a file which has been written with gsl_matrix_fwrite from the stream $fh opened with the fopen function and stores the data inside the matrix $m
 447
 448 =item C<gsl_matrix_fwrite($fh, $m)> - Write the elements of the matrix $m in binary format to a stream $fh opened with the fopen function
 449
 450 =item C<gsl_matrix_fscanf($fh, $m)> - Read a file which has been written with gsl_matrix_fprintf from the stream $fh opened with the fopen function and stores the data inside the matrix $m
 451
 452 =item C<gsl_matrix_fprintf($fh, $m, $format)> - Write the elements of the matrix $m in the format $format (for example "%f" is the format for double) to a stream $fh opened with the fopen function
 453
 454 =item C<gsl_matrix_memcpy($dest, $src)> - Copy the elements of the matrix $src to the matrix $dest. The two matrices must have the same size.
 455
 456 =item C<gsl_matrix_swap($m1, $m2)> - Exchange the elements of the matrices $m1 and $m2 by copying. The two matrices must have the same size.
 457
 458 =item C<gsl_matrix_swap_rows($m, $i, $j)> - Exchange the $i-th and $j-th row of the matrix $m. The function returns 0 if the operation suceeded, 1 otherwise.
 459
 460 =item C<gsl_matrix_swap_columns($m, $i, $j)> - Exchange the $i-th and $j-th column of the matrix $m. The function returns 0 if the operation suceeded, 1 otherwise.
 461
 462 =item C<gsl_matrix_swap_rowcol($m, $i, $j)> - Exchange the $i-th row and the $j-th column of the matrix $m. The matrix must be square. The function returns 0 if the operation suceeded, 1 otherwise.
 463
 464 =item C<gsl_matrix_transpose($m)> - This function replaces the matrix m by its transpose by copying the elements of the matrix in-place. The matrix must be square for this operation to be possible.
 465
 466 =item C<gsl_matrix_transpose_memcpy($dest, $src)> - Make the matrix $dest the transpose of the matrix $src. This function works for all matrices provided that the dimensions of the matrix dest match the transposed dimensions of the matrix src.
 467
 468 =item C<gsl_matrix_max($m)> - Return the maximum value in the matrix $m
 469
 470 =item C<gsl_matrix_min($m)> - Return the minimum value in the matrix $m
 471
 472 =item C<gsl_matrix_minmax($m)> - Return two values, the first is the minimum value of the Matrix $m and the second is the maximum of the same the same matrix.
 473
 474 =item C<gsl_matrix_max_index($m)> - Return two values, the first is the the i indice of the maximum value of the matrix $m and the second is the j indice of the same value.
 475
 476 =item C<gsl_matrix_min_index($m)> - Return two values, the first is the the i indice of the minimum value of the matrix $m and the second is the j indice of the same value.
 477
 478 =item C<gsl_matrix_minmax_index($m)> - Return four values, the first is the i indice of the minimum of the matrix $m, the second is the j indice of the same value, the third is the i indice of the maximum of the matrix $m and the fourth is the j indice of the same value
 479
 480 =item C<gsl_matrix_isnull($m)> - Return 1 if all the elements of the matrix $m are zero, 0 otherwise
 481
 482 =item C<gsl_matrix_ispos($m)> - Return 1 if all the elements of the matrix $m are strictly positve, 0 otherwise
 483
 484 =item C<gsl_matrix_isneg($m)> - Return 1 if all the elements of the matrix $m are strictly negative, 0 otherwise
 485
 486 =item C<gsl_matrix_isnonneg($m)> - Return 1 if all the elements of the matrix $m are non-negatuive, 0 otherwise
 487
 488 =item C<gsl_matrix_add($a, $b)> - Add the elements of matrix $b to the elements of matrix $a
 489
 490 =item C<gsl_matrix_sub($a, $b)> - Subtract the elements of matrix $b from the elements of matrix $a
 491
 492 =item C<gsl_matrix_mul_elements($a, $b)> - Multiplie the elements of matrix $a by the elements of matrix $b
 493
 494 =item C<gsl_matrix_div_elements($a, $b)> - Divide the elements of matrix $a by the elements of matrix $b
 495
 496 =item C<gsl_matrix_scale($a, $x)> - Multiplie the elements of matrix $a by the constant factor $x
 497
 498 =item C<gsl_matrix_add_constant($a, $x)> - Add the constant value $x to the elements of the matrix $a
 499
 500 =item C<gsl_matrix_add_diagonal($a, $x)> - Add the constant value $x to the elements of the diagonal of the matrix $a
 501
 502 =item C<gsl_matrix_get_row($v, $m, $i)> - Copy the elements of the $i-th row of the matrix $m into the vector $v. The lenght of the vector must be of the same as the lenght of the row. The function returns 0 if it succeded, 1 otherwise.
 503
 504 =item C<gsl_matrix_get_col($v, $m, $i)> - Copy the elements of the $j-th column of the matrix $m into the vector $v. The lenght of the vector must be of the same as the lenght of the column. The function returns 0 if it succeded, 1 otherwise.
 505
 506 =item C<gsl_matrix_set_row($m, $i, $v)> - Copy the elements of vector $v into the $i-th row of the matrix $m The lenght of the vector must be of the same as the lenght of the row. The function returns 0 if it succeded, 1 otherwise.
 507
 508 =item C<gsl_matrix_set_col($m, $j, $v)> - Copy the elements of vector $v into the $j-th row of the matrix $m The lenght of the vector must be of the same as the lenght of the column. The function returns 0 if it succeded, 1 otherwise.
 509
 510 =back
 511
 512 The following functions are specific to matrices containing complex numbers :
 513
 514 =over 1
 515
 516 =item C<gsl_matrix_complex_alloc >
 517
 518 =item C<gsl_matrix_complex_calloc >
 519
 520 =item C<gsl_matrix_complex_alloc_from_block >
 521
 522 =item C<gsl_matrix_complex_alloc_from_matrix >
 523
 524 =item C<gsl_vector_complex_alloc_row_from_matrix >
 525
 526 =item C<gsl_vector_complex_alloc_col_from_matrix >
 527
 528 =item C<gsl_matrix_complex_free >
 529
 530 =item C<gsl_matrix_complex_submatrix >
 531
 532 =item C<gsl_matrix_complex_row >
 533
 534 =item C<gsl_matrix_complex_column >
 535
 536 =item C<gsl_matrix_complex_diagonal >
 537
 538 =item C<gsl_matrix_complex_subdiagonal >
 539
 540 =item C<gsl_matrix_complex_superdiagonal >
 541
 542 =item C<gsl_matrix_complex_subrow >
 543
 544 =item C<gsl_matrix_complex_subcolumn >
 545
 546 =item C<gsl_matrix_complex_view_array >
 547
 548 =item C<gsl_matrix_complex_view_array_with_tda >
 549
 550 =item C<gsl_matrix_complex_view_vector >
 551
 552 =item C<gsl_matrix_complex_view_vector_with_tda >
 553
 554 =item C<gsl_matrix_complex_const_submatrix >
 555
 556 =item C<gsl_matrix_complex_const_row >
 557
 558 =item C<gsl_matrix_complex_const_column >
 559
 560 =item C<gsl_matrix_complex_const_diagonal >
 561
 562 =item C<gsl_matrix_complex_const_subdiagonal >
 563
 564 =item C<gsl_matrix_complex_const_superdiagonal >
 565
 566 =item C<gsl_matrix_complex_const_subrow >
 567
 568 =item C<gsl_matrix_complex_const_subcolumn >
 569
 570 =item C<gsl_matrix_complex_const_view_array >
 571
 572 =item C<gsl_matrix_complex_const_view_array_with_tda >
 573
 574 =item C<gsl_matrix_complex_const_view_vector >
 575
 576 =item C<gsl_matrix_complex_const_view_vector_with_tda >
 577
 578 =item C<gsl_matrix_complex_get>
 579
 580 =item C<gsl_matrix_complex_set>
 581
 582 =item C<gsl_matrix_complex_ptr>
 583
 584 =item C<gsl_matrix_complex_const_ptr>
 585
 586 =item C<gsl_matrix_complex_set_zero >
 587
 588 =item C<gsl_matrix_complex_set_identity >
 589
 590 =item C<gsl_matrix_complex_set_all >
 591
 592 =item C<gsl_matrix_complex_fread >
 593
 594 =item C<gsl_matrix_complex_fwrite >
 595
 596 =item C<gsl_matrix_complex_fscanf >
 597
 598 =item C<gsl_matrix_complex_fprintf >
 599
 600 =item C<gsl_matrix_complex_memcpy>
 601
 602 =item C<gsl_matrix_complex_swap>
 603
 604 =item C<gsl_matrix_complex_swap_rows>
 605
 606 =item C<gsl_matrix_complex_swap_columns>
 607
 608 =item C<gsl_matrix_complex_swap_rowcol>
 609
 610 =item C<gsl_matrix_complex_transpose >
 611
 612 =item C<gsl_matrix_complex_transpose_memcpy >
 613
 614 =item C<gsl_matrix_complex_isnull >
 615
 616 =item C<gsl_matrix_complex_ispos >
 617
 618 =item C<gsl_matrix_complex_isneg >
 619
 620 =item C<gsl_matrix_complex_add >
 621
 622 =item C<gsl_matrix_complex_sub >
 623
 624 =item C<gsl_matrix_complex_mul_elements >
 625
 626 =item C<gsl_matrix_complex_div_elements >
 627
 628 =item C<gsl_matrix_complex_scale >
 629
 630 =item C<gsl_matrix_complex_add_constant >
 631
 632 =item C<gsl_matrix_complex_add_diagonal >
 633
 634 =item C<gsl_matrix_complex_get_row>
 635
 636 =item C<gsl_matrix_complex_get_col>
 637
 638 =item C<gsl_matrix_complex_set_row>
 639
 640 =item C<gsl_matrix_complex_set_col>
 641
 642 =back
 643
 644
 645 The following functions are the same as the previous enonced ones except that they work with other data types than double.
 646
 647 =over 1
 648
 649 =item gsl_matrix_const_row gsl_matrix_const_column gsl_matrix_const_diagonal
 650
 651 =item gsl_matrix_const_subdiagonal gsl_matrix_const_superdiagonal
 652
 653 =item gsl_matrix_const_subrow gsl_matrix_const_subcolumn
 654
 655 =item gsl_matrix_const_view_array gsl_matrix_const_view_array_with_tda
 656
 657 =item gsl_matrix_const_view_vector gsl_matrix_const_view_vector_with_tda gsl_matrix_char_alloc gsl_matrix_char_calloc  gsl_matrix_char_alloc_from_block
 658
 659 =item gsl_matrix_char_alloc_from_matrix gsl_vector_char_alloc_row_from_matrix gsl_vector_char_alloc_col_from_matrix
 660
 661 =item gsl_matrix_char_free gsl_matrix_char_submatrix gsl_matrix_char_row  gsl_matrix_char_column
 662
 663 =item gsl_matrix_char_diagonal gsl_matrix_char_subdiagonal gsl_matrix_char_superdiagonal
 664
 665 =item gsl_matrix_char_subrow gsl_matrix_char_subcolumn gsl_matrix_char_view_array
 666
 667 =item gsl_matrix_char_view_array_with_tda gsl_matrix_char_view_vector gsl_matrix_char_view_vector_with_tda
 668
 669 =item gsl_matrix_char_const_submatrix gsl_matrix_char_const_row gsl_matrix_char_const_column
 670
 671 =item gsl_matrix_char_const_diagonal gsl_matrix_char_const_subdiagonal gsl_matrix_char_const_superdiagonal
 672
 673 =item gsl_matrix_char_const_subrow gsl_matrix_char_const_subcolumn gsl_matrix_char_const_view_array
 674
 675 =item gsl_matrix_char_const_view_array_with_tda gsl_matrix_char_const_view_vector gsl_matrix_char_const_view_vector_with_tda
 676
 677 =item gsl_matrix_char_get gsl_matrix_char_set gsl_matrix_char_ptr gsl_matrix_char_const_ptr
 678
 679 =item gsl_matrix_char_set_zero gsl_matrix_char_set_identity
 680
 681 =item gsl_matrix_char_set_all  gsl_matrix_char_fread
 682
 683 =item gsl_matrix_char_fwrite gsl_matrix_char_fscanf gsl_matrix_char_fprintf
 684
 685 =item gsl_matrix_char_memcpy gsl_matrix_char_swap
 686
 687 =item gsl_matrix_char_swap_rows gsl_matrix_char_swap_columns
 688
 689 =item gsl_matrix_char_swap_rowcol gsl_matrix_char_transpose gsl_matrix_char_transpose_memcpy
 690
 691 =item gsl_matrix_char_max gsl_matrix_char_min
 692
 693 =item gsl_matrix_char_minmax  gsl_matrix_char_max_index
 694
 695 =item gsl_matrix_char_min_index gsl_matrix_char_minmax_index
 696
 697 =item gsl_matrix_char_isnull gsl_matrix_char_ispos gsl_matrix_char_isneg
 698
 699 =item gsl_matrix_char_isnonneg  gsl_matrix_char_add
 700
 701 =item gsl_matrix_char_sub gsl_matrix_char_mul_elements gsl_matrix_char_div_elements
 702
 703 =item gsl_matrix_char_scale gsl_matrix_char_add_constant gsl_matrix_char_add_diagonal
 704
 705 =item gsl_matrix_int_alloc gsl_matrix_int_calloc gsl_matrix_int_alloc_from_block
 706
 707 =item gsl_matrix_int_alloc_from_matrix gsl_vector_int_alloc_row_from_matrix gsl_vector_int_alloc_col_from_matrix
 708
 709 =item gsl_matrix_int_free gsl_matrix_int_submatrix gsl_matrix_int_row
 710
 711 =item gsl_matrix_int_column gsl_matrix_int_diagonal gsl_matrix_int_subdiagonal gsl_matrix_int_superdiagonal gsl_matrix_int_subrow gsl_matrix_int_subcolumn gsl_matrix_int_view_array gsl_matrix_int_view_array_with_tda gsl_matrix_int_view_vector gsl_matrix_int_view_vector_with_tda
 712
 713 =item gsl_matrix_int_const_submatrix gsl_matrix_int_const_row gsl_matrix_int_const_column
 714
 715
 716 =item gsl_matrix_int_const_diagonal gsl_matrix_int_const_subdiagonal gsl_matrix_int_const_superdiagonal
 717
 718 =item gsl_matrix_int_const_subrow gsl_matrix_int_const_subcolumn gsl_matrix_int_const_view_array
 719
 720 =item gsl_matrix_int_const_view_array_with_tda gsl_matrix_int_const_view_vector gsl_matrix_int_const_view_vector_with_tda
 721
 722 =item gsl_matrix_int_get gsl_matrix_int_set
 723
 724 =item gsl_matrix_int_ptr gsl_matrix_int_const_ptr
 725
 726 =item gsl_matrix_int_set_zero gsl_matrix_int_set_identity gsl_matrix_int_set_all
 727
 728 =item gsl_matrix_int_fread gsl_matrix_int_fwrite
 729
 730 =item gsl_matrix_int_fscanf gsl_matrix_int_fprintf
 731
 732 =item gsl_matrix_int_memcpy gsl_matrix_int_swap
 733
 734 =item gsl_matrix_int_swap_rows gsl_matrix_int_swap_columns gsl_matrix_int_swap_rowcol
 735
 736 =item gsl_matrix_int_transpose gsl_matrix_int_transpose_memcpy
 737
 738 =item gsl_matrix_int_max gsl_matrix_int_min gsl_matrix_int_minmax
 739
 740 =item gsl_matrix_int_max_index gsl_matrix_int_min_index
 741
 742 =item gsl_matrix_int_minmax_index  gsl_matrix_int_isnull
 743
 744 =item gsl_matrix_int_ispos gsl_matrix_int_isneg gsl_matrix_int_isnonneg
 745
 746 =item gsl_matrix_int_add gsl_matrix_int_sub
 747
 748 =item gsl_matrix_int_mul_elements gsl_matrix_int_div_elements gsl_matrix_int_scale
 749
 750 =item gsl_matrix_int_add_constant gsl_matrix_int_add_diagonal
 751
 752 =back
 753
 754 You have to add the functions you want to use inside the qw /put_funtion_here /.
 755 You can also write use Math::GSL::PowInt qw/:all/ to use all avaible functions of the module.
 756 Other tags are also avaible, here is a complete list of all tags for this module :
 757
 758 =over 1
 759
 760 =item C<all>
 761
 762 =item C<int>
 763
 764 =item C<double>
 765
 766 =item C<char>
 767
 768 =item C<complex>
 769
 770 =back
 771
 772 For more informations on the functions, we refer you to the GSL offcial documentation: http://www.gnu.org/software/gsl/manual/html_node/
 773 Tip : search on google: site:http://www.gnu.org/software/gsl/manual/html_node/name_of_the_function_you_want
 774
 775 =head1 EXAMPLES
 776
 777  Most of the examples from this section are perl versions of the examples there : http://www.gnu.org/software/gsl/manual/html_node/Example-programs-for-matrices.html
 778
 779  The program below shows how to allocate, initialize and read from a matrix using the functions gsl_matrix_alloc, gsl_matrix_set and gsl_matrix_get.
 780
 781  use Math::GSL::Matrix qw/:all/;
 782  $m = gsl_matrix_alloc (10,3);
 783  for($i = 0; $i< 10; $i++){
 784     for($j = 0; $j<3; $j++){
 785         gsl_matrix_set($m, $i, $j, 0.23 + 100*$i + $j);
 786     }
 787  }
 788
 789  for($i = 0; $i< 100; $i++){ # OUT OF RANGE ERROR
 790      for($j=0; $j<3; $j++){
 791         print "m($i, $j) = " . gsl_matrix_get ($m, $i, $j) . "\n";
 792     }
 793  }
 794  gsl_matrix_free ($m);
 795
 796
 797  use Math::GSL::Matrix qw/:all/;
 798
 799  $m = gsl_matrix_alloc (100, 100);
 800  $a = gsl_matrix_alloc (100, 100);
 801
 802  for($i = 0; $i < 100; $i++){
 803      for($j = 0; $j < 100; $j++){
 804          gsl_matrix_set ($m, $i, $j, 0.23 + $i + $j);
 805      }
 806  }
 807
 808  The next program shows how to write a matrix to a file.
 809
 810  $out = fopen("test.dat", "wb");
 811  gsl_matrix_fwrite ($out, $m);
 812  fclose ($out);
 813
 814  $in = fopen("test.dat", "rb");
 815  gsl_matrix_fread ($in, $a);
 816  fclose($in);
 817
 818  $k=0;
 819  for($i = 0; $i < 100; $i++){
 820      for($j = 0; $j < 100; $j++){
 821          $mij = gsl_matrix_get ($m, $i, $j);
 822          $aij = gsl_matrix_get ($a, $i, $j);
 823          if ($mij != $aij){ $k++ };
 824      }
 825  }
 826
 827  gsl_matrix_free($m);
 828  gsl_matrix_free($a);
 829
 830  print "differences = $k (should be zero)\n";
 831
 832 =head1 AUTHOR
 833
 834 Jonathan Leto <jonathan@leto.net> and Thierry Moisan <thierry.moisan@gmail.com>
 835
 836 =head1 COPYRIGHT AND LICENSE
 837
 838 Copyright (C) 2008 Jonathan Leto and Thierry Moisan
 839
 840 This program is free software; you can redistribute it and/or modify it
 841 under the same terms as Perl itself.
 842
 843 =cut
 844
 845 %}