Question

fortran矩阵赋值

我有一列数包含19900个数，如何做个循环能让他按我的想法赋值入矩阵， 就像这个样子的。
一列数：1 2 3 4 5 6 7 8 9 10
出来的矩阵像这个样子
0 1 2 3 4
0 0 5 6 7
0 0 0 8 9
0 0 0 0 10
求高手赐教啊！！感激不尽

Answer 1

按你的例子示例，你要形成的是上三角阵。先将你的一列数读到一维数组b中，然后对四行、五列的矩阵a的所有元素赋0，再赋三角阵：
do 10 i=1,4
do 10 j=1,5
a(i,j)=0
10 continue
k=1
do 20 i=1,4
do 20 j=i+1,5
a(i,j)=b(k)
k=k+1
20 continue

以上是F77的示意性代码。