【分享】四个fortran随机数子程序

xvnuwen · 发表于 2008-10-8 14:15:02

不错。谢谢分享。

huaxianzi456 · 发表于 2008-10-27 17:04:58

感谢中！！！！！！！！！！！

ehrenfest · 发表于 2009-5-9 14:11:49

谢谢！
有个问题请教：用来产生随机数的子程序，应该产生reproducible的随机数？这样，我如果不改变程序参数，重复运行几次或者精简代码后，得到的程序，其运行结果才会保持不变（一般我们也希望这样吧？！）。但是如果用那个CALL RANDOM_SEED，貌似每次运行写的程序代码，得到的结果会不同，我觉得用CALL RANDOM_SEED得到的随机数更随机些……所以，请教各位，在reproducible和“更随机些”之间该如何取舍？

liuzy04 · 发表于 2009-5-14 20:33:59

楼主我怎么看不见您的程序？？？

wllhc520 · 发表于 2009-8-25 14:33:55

谢谢楼主了
可是如何产生（-1，1）之间的随机数呢？？
如果是直接乘以-1，那么就是很明显的一段是负数，一段是正数了，没有了随机的概念了哦！
希望大侠指教！

wllhc520 · 发表于 2009-8-25 14:36:23

还有，这个附件我下不了了，希望楼主能给我传一份
邮箱是wangleisunshine@163.com
谢谢了

qinxl · 发表于 2009-8-25 14:43:03

线性分布：2.0*random(x)-1.0

wllhc520 · 发表于 2009-8-25 14:59:57

嗯不错那产生的数是均匀分布的吗？

wllhc520 · 发表于 2009-8-25 15:17:45

27# qinxl
嗯不错那产生的数是均匀分布的吗？

qinxl · 发表于 2009-8-25 15:52:33

对啊！就是均匀分布。

wllhc520 · 发表于 2009-8-26 23:06:16

嗯好的试过了效果还不错谢谢啦

qinxl · 发表于 2009-8-27 10:52:11

你怎么下载到楼主的程序的？

wllhc520 · 发表于 2009-9-1 10:00:05

32# qinxl
现在可以下了啊呵呵直接点击就可以了哦

qinxl · 发表于 2009-9-1 10:51:50

谢谢。好东西，好像不是简单的线性求余算法。

qinxl · 发表于 2009-9-1 13:32:27

继续问：这些函数参数都有一个整数参数IDUM，什么意思？是种子Seed吗？如何取值？要生成一系列随机数，这些函数怎么用？

qinxl · 发表于 2009-9-5 23:38:42

本帖最后由 qinxl 于 2009-9-9 08:20 编辑

使用第四个时发现产生了负数! 运行结果如下：
RAN0 Series:
0.24257830 408360806
0.01346957 115509215
0.38313884 911304891
0.41465271 843616196
0.06776898 267878013
0.99312693  2017792421
0.48430803 983963518
0.76533777  1722634149
0.03183382 55113794
0.03093548 78538885
RAN1 Series:
0.41599935 530511967
0.09196489  2110010672
0.75641048  1551901393
0.52970022  1617819336
0.93043649  1399125485
0.38350207 156091745
0.65391898  1356425228
0.06684224  1899894091
0.72266042 585640194
0.67114937 937186357
RAN2 Series:
0.65541631  1216911892
0.20099518  1470139026
0.89362234 125745105
0.28188652 10643361
0.52500033 681701580
0.31412676 270804894
0.44461566  1932453181
0.29947445 740931593
0.52983254  1626175087
0.71747082  1017972318
RAN3 Series:
0.04849221          1
0.49388486          1
0.69817168          1
0.39129707          1
0.13123626          1
0.90782148          1
0.40223572          1
0.45093268          1
0.52184832          1
-0.69877648          1

dong2222 · 发表于 2010-3-16 17:32:44

谢谢楼主，我正需要呢。thanks

zhangqun0949 · 发表于 2010-3-17 20:43:20

多谢楼主！
很需要

poping · 发表于 2010-5-1 11:43:08

谢谢分享，看看

airlord · 发表于 2010-11-8 14:16:29

正好有用！谢谢！！

账号		自动登录	找回密码
密码			注册

账号		自动登录	找回密码
密码			立即注册

[3. Fortran] 【分享】四个fortran随机数子程序

本帖子中包含更多资源

[3. Fortran] 【分享】四个fortran随机数 子程序

本帖子中包含更多资源

[3. Fortran] 【分享】四个fortran随机数子程序