混沌初始化程序
1星 需积分: 47 14 浏览量
2015-12-23
11:02:17
上传
评论 15
收藏 588B F90 举报 
资源评论
kehan_c2017-10-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- danpeizi80612017-10-01我还没有看
