2016-09-13 108 views
1

我已经分配了一个大的gsl_matrix,并想分配其所有具有已知浮点值的元素。有没有办法做到这一点,而不使用每个元素的gsl_matrix_set?我正在寻找fortran的重塑函数来初始化矩阵的等价物。初始化GSL矩阵的元素

A = reshape((/0, 1, 2, 3, 4, 5, 6, 7, 
0, 1, 2, 3, 4, 5, 6, 7, 
0, 1, 2, 3, 4, 5, 6, 7, 
0, 1, 2, 3, 4, 5, 6, 7, 
0, 1, 2, 3, 4, 5, 6, 7, 
0, 1, 2, 3, 4, 5, 6, 7, 
0, 1, 2, 3, 4, 5, 6, 7, 
0, 1, 2, 3, 4, 5, 6, 7/), (/ 8, 8/)) 

回答

2

矩阵仅支持的所有值的有限设置,即通过gsl_matrix_set_allgsl_matrix_set_zerogsl_matrix_set_identity

然而,可以创建并初始化一个数组,然后从该创建矩阵视图使用gsl_matrix_view_arraygsl_matrix_const_view_array,或gsl_matrix_view_array_with_tdagsl_matrix_const_view_array_with_tda。 (矩阵视图在GSL中很常见,例如,它们用于表示由gsl_matrix_submatrix返回的子矩阵。)矩阵视图是一个包含字段matrix的结构,您可以在其上执行您希望应用的gsl_matrix方法。

例如,编译gcc matrixview.c -lgsl -lgslcblas以下文件matrixview.c

#include <stdio.h> 
#include <gsl/gsl_matrix.h> 

#define rows 2 
#define cols 3 

int main() { 
    const double data[rows*cols] = { 
     0.0, 0.1, 0.2, 
     1.0, 1.1, 1.2, 
    }; 
    const gsl_matrix_const_view mat = gsl_matrix_const_view_array(data, rows, cols); 
    for (size_t row = 0; row < rows; ++row) { 
     for (size_t col = 0; col < cols; ++col) { 
      printf("\t%3.1f", gsl_matrix_get(&mat.matrix, row, col)); 
     } 
     printf("\n"); 
    } 
}