https://estatistica.c3sl.ufpr.br/ 2026-04-05T05:45:35+00:00 https://estatistica.c3sl.ufpr.br/ https://estatistica.c3sl.ufpr.br/lib/exe/fetch.php/wiki:dokuwiki.svg text/html 2011-06-21T03:56:51+00:00 Anonymous (anonymous@undisclosed.example.com) https://estatistica.c3sl.ufpr.br/doku.php/disciplinas:ce718:atividades2011:pi?rev=1308628611&do=diff Estimação de pi por simulação Simulação em quadrado/circulo Agulha de Buffon Diferentes abordagens para a estimativa de π através do experimento da agulha de Buffon, realizadas pelos participantes do curso: Éder buffon.eder <- function(n,l=1,a=1){ if(a<l){cat('Erro: a < l, deve ser a > l\n')} if(a>=l){ theta <- runif(n,0,pi) dist <- runif(n,0,a/2) inter <- sum(dist <= l/2*sin(theta)) phi_est <- round((n/inter)*(2*l/a),12) cat('Número Simulaçã…