一段程序 - ZJU版 - 未名存档

本页内容为未名空间相应帖子的节选和存档，一周内的贴子最多显示50字，超过一周显示500字访问原贴

ZJU版 - 一段程序

相关主题
● paper wanted	● 求教：simulation of a complex distribution
● need help for job hunting	● 等bus的问题
● 请教一道老面试题，谢谢	● A question about mean, variance, and distribution function.
● [合集] 请教一个概率题	● How to generate the sample points of uniform distribution
● 请教一个关于copula的问题	● EM 算法
● Normal distribution	● 如何用C++产生随机Poisson分别的随机数？
● 问个统计问题 (转载)	● question on: Gaussian vs. uniform noise (转载)
● How to get the bivariate distribution?	● 一个概率题

相关话题的讨论汇总
话题: ranf话题: xy话题: alog话题: 39话题: random

进入ZJU版参与讨论

(共1页)

s******g
发帖数: 30

下面是一段写于1970年的fortran程序.
C
C RANF(0) RETURNS A RANDOM NUMBER UNIFORMLY DISTRIBUTED BETWEEN
C ZERO AND ONE AT EACH CALL
C R(I) HAS A GAUSSIAN DISTRIBUTION
C
DO 40 I=1,N
39 XY=-ALOG(RANF(0))
YY=-ALOG(RANF(0))
IF(YY.LT.0.5*(XY-1.0)**2)GO TO 39
40 R(I)=SIGN(XY,RANF(0)-.5)
没搞明摆这样获得的R(I)随机数具有高司分布.
主要是IF后的条件.
哪位指点一下.呵呵..

(共1页)

进入ZJU版参与讨论

相关主题
● 一个概率题	● 请教一个关于copula的问题
● EM 算法	● Normal distribution
● question on: Gaussian vs. uniform noise (转载)	● 问个统计问题 (转载)
● Generate correlated unifrom random numbers?	● How to get the bivariate distribution?
● paper wanted	● 求教：simulation of a complex distribution
● need help for job hunting	● 等bus的问题
● 请教一道老面试题，谢谢	● A question about mean, variance, and distribution function.
● [合集] 请教一个概率题	● How to generate the sample points of uniform distribution

相关话题的讨论汇总
话题: ranf话题: xy话题: alog话题: 39话题: random

#	版面	帖数(主题数)
-	全站	4871 (796)
1	Military	3777 (569)
2	Stock	341 (51)
3	Joke	117 (17)
4	History	116 (3)
5	Automobile	100 (9)
6	USANews	55 (9)
7	Midlife	45 (1)
8	Headline	41 (41)
9	Dreamer	33 (13)
10	FleaMarket	32 (20)
11	Living	30 (7)

boards

未名新帖统计// 7月16日

历史上的今天