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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 物理 » 统计、非线性&软物质 » 【求助】用Fortran 语言编程求满足麦克斯韦分布的初速度
71/1返回列表
查看: 637  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

jianchaoyv

金虫 (小有名气)

[交流] 【求助】用Fortran 语言编程求满足麦克斯韦分布的初速度

有十个氢原子在300k温度下其初速度满足麦克斯韦速率分布,即正比与e的(-v**2/2mkT)次方，用FORTRAN语言编程求初速度？求程序!
本人没有一点思路，请高手指点一二，谢谢！！！

[ Last edited by jianchaoyv on 2009-4-10 at 21:31 ]
回复此楼

» 猜你喜欢
1楼 2009-04-03 21:06:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sprite2791

金虫 (小有名气)
★ ★
zt970831(金币+2):感谢您的交流
十个氧原子少了点.....
可以这样，产生随机数x,(均小于1)，可以产生一个均匀分布的大的随机数，除以随机范围
ex:
random(10000),然后除以10000，得到小数
随后概率取exp(-x**2/2mkT)
随便想想的，希望有用......
赞一下(1人) 回复此楼
2楼2009-04-04 06:25:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)
谢谢楼上的，初学编程进行计算，没看懂你的意思，能说的更明白点吗？
“产生随机数x,(均小于1)，可以产生一个均匀分布的大的随机数，除以随机范围
ex:
random(10000),然后除以10000，得到小数”
怎样产生随机数？
赞一下 回复此楼
3楼2009-04-04 11:29:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ddx-k

荣誉版主 (著名写手)

骑士II
★
zt970831(金币+1):感谢您的交流
random 是fortran语言里面的一个命令，它的作用就是产生随机数。
赞一下(1人) 回复此楼
4楼2009-04-04 13:50:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)
如果各位有谁方便,能否给发一个想关程序?本人实在无从下手
赞一下 回复此楼
5楼2009-04-04 15:42:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)
顶 ！！
6楼2009-04-05 09:17:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

吃木头

《Fortran常用算法程序集【徐士良】－第二版》

我有电子版pdf，不知道里面有没有你要的相关程序，我的邮箱chilixin_1985,如果需要我可以传给你！
赞一下 回复此楼
7楼2009-05-24 09:14:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jianchaoyv 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 jRl3mE6ddZGq 2026-08-03 7/350 2026-08-04 04:50 by k7OM8YghWbkC
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 jRl3mE6ddZGq 2026-08-03 6/300 2026-08-04 04:47 by k7OM8YghWbkC
[找工作] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 cu9Nq1xK233Z 2026-08-03 8/400 2026-08-04 04:47 by k7OM8YghWbkC
[博后之家] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 cu9Nq1xK233Z 2026-08-03 8/400 2026-08-04 04:46 by k7OM8YghWbkC
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 cu9Nq1xK233Z 2026-08-03 7/350 2026-08-04 04:46 by k7OM8YghWbkC
[教师之家] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +4 cu9Nq1xK233Z 2026-08-03 8/400 2026-08-04 04:41 by k7OM8YghWbkC
[有机交流] 一个有机合成实验室都需要哪些设备？ 50+3 kf2781974 2026-07-31 9/450 2026-08-04 03:56 by kf2781974
[教师之家] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 jRl3mE6ddZGq 2026-08-03 7/350 2026-08-04 03:35 by k7OM8YghWbkC
[考研] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 cu9Nq1xK233Z 2026-08-03 8/400 2026-08-04 03:21 by k7OM8YghWbkC
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 cu9Nq1xK233Z 2026-08-03 12/600 2026-08-04 03:17 by k7OM8YghWbkC
[基金申请] 什么时候能放榜呀？ +3 Jacob678 2026-08-03 3/150 2026-08-03 16:14 by gltch
[高分子] UV压敏胶开发 +3 ichall 2026-07-30 5/250 2026-08-03 14:40 by Sunrisepay
[基金申请] 面上提前没消息，有中的吗 +14 archvillain 2026-08-02 16/800 2026-08-03 12:23 by fuweiguochen
[基金申请] 面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！ +19 低垂的野花 2026-07-31 25/1250 2026-08-03 09:25 by gy116024
[基金申请] 2026年国自然面上资助率 +16 布布和一二 2026-07-30 22/1100 2026-08-03 09:20 by gy116024
[基金申请] 微信指数没变化，科研之友没阅读 +15 wangze12014 2026-07-28 19/950 2026-08-02 20:05 by 蔡棒棒菂
[考博] 2027年申博 50+3 射雕英雄胜 2026-07-30 3/150 2026-08-02 09:36 by lfy8008
[高分子] HXDI做水性聚氨酯乳液，是不是特别容易出渣 15+3 yuyusuv 2026-07-29 3/150 2026-07-31 09:21 by huizingga
[基金申请] 系统今天又提示维护了，估计离放榜不远了 +11 winnerche 2026-07-29 15/750 2026-07-30 23:08 by jnhyjjm
[基金申请] 你们的时间戳变了吗 +3 archvillain 2026-07-30 4/200 2026-07-30 18:53 by levinzhwen
信息提示
关闭
请填处理意见
关闭