| 查看: 875 | 回复: 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 经过验证，三次生成的随机数不同。而且，数次运行程序，每次生成的随机数也是互不相同的。看来这样很合理了。 发个帖，作个记号吧。 |
回复此楼» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有13人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
申请科研项目纯靠实力能成功吗？
已经有11人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Fortran如何生成一组正态分布的随机数
已经有7人回复
- matlab产生随机二维矩阵，这些随机数只能是-1或者1？
已经有9人回复
- 产生高斯分布随机数的原理
已经有3人回复
- 【求助】如何用汇编语言产生随机数
已经有5人回复
- 【求助】随机数的生成
已经有9人回复
3楼2012-12-26 10:59:55
★
田山东(金币+1): 谢谢参与
田山东(金币+1): 谢谢参与
|
本帖内容被屏蔽 |
2楼2012-12-25 21:43:23
200