请教个角度层数对应的问题

风平老涡

每一个分别赋值

[Fortran] 纯文本查看 复制代码

real :: a(-4:5)

a(-4) = 0.
a(-3) = 80.
a(-2) = 80.
a(-1) = 0.
a(0) = 0.
a(1) = 0.
a(2) = 80.
a(3) = 80.
a(4) = 80.
a(5) = 0.

风平老涡

xiaoxueji 发表于 2021-4-12 13:31
分别赋值这个角度顺序不是确定的吗

那你需要的是随机赋值。

[Fortran] 纯文本查看 复制代码

program test
  implicit none
  real :: a(-4:5), r
  integer :: i， k=0, m = 0
  
  call random_seed
  do i = -4, 5
     call random_number(r)
     if(r > 0.5 .and. k < 5) then
        a(i) = 0.
        k = k + 1

    elseif(m < 5) then
        a(i) = 80.
        m = m + 1

     else
        a(i) = 0.

     end if
  end do
  print *, a  
end program test

运行俩次结果
0.00000000       0.00000000       80.0000000       0.00000000       80.0000000       80.0000000       80.0000000       80.0000000       0.00000000       0.00000000

0.00000000       0.00000000       80.0000000       0.00000000       0.00000000       80.0000000       80.0000000       80.0000000       0.00000000       80.0000000