| 查看: 615 | 回复: 3 | ||
| 【奖励】 本帖被评价3次，作者tanzq增加金币 3 个 | ||
| 当前主题已经存档。 | ||
[资源]
【分享】产生高斯分布随机数源代码（新版）
|
||
|
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 ] |
回复此楼» 猜你喜欢
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
大家好，校样时候的紧急求助，请各位帮帮忙了
已经有7人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有3人回复
-
昨日死，今日生
已经有7人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有7人回复
-
有没有同学在用一款线上科研辅助平台？
已经有3人回复
-
27年博士招生信息
已经有13人回复
-
植酸TLC薄层色谱爬板
已经有6人回复
-
单宁酸
已经有3人回复
-
求助难溶化合物在DMSO+三氟乙酸中的氢谱分析
已经有7人回复
帮你顶一个！ 2楼2009-01-04 18:35:48
3楼2009-08-11 14:36:27
4楼2009-08-12 09:54:53