24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1123  |  回复: 2

duhb655

金虫 (著名写手)

[求助] fortran 怎么对数组进行随机重排 已有1人参与

如题,在fortran怎么对一维自然数数组(如a=[1,2,3,4,5,6,7,8,9,10])进行随机重排啊?找了很久,好像没有直接的函数。也就是类似matlab里面的randperm函数,会返回一个1维数组(向量),该数组是整数1到n的一组随机排列,彼此无重复,顺序随机。谢谢了!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qunlilei

新虫 (初入文坛)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
duhb655: 金币+10, ★★★★★最佳答案, 谢谢,那我就这样做吧,应该是最简单的方法了吧。。? 2014-02-13 23:08:17
随即生成标有序号的十个数,再按值的大小用经典的排序排序算法排序,得到的序号数列就是随即的了,更简单的算法留个楼下吧
there is always another way!
2楼2014-02-13 14:12:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

乌兰111

新虫 (初入文坛)

楼主,你好,我想问一下这个问题解决了吗,我也遇到这个问题想要给数组随机排序~~
快乐、自信!
3楼2017-12-07 15:40:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 duhb655 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 271求调剂 +14 勒布朗@ 2026-03-31 19/950 2026-04-02 00:01 by 勒布朗@
[考研] 一志愿南昌大学324求调剂 +12 hanamiko 2026-03-27 12/600 2026-04-01 22:34 by 运气yunqi
[考研] 一志愿北交大材料工程总分358 +7 cs0106 2026-04-01 8/400 2026-04-01 18:34 by 记事本2026
[考研] 08工科275分求调剂 +12 AaAa7420 2026-03-31 12/600 2026-04-01 15:45 by jp9609
[考研] 311求调剂 +10 李芷新1 2026-03-31 10/500 2026-04-01 14:38 by chenqifeng666
[考研] 330分求调剂 +11 qzenlc 2026-03-29 11/550 2026-04-01 14:32 by chenqifeng666
[考研] 314求调剂 +6 1xiaojun23 2026-03-31 6/300 2026-04-01 11:28 by 今天星期八LQ
[考研] 一志愿南师大0703化学 275求调剂 +5 Ripcord上岸 2026-03-27 5/250 2026-03-31 19:52 by mg1014
[考研] 0856求调剂 +9 楒桉 2026-03-28 9/450 2026-03-31 19:06 by 暮泽12
[考研] 一志愿华东师范大学有机化学专业,初试351分,复试被刷求调剂! +9 真名有冰 2026-03-29 10/500 2026-03-31 18:01 by xhai2011
[考研] 086000调剂 +5 7901117076 2026-03-26 5/250 2026-03-31 17:45 by 544594351
[考研] 080500-315分复试调剂 +9 上岸3821 2026-03-31 9/450 2026-03-31 17:29 by 唐沐儿
[考研] 本科211安全工程,初试290分,求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 南京大学化学调剂 +11 景随风 2026-03-29 16/800 2026-03-31 10:14 by herarysara
[考研] 276求调剂 +3 赵久华 2026-03-29 3/150 2026-03-31 10:06 by cal0306
[考研] 一志愿华中师范化学332分求调剂 +3 Lyy930824@ 2026-03-29 3/150 2026-03-30 20:15 by DHUSHUAI
[考研] 一志愿北京化工大学材料与化工(085600)296求调剂 +25 稻妻小编 2026-03-26 25/1250 2026-03-30 20:11 by 滴滴上岸呀
[考研] 332求调剂 +6 @MZB382400 2026-03-28 6/300 2026-03-30 16:57 by 无际的草原
[考研] 295求调剂 +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
信息提示
请填处理意见