24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1122  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 英一数一408,总分284,二战真诚求调剂 +12 12.27 2026-03-30 14/700 2026-04-02 00:18 by 欣喜777
[考研] 265求调剂 +3 梁梁校校 2026-04-01 3/150 2026-04-01 22:36 by barlinike
[考研] 一志愿北交大材料工程,总分358 +3 cs0106 2026-04-01 3/150 2026-04-01 20:15 by wxiongid
[考研] 材料与化工(0856)304求B区调剂 +8 邱gl 2026-03-30 16/800 2026-04-01 17:58 by 邱gl
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +10 脚滑的守法公民 2026-03-27 10/500 2026-04-01 17:23 by pies112
[考研] 0856,材料与化工321分求调剂 +13 大馋小子 2026-03-27 14/700 2026-04-01 15:58 by yanflower7133
[考研] 英一数二生物信息学287分,本科生物科学,求调剂 +3 碧水xyz 2026-03-29 4/200 2026-04-01 15:35 by plum
[考研] 326求调剂 +4 崽崽仔 2026-03-31 4/200 2026-04-01 09:58 by 我的船我的海
[考研] 289求调剂 +7 BrightLL 2026-03-29 7/350 2026-03-31 22:05 by 544594351
[考研] 英一数一总分334求调剂 +4 陈阳坤 2026-03-31 4/200 2026-03-31 14:22 by 记事本2026
[考研] 南京大学化学调剂 +11 景随风 2026-03-29 16/800 2026-03-31 10:14 by herarysara
[考研] 085600,专业课化工原理,320分求调剂 +6 大馋小子 2026-03-29 6/300 2026-03-31 10:03 by 氯化亚硝酰
[考研] 一志愿食品科学与工程083200求调剂 +4 XQTJZ 2026-03-30 4/200 2026-03-31 04:10 by fmesaito
[考研] 085600 286分 材料求调剂 +11 麻辣鱿鱼 2026-03-27 12/600 2026-03-30 19:33 by Wang200018
[考研] 抱歉 +3 田洪有 2026-03-30 3/150 2026-03-30 19:11 by 迷糊CCPs
[考研] 材料专硕 085600求调剂 +7 BBQ233 2026-03-30 7/350 2026-03-30 17:44 by oooqiao
[考研] 283求调剂(080500) +14 A child 2026-03-27 14/700 2026-03-30 12:06 by 探123
[考研] 343求调剂085601 +3 要努力学习x 2026-03-29 3/150 2026-03-29 18:35 by wxiongid
[考研] 材料与化工(0856)304求B区调剂 +8 邱gl 2026-03-27 8/400 2026-03-28 12:42 by 唐沐儿
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
信息提示
请填处理意见