24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 762  |  回复: 2
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

田山东

捐助贵宾 (著名写手)


[交流] 这样居然也能产生随机数

本来有个程序,要重复调用一个数组,但是数组对角元为-0.5---0.5之间的随机数,没想到下面的语句也可以实现:
N=20
Gj=0.8
   CALL RANDOM_SEED()
!!第一次生成随机数
      CALL RANDOM_NUMBER(Gj)
        do j=1,N
      H0(j,j)=(Gj(j)-0.5)*0.2*t
      enddo
        CALL SLRD(N,ENG,H0,HL,HR,SL,ETA,EPS)         
        CALL RANDOM_NUMBER(Gj)
  !!第二次生成随机数   
      do j=1,N
      H0(j,j)=(Gj(j)-0.5)*0.2*t
      enddo

        CALL SLRD(N,ENG,H0,HR,HL,SR,ETA,EPS)        
!!第三次生成随机数
        CALL RANDOM_NUMBER(Gj)
      do j=1,N
      H0(j,j)=(Gj(j)-0.5)*0.2*t
      enddo
经过验证,三次生成的随机数不同。而且,数次运行程序,每次生成的随机数也是互不相同的。看来这样很合理了。
发个帖,作个记号吧。
回复此楼

» 猜你喜欢

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

» 抢金币啦!回帖就可以得到:

查看全部散金贴

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

田山东

捐助贵宾 (著名写手)


引用回帖:
2楼: Originally posted by 615780236 at 2012-12-25 21:43:23
恭喜楼主
N=20
Gj=0.8
   CALL RANDOM_SEED()
!!第一次生成随机数
      CALL RANDOM_NUMBER(Gj)
        do j=1,N
      H0(j,j)=(Gj(j)-0.5)*0.2*t
      enddo
        CALL SLRD(N,ENG,H0,HL,HR,SL,ET ...

谢谢参与。
3楼2012-12-26 10:59:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

615780236

禁虫 (知名作家)


田山东(金币+1): 谢谢参与
本帖内容被屏蔽

2楼2012-12-25 21:43:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 211本科材料化工求调剂 +18 YHLAH 2026-04-11 22/1100 2026-04-14 17:52 by lhj2009
[考研] 271求调剂 +29 2261744733 2026-04-11 29/1450 2026-04-14 16:48 by zhouxiaoyu
[考研] 366求调剂 +11 不知名的小卅 2026-04-11 11/550 2026-04-14 15:50 by zs92450
[考研] 食品与营养(0955)271求调剂 +15 升格阿达 2026-04-12 16/800 2026-04-14 13:18 by 浮若_安生
[考研] 考研英一数一338分 +9 长江大学东校区 2026-04-13 10/500 2026-04-14 00:41 by 王珺璞
[考研] 一志愿厦大生物学332求调剂 +11 池池池池池池 2026-04-08 11/550 2026-04-13 14:10 by 科研论
[考研] 0854调剂 +10 长弓傲 2026-04-11 11/550 2026-04-13 10:38 by wp06
[考研] 生物学调剂,一志愿西南大学348,Top期刊一区二作、二区三作,三等奖学金三次 +5 candyyyi 2026-04-09 5/250 2026-04-13 09:02 by 可淡不可忘
[考研] 电气专硕320求调剂 +6 小麻子111 2026-04-10 6/300 2026-04-12 10:54 by lemon6009
[考研] 291求调剂 +8 关忆北. 2026-04-11 8/400 2026-04-12 09:32 by 逆水乘风
[考研] 化工调剂求导师收留!一志愿失利,踏实肯干,有植物提取科研经历 +20 yzyzx 2026-04-09 21/1050 2026-04-12 00:12 by 小小小小啦啦啦
[考研] 346,工科求调剂 +3 moser233 2026-04-09 3/150 2026-04-11 10:04 by zhq0425
[考研] 281求调剂 +11 觉得好的吧 2026-04-10 11/550 2026-04-11 09:35 by 逆水乘风
[考研] 中科院总分315求调剂 +8 lallalh 2026-04-09 8/400 2026-04-10 19:30 by dick_runner
[论文投稿] mdpi小修rvr时间四五天了 20+3 哈哈high 2026-04-08 5/250 2026-04-10 16:02 by 北京莱茵润色
[考研] 311求调剂 +6 surte 2026-04-08 13/650 2026-04-09 14:00 by surte
[考研] 283电子信息求调剂 +4 三石WL 2026-04-08 4/200 2026-04-09 10:21 by wp06
[考研] 机械专硕273请求调剂 +6 庚申壬申 2026-04-07 6/300 2026-04-08 22:41 by bljnqdcc
[考研] 296求调剂 +3 汪!?! 2026-04-08 3/150 2026-04-08 22:00 by zhouyuwinner
[考研] 电子信息346 +4 zuoshaodian 2026-04-08 4/200 2026-04-08 11:54 by zzucheup
信息提示
请填处理意见