Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| Ambos lados da revisão anterior Revisão anterior Próxima revisão | Revisão anterior | ||
|
disciplinas:ce068-2013-01:historico [2013/05/20 17:16] elias |
disciplinas:ce068-2013-01:historico [2013/06/01 15:33] (atual) elias |
||
|---|---|---|---|
| Linha 19: | Linha 19: | ||
| | 13/05 | PC-16 | Topicos da avaliação. Introduação a variáveis aleatórias | | | | | 13/05 | PC-16 | Topicos da avaliação. Introduação a variáveis aleatórias | | | | ||
| | 15/05 | PC-16 | Variáveis aleatórias | 4.1, 4.2, 4.4 e 4.5 | pág. 92 a 96 | | | | | 15/05 | PC-16 | Variáveis aleatórias | 4.1, 4.2, 4.4 e 4.5 | pág. 92 a 96 | | | | ||
| - | | 20/05 | PC-16 | Exercícios | | Pg 92 | || | + | | 20/05 | PC-16 | Exercícios | | Pg 92 | | | |
| + | |||
| + | function(n=1,seed=1) { | ||
| + | r01 <- function(s) (1664525 * s + 1013904223)%%(2^32); | ||
| + | x <- double(n); x[1] <- r01(seed); | ||
| + | if (n>1) for (i in 2:n) x[i] <- r01(x[i-1]); | ||
| + | x/(2^32) | ||
| + | } | ||
