Não foi possível enviar o arquivo. Será algum problema com as permissões?
Essa é uma revisão anterior do documento!
Éder David Borges da Silva
- Graduado em Engenharia Agronômica - Eng Agronômica - UFPR
- e-mail: ederdbs@gmail.com / eder@leg.ufpr.br
Área de Interesse
- Estatística Experimental
- Estatística Espacial
- GEM² Grupo de estudos em modelos mistos
Minicursos
Codigos
###buf
buf <- function(n){
ttt <- NULL
ttt[1] <- 0
x <- runif(n)
th <- runif(n,0,pi)
st <- sin(th)
for ( i in 1:n){
if(st[i]>x[i]){
ttt[i+1] <- ttt[i]+1
}
else {
ttt[i+1] <- ttt[i]
}}
if (ttt[n+1]>0){
plot((0:n)[ttt>0],2*(0:n)[ttt>0]/ttt[ttt>0],type='l',xlab='numero simulação',ylab='pi')
}
else{print('no sucesso')}
abline(pi,0)
}
buf(100000)
### MOnte carlo
### inversão de p
