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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » [求助]fortran里如何产生从0到1的加权的随机数？
北京石油化工学院2026年研究生招生接收调剂公告
61/1返回列表
查看: 579  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 anxt2006 的 5 个金币

anxt2006

木虫 (正式写手)

[交流] [求助]fortran里如何产生从0到1的加权的随机数？

fortran里如何产生从0到1的加权的随机数？我想用蒙特卡罗积分，但是我的被积函数有尖峰，所以想找一个加权的随机数产生程序，在尖峰的地方多取一些点，在其他地方少取一些点。请高手指教。

[ Last edited by kuhailangyu on 2008-12-9 at 10:32 ]
回复此楼

» 猜你喜欢
1楼 2008-10-13 17:05:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

juloong

木虫 (职业作家)

X射线衍/散射测试
F里面有现成的函数
你查一下函数表
赞一下 回复此楼
2楼2008-10-13 18:21:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
SUBROUTINE(JIE,X)
IMPLICIT REAL*8 (A-H,O-Z)
         INTEGER*4 I(2)
C            READ(*,*) JIE
            IF (JIE.EQ.0) GO TO 1
         I(1)=0
         I(2)=JIE
  1      IX=1490*I(2)+3805*I(1)
         IE=3805*I(2)
         I(2)=IE-IE/32768*32768
         IX=IX-IX/32768*32768+IE/32768
         I(1)=IX-IX/32768*32768
         X=(I(1)*32768+I(2))*9.3132258D-10
         END
RETURN
END
这样就行了，你调用该程序的时候，给定一个种子JIE，然后这个程序就会给你一个数值X。

[ Last edited by maomao1210 on 2008-10-14 at 22:15 ]
赞一下 回复此楼
3楼2008-10-13 22:14:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
楼主尝试一下就知道了。呵呵。这个程序还是很好用的
赞一下 回复此楼
4楼2008-10-14 08:33:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

anxt2006

木虫 (正式写手)

3楼的程序看不懂

我看不懂你的这个程序，如何实现循环呢？怎么被蒙特卡罗积分调用呢？请指教
赞一下 回复此楼
5楼2008-10-14 15:20:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
我给修改了一下，看看就知道了。

[ Last edited by maomao1210 on 2008-10-14 at 22:16 ]
赞一下 回复此楼
6楼2008-10-14 22:08:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 anxt2006 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 学硕274求调剂 +9 Li李鱼 2026-03-26 9/450 2026-03-28 21:42 by bymhappy
[考研] 320分，材料与化工专业，求调剂 +9 一定上岸aaa 2026-03-27 13/650 2026-03-28 15:00 by 神马都不懂
[考研] 药学105500求调剂 +3 Ssun。。 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
[考研] 086000调剂 +3 7901117076 2026-03-26 3/150 2026-03-27 21:34 by Jianing_Mi
[考研] 272求调剂 +7 脚滑的守法公民 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[考研] 一志愿 西北大学 总分282 英语一62 求调剂 +7 18419759900 2026-03-25 8/400 2026-03-27 16:38 by 18419759900
[考研] 材料与化工085600，总分304，本科有两篇sci参与，求调剂 +10 幸运的酱酱 2026-03-22 12/600 2026-03-27 16:08 by muchong357
[考研] 安徽大学专硕生物与医药专业(086000)324分，英语已过四六级，六级521，求调剂 +4 美味可乐鸡翅 2026-03-26 4/200 2026-03-27 15:27 by 星空星月
[考研] 305求调剂 +5 哇卢卡库 2026-03-26 5/250 2026-03-27 14:01 by laoshidan
[考研] 322求调剂 +4 我真的很想学习 2026-03-23 4/200 2026-03-27 13:51 by 杨杨杨紫
[考研] 321求调剂 +6 wasdssaa 2026-03-26 6/300 2026-03-26 20:57 by sanrepian
[考研] 297求调剂 +6 田洪有 2026-03-26 6/300 2026-03-26 15:55 by 不吃魚的貓
[考研] 环境专硕324分求调剂推荐 +5 轩小宁—— 2026-03-26 5/250 2026-03-26 12:05 by i_cooler
[考研] 347求调剂 +4 L when 2026-03-25 4/200 2026-03-25 13:37 by cocolv
[考研] 282求调剂 +3 wcq131415 2026-03-24 3/150 2026-03-25 12:16 by userper
[考研] 一志愿吉林大学材料与化工303分求调剂 +4 为学666 2026-03-24 4/200 2026-03-25 11:27 by BruceLiu320
[考研] 340求调剂 +5 话梅糖111 2026-03-24 5/250 2026-03-25 06:53 by ilovexiaobin
[考研] 344求调剂 +3 desto 2026-03-24 3/150 2026-03-24 10:09 by 搏击518
[考研] 361求调剂 +3 Glack 2026-03-22 3/150 2026-03-23 22:03 by fuyu_
信息提示
关闭
请填处理意见
关闭