混沌初始化程序

基本没什么用，不要下载，以下是所有内容 program chaos implicit none integer :: i,n real*8,allocatable :: array(:) real*8 :: lamda write(*,*) 'please input array number' read(*,*) n allocate(array(n)) call random_seed() 100 call random_number(lamda) if (lamda==0.25.or.lamda==0.5.or.lamda==0.75) goto

我还没有看