1. 首页
  2. 行业
  3. 教育
  4. 混沌初始化程序
下载地址
用户评论
码姐姐匿名网友 2018-12-15 20:04:26

基本没什么用,不要下载,以下是所有内容 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

码姐姐匿名网友 2018-12-15 20:04:26

我还没有看