| 查看: 1485 | 回复: 2 | |||
[求助]
fortran编程 随机选取一些数
|
求高手指导：有序号为1,3,4,6，……等没有规律的100个数，从中随机的选取25个数，用fortran6.6编程.现已有随机数的函数程序名为ran2（idum），其中idum=7.但是不知道怎么用，或者也可以不用它 |
回复此楼» 猜你喜欢
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有4人回复
-
师弟论文见刊大半年才想起来申请专利，还能抢救一下吗？
已经有5人回复
-
某top大学教授说“能够在市场中兑现的能力才是真能力”无比同意！
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran读写问题
已经有6人回复
- fortran输出求助
已经有6人回复
- 一百个FORTRAN任务怎么能一次提交SSH计算
已经有3人回复
- Fortran如何生成一组正态分布的随机数
已经有7人回复
- Fortran数据读入格式的修改
已经有5人回复
- 请教 fortran 运行错误的原因
已经有13人回复
- 如何改变fortran的浮点精度
已经有28人回复
- 求助Fortran编程
已经有8人回复
- Fortran的格式化输入输出问题
已经有14人回复
- 【求助】初学fortran，
已经有15人回复
- 【求助】请问一下fortran的可视化编程
已经有7人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
- 【求助】有关fortran进行数值模拟
已经有10人回复
- 【交流】Fortran语言答疑专帖
已经有157人回复
|
本帖内容被屏蔽 |
2楼2013-07-18 19:03:57
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 |
3楼2013-07-18 19:09:06
