我认为将处理委托给某些外部工具很可能会更好。比如这个gawk脚本:
BEGIN{
#mat_id = 2
#m = 2
#n = 3
mat_size = m * n
row_lb = ((mat_id-1) * mat_size) + 1
row_ub = row_lb + mat_size - 1
curr_row = 0
}
NR >= row_lb && NR <= row_ub{
col_id = (NR - row_lb) % n
c = (col_id == (n-1))?"\n":" "
printf "%d%s", $1, c
}
接受三个变量:mat_id是文件中矩阵的从1开始的索引,m表示行数,n表示列数。因此,例如使用数据文件test.dat 为:
1
2
3
4
5
6
10
20
30
40
50
60
一个电话
gawk -v mat_id=2 -v m=2 -v n=3 -f filter.awk test.dat
确实有效果
10 20 30
40 50 60
在 Gnuplot 中,您可以将其包装到命令中(假设 gawk 脚本位于调用 Gnuplot 的同一目录中):
getMatrix(fName, matId, m, n) = \
sprintf("<gawk -v mat_id=%d -v m=%d -v n=%d -f filter.awk %s", matId, m, n, fName)
plot getMatrix('test.dat', 2, 2, 3) ... [ rest of the plot command] ...