‚Z”Šw‚ÌŽ¿–âƒXƒŒiˆãŽÒE“Œ‘呲ê—pj Part438 (991Ú½)
㉺‘OŽŸ1-V
’Šo‰ðœ •KŽ€Áª¯¶°(–{‰Æ) (‚×) Ž©ID Ú½žx ‚ ‚Ú[‚ñ
224: 2024/09/17(‰Î)07:36 ID:X3jkfzLo(1) AAS
vonNeuman <- function(PDF,xmin=0,xmax=1){
N=1e6
ymax=max(PDF(seq(xmin,xmax,length=N+1)))
Ux=runif(N,xmin,xmax)
Uy=runif(N,0,ymax)
Rand=Ux[which(Uy<=PDF(Ux))]
hist(Rand,xlim=c(xmin,xmax),freq=FALSE,breaks=30,col=sample(colors(),1),main='')
È5
㉺‘OŽŸ1-V‘ŠÖŽÊ”——õÝžx—ð
½Úî•ñ ÔÚ½’Šo ‰æ‘œÚ½’Šo —ð‚Ì–¢“Ç½Ú AA»ÑȲÙ
‚Ê‚±‚ÌŽè ‚Ê‚±TOP 0.031s