24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 580  |  回复: 3
【奖励】 本帖被评价3次,作者tanzq增加金币 3
当前主题已经存档。

tanzq

木虫 (正式写手)


[资源] 【分享】产生高斯分布随机数源代码(新版)

Function Gauss(Dummy)


          Implicit Double Precision (a-z)
          integer i

        Parameter ( A1 = 3.949846138, A3 = 0.252408784 )
        Parameter ( A5 = 0.076542912, A7 = 0.008355968 )
        Parameter ( A9 = 0.029899776                   )


!    *******************************************************************

        Sum = 0.0

        Do i = 1, 12

!     Call Random_number (ran)
          Sum = Sum + Ranf(Dummy)

        Enddo

        R  = (SUM - 6.0 )/4.0
        R2 = R * R

        Gauss = ((((A9 * R2 + A7) * R2 + A5) * R2 + A3) * R2 +A1)*R

        END

[ Last edited by woshilsh on 2009-1-4 at 23:26 ]
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

★★★★★ 五星级,优秀推荐

帮你顶一个!
2楼2009-01-04 18:35:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

rjjy

木虫 (著名写手)


★★★★★ 五星级,优秀推荐

顶一个
3楼2009-08-11 14:36:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

★★★★★ 五星级,优秀推荐

这个一定要顶了
4楼2009-08-12 09:54:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 tanzq 的主题更新
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求收留 +5 1943443204 2026-03-28 5/250 2026-03-29 12:11 by 无际的草原
[考研] 375求调剂 +4 雨夏整夜 2026-03-29 4/200 2026-03-29 12:09 by 无际的草原
[考研] 求调剂,一志愿 南京航空航天大学 ,080500材料科学与工程学硕,总分289分 +7 @taotao 2026-03-29 7/350 2026-03-29 12:03 by longlotian
[考研] 356求调剂 +4 gysy?s?a 2026-03-28 4/200 2026-03-29 10:32 by 唐沐儿
[考研] 279求调剂 +4 蝶舞轻绕 2026-03-29 4/200 2026-03-29 09:45 by laoshidan
[考研] 材料277求调剂 +7 min3 2026-03-24 7/350 2026-03-28 11:39 by xuxiang
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +6 脚滑的守法公民 2026-03-27 6/300 2026-03-28 11:02 by gjlllb
[考研] 277跪求调剂 +5 1915668 2026-03-27 9/450 2026-03-28 09:58 by zhshch
[考研] 求调剂 +8 张zz111 2026-03-27 9/450 2026-03-28 03:41 by fmesaito
[考研] 0703化学求调剂,各位老师看看我!!! +5 祁祺祺 2026-03-25 5/250 2026-03-27 21:44 by 东方猪猪
[考研] 086000调剂 +3 7901117076 2026-03-26 3/150 2026-03-27 21:34 by Jianing_Mi
[考研] 一志愿上海理工能源动力(085800)310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 调剂 +4 柚柚yoyo 2026-03-26 4/200 2026-03-26 20:43 by fmesaito
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
[考研] 机械学硕310分,数一英一,一志愿211本科双非找调剂信息 +3 @357 2026-03-25 3/150 2026-03-26 16:34 by by.MENG
[考研] B区考研调剂 +4 yqdszhdap- 2026-03-22 5/250 2026-03-25 08:51 by baoball
[考研] 277分求调剂,跨调材料 +3 考研调剂lxh 2026-03-24 3/150 2026-03-24 13:52 by JourneyLucky
[考研] 085404电子信息284分求调剂 +4 13659058978 2026-03-24 4/200 2026-03-24 12:15 by syl20081243
信息提示
请填处理意见