应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » 其他 » fortran编程 随机选取一些数
31/1返回列表
查看: 1356  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

906305675

金虫 (小有名气)

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

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

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
等你的那一刻，我怎舍得停下来……
1楼 2013-07-18 18:13:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yiwenlin

禁虫 (正式写手)
本帖内容被屏蔽
2楼2013-07-18 19:03:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huan3221639

铁杆木虫 (著名写手)

【答案】应助回帖

感谢参与，应助指数 +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
赞一下 回复此楼
坚持
3楼2013-07-18 19:09:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 906305675 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭