高校数学の質問スレ(医者・東大卒専用) Part438 (991レス)
高校数学の質問スレ(医者・東大卒専用) Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
224: 132人目の素数さん [sage] 2024/09/17(火) 07:36:31.62 ID:X3jkfzLo 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='') curve(PDF,add=TRUE,lwd=2) invisible(Rand) } vonNeuman(dnorm,-3,3) vonNeuman(\(x)sin(x)/2,0,pi) http://rio2016.5ch.net/test/read.cgi/math/1723152147/224
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.043s