小编Ste*_*n K的帖子

可变格式

我编写了一个程序来计算平方有限差分矩阵,您可以在其中输入行数(等于列数)->这存储在变量矩阵中。该程序运行良好:

program fin_diff_matrix

  implicit none

  integer, dimension(:,:), allocatable :: A     
  integer :: matrix,i,j

  print *,'Enter elements:'
  read *, matrix

  allocate(A(matrix,matrix))

  A = 0
  A(1,1) = 2
  A(1,2) = -1
  A(matrix,matrix) = 2
  A(matrix,matrix-1) = -1

  do j=2,matrix-1
    A(j,j-1) = -1
    A(j,j) = 2
    A(j,j+1) = -1
  end do

  print *, 'Matrix A: '
  write(*,1) A

  1 format(6i10)

end program fin_diff_matrix
Run Code Online (Sandbox Code Playgroud)

对于输出,我希望矩阵针对输出进行格式化,例如,如果用户输入 6 行,则输出也应如下所示:

         2        -1         0         0         0         0
        -1         2        -1         0         0         0
         0        -1         2        -1         0 …
Run Code Online (Sandbox Code Playgroud)

format fortran output

2
推荐指数
1
解决办法
1002
查看次数

计算多列的平均值并将结果打印在新文件中

我是一个awk初学者,有以下问题.我有一个包含多个列的文件,其中包含如下数据:

1 2 3 6

2 3 4 7

4 5 6 8
Run Code Online (Sandbox Code Playgroud)

现在我想计算每列的平均值并将结果写入一个新文件,例如newfile.txt,其中列出了平均值(如果行或列无关紧要):

2
3
5
7
Run Code Online (Sandbox Code Playgroud)

非常感谢你!

斯蒂芬

awk

0
推荐指数
1
解决办法
136
查看次数

标签 统计

awk ×1

format ×1

fortran ×1

output ×1