24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

906305675

金虫 (小有名气)

应助: 2 (幼儿园)
金币: 813.1
散金: 45
红花: 1
帖子: 164
在线: 33.7小时
虫号: 1733379
注册: 2012-04-02
性别: MM
专业: 化工热力学和基础数据

[求助] fortran编程随机选取一些数

求高手指导：有序号为1,3,4,6，……等没有规律的100个数，从中随机的选取25个数，用fortran6.6编程.现已有随机数的函数程序名为ran2（idum），其中idum=7.但是不知道怎么用，或者也可以不用它

回复此楼

» 猜你喜欢

售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急已经有4人回复
科研人应该花精力去思考如何解决问题，而不是去凝练问题已经有18人回复
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急已经有9人回复
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有15人回复
售SCI文章，我:8O.5.5.1O.54,科目全,可十急已经有5人回复
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急已经有5人回复
面上没中，邀请各位路过的虫友分析一下分数已经有13人回复
两块石头已经有8人回复
初秋的晨风已经有6人回复
学科评审组评审是指会评吗？已经有9人回复

» 本主题相关价值贴推荐，对您同样有帮助:

等你的那一刻，我怎舍得停下来……

1楼 2013-07-18 18:13:02

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

huan3221639

铁杆木虫 (著名写手)

应助: 6 (幼儿园)
金币: 6704.6
散金: 9
红花: 8
帖子: 1588
在线: 966.4小时
虫号: 1057202
注册: 2010-07-14
性别: GG
专业: 工程热力学

【答案】应助回帖

感谢参与，应助指数 +1

我给楼主写了一个例子程序，不知道楼主是否适用。自由格式写的，后缀f90，楼主可以复制直接执行。
PROGRAM YINGZHU
REAL*8 A,T
REAL*8 C(100),D(25)
INTEGER I

!************************************
CALL RANDOM_SEED()
DO I=1,100
CALL RANDOM_NUMBER(T)
C(I)=T
END DO
!******上面这段程序用来生成0-1之间的100个随机数，放在数组C中值得注意的是，如果有循环SEED再循环外，NUMBER在循环外******

CALL RANDOM_SEED()
DO I=1,25
CALL RANDOM_NUMBER(T)
K=FLOOR(100*T)+1 !随机生成一个1-100之间的整数
D(I)=C(K)
PRINT*,I,K,D(I)
END DO

!***这段程序就是以生成的C(100)为例子，从中随机选了15个数，放在数组D(15)中，打印输出的是随机选取的数在C中的序号和数本身
END