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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 这样居然也能产生随机数
31/1返回列表
查看: 752  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

田山东

捐助贵宾 (著名写手)

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

本来有个程序，要重复调用一个数组，但是数组对角元为-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
经过验证，三次生成的随机数不同。而且，数次运行程序，每次生成的随机数也是互不相同的。看来这样很合理了。
发个帖，作个记号吧。
回复此楼

» 猜你喜欢

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

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

查看全部散金贴
1楼 2012-12-25 15:29:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

615780236

禁虫 (知名作家)
★
田山东(金币+1): 谢谢参与
本帖内容被屏蔽
2楼2012-12-25 21:43:23
已阅   回复此楼   关注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的回帖
相关版块跳转 我要订阅楼主 田山东 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 306求0703调剂一志愿华中师范 +5 纸鱼ly 2026-03-21 5/250 2026-03-21 17:11 by 学员8dgXkO
[基金申请] 学校已经提交到NSFC，还能修改吗？ 40+4 babangida 2026-03-19 9/450 2026-03-21 16:12 by babangida
[考研] 求助 +4 梦里的无言 2026-03-21 5/250 2026-03-21 15:53 by ColorlessPI
[考研] 332求调剂 +3 凤凰院丁真 2026-03-20 3/150 2026-03-21 10:27 by luoyongfeng
[考研] 083200学硕321分一志愿暨南大学求调剂 +3 innocenceF 2026-03-17 3/150 2026-03-21 02:35 by JourneyLucky
[考研] 求调剂 +3 Ma_xt 2026-03-17 3/150 2026-03-21 02:05 by JourneyLucky
[考研] 324求调剂 +5 lucky呀呀呀鸭 2026-03-20 5/250 2026-03-20 22:30 by 促天成
[考研] 一志愿 西北大学 ，070300化学学硕，总分287，双非一本，求调剂。 +4 晨昏线与星海 2026-03-19 4/200 2026-03-20 22:15 by JourneyLucky
[考研] 一志愿中南化学（0703）总分337求调剂 +8 niko- 2026-03-19 9/450 2026-03-20 21:57 by luoyongfeng
[考研] 0817 化学工程 299分求调剂 有科研经历 有二区文章 +22 rare12345 2026-03-18 22/1100 2026-03-20 20:39 by zhukairuo
[考研] 295材料求调剂，一志愿武汉理工085601专硕 +5 Charlieyq 2026-03-19 5/250 2026-03-20 20:35 by JourneyLucky
[考研] 261求B区调剂，科研经历丰富 +3 牛奶很忙 2026-03-20 4/200 2026-03-20 19:34 by JourneyLucky
[考研] 281求调剂（0805） +14 烟汐忆海 2026-03-16 25/1250 2026-03-20 15:47 by yuncha
[考研] 一志愿中国海洋大学，生物学，301分，求调剂 +5 1孙悟空 2026-03-17 6/300 2026-03-19 23:46 by zcl123
[考研] 085601材料工程专硕求调剂 +10 慕寒mio 2026-03-16 10/500 2026-03-19 15:26 by 丁丁*
[考研] 【同济软件】软件（085405）考研求调剂 +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by 搏击518
[考研] 0854可跨调剂，一作一项核心论文五项专利，省、国级证书40+数一英一287 +8 小李0854 2026-03-16 8/400 2026-03-18 14:35 by 搏击518
[考研] 0703化学336分求调剂 +6 zbzihdhd 2026-03-15 7/350 2026-03-18 09:53 by zhukairuo
[考研] 326求调剂 +5 上岸的小葡 2026-03-15 6/300 2026-03-17 17:26 by ruiyingmiao
[考研] 085601求调剂 +4 Du.11 2026-03-16 4/200 2026-03-17 17:08 by ruiyingmiao
信息提示
关闭
请填处理意见
关闭